Villkor för artikelnummer

Function IsEnumber(stringToTest)
   Dim m_objRxp
   Set m_objRxp=New RegExp
   m_objRxp.Pattern="^\d{7}$"
   IsEnumber=m_objRxp.Test(stringToTest)
   Set m_objRxp=Nothing
End Function

:)

Tackar!

Men hur använder jag den....

Min sträng heter ju strEnumber och det är väl den som ska ersätta "stringToTest"

men hur använder jag den i mitt villkor fäör att skriva ut olika saker beronde på om villkoret uppfylls eller ej.. är lite trög just nu.... sorry

Mvh
Henrik

Function IsEnumber(nr)
    If isnumeric(nr) and len(nr) = 7 then isEnumber = true else isEnumber = false
End Function

If IsEnumber(sArticleNr) then 
    response.write "Enummer" 
else 
    response.write "artikelnummer"
end if

Det är ju fantastiskt!

Tack emission och Jesper T!

Mvh
Henrik

Varför ha en If-sats?

Function IsEnumber(nr)
	IsEnumber = (IsNumeric(nr) And Len(nr) = 7)
End Function

Dock skulle jag rekommendera emissions funktion eftersom att den inte släpper igenom decimaltecken, minustecken och bokstäver. Men jag skulle dock skrivit så här:

Function IsEnumber(stringToTest)
	With New RegExp
		.Pattern="^\d{7}$"
		IsEnumber = .Test(stringToTest)
	End With
End Function

:)

:)
Kanske lite snyggare... Jag vet inget om funktionen dock!

Varför skulle du skriva så, Erik? (förutom att den kanske är snyggare...)

Mvh
Henrik

Är ingen skillnad mot emissions kod. Bara jag som tycker det är trevligt med mindre kod och jag tycker det blir lite tydligare.
Men där handlar med mest om tycke och smak.

Okidoki!

Mvh
Henrik

Eriks kod är helt klart snyggare, så kör på den! :)