Check av streng

Kunne gøres sådan:

fejl=0
for xpos=1 to 7
  if xpos<3 then
    if isnumeric(Mid(strRegnr, xpos,1)) then fejl=1
  end if
  if xpos>2 then
    if not isnumeric(Mid(strRegnr, xpos,1)) then fejl=1
  end if
next

Alternativt lav det med regular expression, her en funtion som tjekker det:

function check(inputstreng)
dim regcon
set regcon = new RegExp
regcon.ignoreCase = true
regcon.Global = true
regcon.pattern = "^([a-zæøå]{2}\d{5})$"
check = regcon.test(inputstreng)
end function


og så bruge den sådan her:

str = "AB15467"
if not check(str) then
  'Forkert format at str
end if

// Hva lønner seg å bruke når den skal sjekke ca 200-400 strenger samtidig? I hennhold til optimalisert script????

det tror jeg at jeg vil overlade til eagleeye at svare på den ..

Det ved jeg næsten ikke men det therealyoda har vist skal der lidt mere om sådan den tjekke længden er 7 :)

men hvis det er for at optimere kan man lave det uden funtion sådan man ikke oprettter og nedlægger reqexp objectet 200-400 gange men kun gør det en gang og kun en gang sætte pattern op.:


<%
dim regcon
set regcon = new RegExp
regcon.ignoreCase = true
regcon.Global = true
regcon.pattern = "^([a-zæøå]{2}\d{5})$"

do whiler not rs.EOF
  if regcon.test(rs("kolonne")) then
    'OK
  end if
  rs.Movenext
loop

Set regcon = Nothing

Det lader til at det nok er den sidste løsning som eagle-eye har vist, som er den der er smartest at bruge..

forresten eagle : kan du specificere eller linke til noget som forklarer det pattern du har sat ?

Du kan se noget omkring de her:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vspropattern.asp

Men en hurtig forklaring af det pattern: "^([a-zæøå]{2}\d{5})$"
^ betyder match start på streng.
[a-zæøå]  betyder find bogstaver og {2} angiver er skal være 2 bogstaver efter hinaden
\d betyder find et tal og {5} skal der være 5 tal efter finanden
$ betyder match slut på streng.

alt i alt giver det godkend en streng med 2 bogstaver efterfuldt af 5 tal

//Meget bra! Takker for hjelpen. Er det greit at jeg gir Eagleeye 30 point og therealyoda 20 point????

En liten ting til hvis noen av dere gidder! Hvorfor virker ikke dette?

StrAktiv = "JA"

If strAktiv <> "JA" OR strAktiv <> "NEI" Then
error = error & "- FEIL må være JA eller NEI"
End if

OR skal være AND...

giv du bare eagle alle points.. det var hans svar der var guldet :-)

takker for points