Regexp-hjälp

5 svar · 665 visningar · startad av johgu 25 feb. 2007

johguMedlem sedan feb. 200732 inlägg

Frågan25 feb. 2007 15:34#1

Hej, har hittat följande funktion, men hur gör man för att den även ska godkänna mellanslag och bindestreck?

Function IsValid(strData,blIncludeAlpha,blIncludeNumeric)
	Dim regEx, retVal,strPtrn
	Set regEx = New RegExp
	If blIncludeAlpha Then
	strPtrn="a-zA-Z"
	End If
	If blIncludeNumeric Then
	strPtrn= strPtrn & "0-9"
	End If

	regEx.Pattern = "^[" & strPtrn & "]+$"
	IsValid= regEx.Test(strData)
End Function

Tack på förhand

voigtann1Medlem sedan juni 20019 519 inlägg

26 feb. 2007 09:25#2

använd:

strPtrn="a-zA-Z\s\-"

istället för

strPtrn="a-zA-Z"

eller om du vill även kunna använda mellanslag och bindestreck så lägg denna kod efter båda IF frågorna:

strPtrn = strPtrn & "\s\-"

LarsGMedlem sedan dec. 200012 464 inlägg

26 feb. 2007 13:04#3

Flyttad från ASP

nitro2k01Medlem sedan aug. 20039 340 inlägg

19 mars 2007 20:19#4

Flyttat från Regular Expressions på grund av att provtiden för forumet har gått ut

johguMedlem sedan feb. 200732 inlägg

28 mars 2007 22:58#5

Hur gör jag för att funktionen även ska godkänna tomma strängar?

voigtann1Medlem sedan juni 20019 519 inlägg

29 mars 2007 05:11#6

Function IsValid(strData,blIncludeAlpha,blIncludeNumeric)
  IF strData = "" Then
    IsValid = True
  Else
    Dim regEx, retVal,strPtrn
    Set regEx = New RegExp
    If blIncludeAlpha Then strPtrn="a-zA-Z"
    If blIncludeNumeric Then strPtrn= strPtrn & "0-9"
    regEx.Pattern = "^[" & strPtrn & "]+$"
    IsValid= regEx.Test(strData)
  End If
End Function