validating a non float integer value

[Eugene Anthony]

The code bellow:

function isInt(input)

isInt = true
for i=1 to len(input)
d = Mid(input,i,1)
if Asc(d) < 48 OR Asc(d) > 57 then
isInt = false
exit for
end if
next

end function
I tried replacing with:

function isInt(input)

Set re = new RegExp
re.Pattern = "[0-9]"
isInt = re.test(input)

end function

But dont seem to work.

How do I solve the problem?.

Your help is kindly appreciated.

Regards

Eugene Anthony
*** Sent via Developersdex http://www.developersdex.com ***

[Roland Hall]

Correction:

function isInt(input)
dim re, match
set re = new RegExp
re.Pattern = "\D"
re.Global = True
set match = re.Execute(input)
if match.count > 0 then
isInt = false
else
isInt = true
end if
set match = nothing
set re = nothing
end function

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Roland Hall]

"Eugene Anthony" wrote in message
news:eK**************@tk2msftngp13.phx.gbl...
: function isInt(input)
: isInt = true
: for i=1 to len(input)
: d = Mid(input,i,1)
: if Asc(d) < 48 OR Asc(d) > 57 then
: isInt = false
: exit for
: end if
: next
: end function
:
: I tried replacing with:
:
: function isInt(input)
: Set re = new RegExp
: re.Pattern = "[0-9]"
: isInt = re.test(input)
: end function

function isInt(input)
dim re, match
set re = new RegExp
re.Pattern = "\D"
re.Global = True
set match = re.Execute(input)
if match.count > 0 then
isInt = false
else
isInt = true
end if
set re = nothing
end function

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Dave Anderson]

Eugene Anthony wrote:

I tried replacing with:

function isInt(input)

Set re = new RegExp
re.Pattern = "[0-9]"
isInt = re.test(input)

end function

But dont seem to work.

How do I solve the problem?.

One way:

Function IsInt(str)
IsInt = CDbl(str) = Int(str)
End Function
--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message. Use
of this email address implies consent to these terms. Please do not contact
me directly or ask me to contact you directly for assistance. If your
question is worth asking, it's worth posting.

[Eugene Anthony]

I have discovered that it can also be done as bellow:

function isInt(input)

Set re = new RegExp
re.Pattern = "^\d+$"
re.Global = true
isInt = re.test(input)

end function

The one which you have shown me, I shall study it as well.

Regards

Eugene Anthony

*** Sent via Developersdex http://www.developersdex.com ***

[Roland Hall]

"Dave Anderson" <GT**********@spammotel.com> wrote in message
news:eL****************@TK2MSFTNGP15.phx.gbl...
: Eugene Anthony wrote:
: > I tried replacing with:
: >
: > function isInt(input)
: >
: > Set re = new RegExp
: > re.Pattern = "[0-9]"
: > isInt = re.test(input)
: >
: > end function
: >
: > But dont seem to work.
: >
: > How do I solve the problem?.
:
: One way:
:
: Function IsInt(str)
: IsInt = CDbl(str) = Int(str)
: End Function

Is that valid in vbscript?

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp

[Aaron Bertrand [SQL Server MVP]]

> Is that valid in vbscript?

Sure, did you try it?

For readability, I would probably have written the condition line with
parens, e.g.

IsInt = (CDbl(str) = Int(str))

A

[Dave Anderson]

Aaron Bertrand [SQL Server MVP] wrote:

For readability, I would probably have written the condition line with
parens, e.g.

IsInt = (CDbl(str) = Int(str))

Likewise, for readability I would have written it this way:

function IsInt(s){ return s == parseInt(s,10) }


But readability was off the table, as VBScript was implied in the question.

--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message. Use
of this email address implies consent to these terms. Please do not contact
me directly or ask me to contact you directly for assistance. If your
question is worth asking, it's worth posting.

[Aaron Bertrand [SQL Server MVP]]

> Likewise, for readability I would have written it this way:

function IsInt(s){ return s == parseInt(s,10) }

But readability was off the table, as VBScript was implied in the
question.

It was just a comment, not criticism, relax.

[Dave Anderson]

Aaron Bertrand [SQL Server MVP] wrote:

But readability was off the table, as VBScript was implied in the
question.

It was just a comment, not criticism, relax.

Mine was a joke, Aaron.

--
Dave Anderson

Unsolicited commercial email will be read at a cost of $500 per message. Use
of this email address implies consent to these terms. Please do not contact
me directly or ask me to contact you directly for assistance. If your
question is worth asking, it's worth posting.

[Aaron Bertrand [SQL Server MVP]]

> Mine was a joke, Aaron.

Ah, I thought you were saying readability was irrelevant. Sorry, I've been
dealing with that a lot recently in the real world, too.

[Roland Hall]

"Aaron Bertrand [SQL Server MVP]" <te*****@dnartreb.noraa> wrote in message
news:ON****************@TK2MSFTNGP14.phx.gbl...
:> Is that valid in vbscript?
:
: Sure, did you try it?
:
: For readability, I would probably have written the condition line with
: parens, e.g.
:
: IsInt = (CDbl(str) = Int(str))

I did and got type mismatch. I was using WSH.

--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center - http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation - http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library - http://msdn.microsoft.com/library/default.asp