6 svar · 249 visningar · startad av JAreMANNEN
Tjenna på er!
Hur gör man så att det endast går att skriva i siffror i ett formulärfält?
Jag har tex ett med postnr och ett med icq..
Hur får jag så att det endast går att skriva siffror i dem?
jag tror detta funkar:
Dim icq
icq = Request.Form("icq")
If Not barasiffror(icq) Then
Response.Write "ICQ får bara innehålla SIFFROR!!!!"
End If
Function barasiffror(strText)
Dim i
For i = 1 To Len(strText)
If Instr("0123456789", Mid(strText, i, 1)) = 0 Then
barasiffror = false
exit function
End If
Next
barasiffror = true
End Function
nu förstår jag inte riktigt vad du gjort i funktionen, bohlin, men jag brukar alltid använda isnumeric()...
if isnumeric(sträng) then
response.write "bara siffror"
else
response.write "inte bara siffror"
end if
sen är det dock lite vanskligt att göra en 'endastsiffror' koll på ett postnummer, eftersom jag och många, många andra skriver med mellanslag efter de tre första siffrorna.
capisce? 
@nders: så som du har gjort är ju lite enklare, men det finns en "bugg" i det. Skriver man 3,4 så funkar det ändå, och det vill man ju inte.
bohlin: 
okay, ett till förslag:
str=replace(str, "," ,"")
str=replace(str, "." ,"")
if isnumeric(str) then
response.write "bara siffror"
else
response.write "inte bara siffror"
end if
kortare än din kod...
okejdå..
du vinner 
Man skulle ju kunna använda ett reguljärt uttryck också, och fimpa allt som inte är en siffra.
dim re as new regexp
re.global=true
re.pattern="[^0-9]"
texten=re.replace(texten,"")
Sedan kan man ju alltid lösa det på klientsidan, med JavaScript, så att man aldrig kan skriva in något annat än siffror.