søg i strenge

Giv et eksempel på en streng, og hvad du ønsker..

Eksempel:

function checktal(streng)
alle_er_tal = true
for i = 1 to len(streng)
  if not IsNumeric(mid(streng, i, 1)) then
    alle_er_tal = false
    exit for
  end if
next
checktal = alle_er_tal
end sub

msgbox checktal("12")
msgbox checktal("1abc2")

hvis en streng nu indeholder både tal og bogstaver. fx:

str=  "a32"

det jeg gerne vil gøre er, at teste på om den første karakter i strengen er et tal!!
ved ikke helt om det var en mulighed at teste på om ascii værdien er mindre end 0x40 og større end 0x30?

Fx

if left(str,1)>0x30 And left(str,1)<0x40 Then
....
....
end if

det må man kunne

Rettelse:

function checktal(streng)
alle_er_tal = true
for i = 1 to len(streng)
  if not IsNumeric(mid(streng, i, 1)) then
    alle_er_tal = false
    exit for
  end if
next
checktal = alle_er_tal
end function

function checktal(streng)
alle_er_tal = true
for i = 1 to len(streng)
  if not IsNumeric(mid(streng, i, 1)) then
    alle_er_tal = false
    exit for
  end if
next
checktal = alle_er_tal
end function

function checktegn(tegn)
tegn_er_tal = true
if not IsNumeric(tegn) then tegn_er_tal = false
checktegn = tegn_er_tal
end function

str = "1a2c345"

msgbox checktal("12")
msgbox checktegn(right(str, 3))

Eksempel med hel streng, sidste 3 tegn og første tegn:

function checktal(streng)
alle_er_tal = true
for i = 1 to len(streng)
  if not IsNumeric(mid(streng, i, 1)) then
    alle_er_tal = false
    exit for
  end if
next
checktal = alle_er_tal
end function

function checktegn(tegn)
tegn_er_tal = true
if not IsNumeric(tegn) then tegn_er_tal = false
checktegn = tegn_er_tal
end function

str = "1a2c345"

msgbox checktal("12")
msgbox checktegn(right(str, 3))
msgbox checktegn(left(str, 1))

Hvis det drejer sig om at teste om første karakter er et tal:
If str Like "[1-9]*" Then

hvis du vil teste om der er bogstaver i strengen

If str Like "*[A-Za-zæøåÆØÅ]*" then

mit eget foreslag virker, men "thesurfer" smid et svar for forsøget

Svar :-)