Brug af AI afslører de svagheder, virksomheder allerede har opbygget gennem års cloud-transformation, nye SaaS-løsninger og fragmenterede sikkerhedssystemer.
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.