Tjek om felt indeholder kun tal!

Du kan bruge isNumeric

felt=Request.Form("felt")
if isNumeric(felt) then
  'Det er et tal

end if

isNumeric accepterer da vist også "-888" - afhængig af fortolkning kan det
muligvis være forkert

Ja jeg har et problem ... isNumeric ser ud til at acceptere + tegnet :o(

IsNumeric returnerer også True, hvis der ingen værdi er.

Function Heltal(Tal, Fortegn)
    If Trim(Tal) <> "" And IsNumeric(Tal) Then
        If InStr(Tal, ".") = 0 And InStr(Tal, ",") = 0 Then
            Tal = CLng(Tal)
            If Fortegn = "+" And Tal >= 0 Then
                Heltal = True
            ElseIf Fortegn = "-" And Tal < 0 Then
                Heltal = True
            ElseIf Fortegn = "+-" Then
                Heltal = True
            End If
        End If
    End If
End Function

If Heltal(23, "+") Then ' Tallet er et positivt heltal
If Heltal(-23, "-") Then ' Tallet er et negativt heltal
If Heltal(23, "+-") Then ' Tallet er et positivt el. negativt heltal

set regex = New RegExp
regex.Pattern = "^[0-9]+$"

If regex.Test(str) Then
  ' streng er ikke tom og indeholder kun tal
End If

squashguy: Den ser cool ud - men jeg skal faktisk helst bruge det som en function.

Det er fordi jeg skal kunne anvende den i VB også.

Den kommer med fejlen: user-defined type not defined

Hvilke tal vil du acceptere?
Kun positive hel tal?

0 1 2 3 4 5 6 7 8 9

og intet andet ...

Så prøv dette hvis du ikke kan få squashguy til at virke så prøv:


function heltal(tal)
  okChar = "0123456789"
  heltal = true
  if len(tal) = 0 then
    heltal = false
  else
    for i = 1 to len(tal)
      if inStr(1,okChar,mid(tal,i,1)) = 0 then
        heltal=false
        exit for
      end if
    next
  end if
end function


if heltal(var) then
  'Et heltal

end if

Det spiller - jeg takker !

squashguy du må gerne lige skirve hvis du mener din version kan fungere i VB 6.0...

Du skal lave en reference til microsoft vbscript regular expressions, så burde denne virke:

Function heltal(str)
    Dim regex As New RegExp
    regex.Pattern = "^[0-9]+$"
    heltal = regex.Test(str)
End Function