Sjekke at innholde i tesktboks er tall

[Wolverin]

Jeg har et program som krever at brukeren skal skrive inn tall i enkelte av tekstboksene, og som krever at en del av tekstboksene skal være bokstaver.

Hvordan kan jeg sjekke at det er det som er blitt skrevet inn?

[aadnk]

Du kan bruke IsNumeric for å sjekke om en streng inneholder kun bokstaver. Den brukes omtrent slik:

 

Dim strTest As String

strTest = "65"

If IsNumeric(strTest) Then
   MsgBox "strTest inneholder kun tall"
Else
   MsgBox "strTest inneholder både bokstaver og tall"
End If

[Wolverin]

Men at det er bokstaver går ikke ann å sjekke eller???

[ratata]

då kan du skrive if not isnumeric(strTest) ...

[sim]

Et kjapt spørsmål: Hvor god er støtten for bruk av regulære uttryk (regular expressions), om det i det hele tatt er det, i VB?

[aadnk]

Vel, støtten for Regular Expressions er kanskje ikke så stor i VB, men du kan faktisk legge dem til ved å laste ned Microsoft Windows Script 5.6 pakken. Etter du har gjort dette, eller hvis du allerede har VBScript pakken installert, kan du referere Microsoft VBScript Regular Expressions 5.6 til prosjektet ditt.

 

Völa, du har Regular Expressions.

[Wolverin]

då kan du skrive if not isnumeric(strTest) ...

Ved å skrive

not isnumeric(strTest)

vil jeg jo bare sjekke om det er en string.

Siden variabelen er en string, så vil testen da ikke klare å skille om jeg skriver følgende:

 

strTest = "tekst"

og om jeg skriver

strTest = "tekst5"

 

Den vil påstå at begge er string, og vil påstå at det er tekst.

Det jeg i så fall må gjøre er å bryte ned innformateringen, slik at jeg sjekker på et og et tegn bortover til jeg har nådd siste tegnet.

 

Skulle vel bli løst med en teller som forteller hvor jeg er i teksten, og en variabel jeg leser inn hvert tegn inn i for så å sjekke om det er tekst eller ikke tekst.

Dette må gå i en loop til jeg har nådd lengden av teksten.

 

Private Sub cmdTekstSjekk_Click()
Dim teller, lengde As Integer
Dim tegnet As String
teller = 1
lengde = Len(strInnTekstText)
Do Until teller = lengde
tegnet = Mid(strInnTekst.Text, teller, 1)
If IsNumeric(tegnet) Then
MsgBox "Teksten inneholder tall, avbryter operasjon"
Exit Sub
End If
teller = teller + 1
Loop
MsgBox "Teksten inneholder bare tekst"
End Sub

 

Dette mener jeg skal fungere.

[ratata]

dumme meg

[hanest]

Her er eksempel på fortløpende validering av det du skriver inn i TextBoxen

 

Private Sub txtBoks_KeyPress(KeyAscii As Integer)

Dim sTegn As String

sTegn = "0123456789"

'Eller skriv inn de tegn som skal brukest

'Du kan da bruke UCase eller LCase

'sTegn = "abc"

 

If KeyAscii > 13 Then

If InStr(sTegn, Chr(KeyAscii)) = 0 Then

KeyAscii = 0

End If

End If

End Sub