Støv, fibre og metalliske partikler kan påvirke både uptime, levetid og driftssikkerhed. Derfor arbejder flere datacentre systematisk med contamination control.
ved hjælp af dette kan du tjekke om strengen indeholder specielle danske tegn eller ej: Function IsAlphaNumeric(sString) Dim nChar, i IsAlphaNumeric = True For i = 1 To Len(sString) nChar = Asc(LCase(Mid(sString, i, 1))) If not ((nChar > 47 And nChar < 58) or (nChar > 96 And nChar < 123) or nChar = 32) Then IsAlphaNumeric = False Exit For End If Next End Function
Response.Write IsAlphaNumeric("åpøæliøæå") 'resultatet er Falsk Response.Write IsAlphaNumeric("16abcd") 'resultatet er Sand %>
dette ville vaere en anden maade at klare den paa.
Function Check(Streng) Dim myReg Set myReg = New RegExp myReg.IgnoreCase = True myReg.Pattern = "^[a-zA-Z0-9]$" Check = myReg.Test(Streng) End Function
det kan godt taenkes at pattern skal laves om, er ikke vildt haard til reg exp :)
Hvis den er sat true, ignorers "Størresle" på bogstaver så store og små betraktes som ens, eller så er der forskal på store og små bogstaver.
Hvis man i sit pattern skriver [a-z] og har IgnorCase=false vil den kun tilade strengen med små bogstaver "abc" "xyz" og ikke "Abc". Skriver man IgnorCase=true vil den acceptere de 3 viste eksempler.
eagleeye vil du ikke oprette et svar så du kan få point?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.