Hvordan sjekke en streng for Alphabet Bare i VB

Visual Basic-programmer vanligvis tillate brukere å legge inn data ved hjelp av tastaturet. Desinfiserende og transformere denne rå informasjonen til brukbar data er en viktig oppgave for utbygger. For eksempel er det ofte nødvendig å filtrere og fjerne ikke-alfabetiske tegn til å beskytte søknader fra utnyttelser av sikkerhetshull. Rensing data og vedlikeholde ensartethet er viktig når du skal lagre data, noe som vil hindre etablering av like poster. Visual Basic 6 gir mange streng håndtering funksjoner, noe som gjør det til en grei oppgave å skrive kode som sjekker for ikke-alfabetiske tegn.

Bruksanvisning

1 Åpne Visual Basic 6 fra "Start" -ikonet, som ligger på oppgavelinjen i Windows.

2 Velg "Standard.exe" og klikk "Åpne" for å starte et nytt Visual Basic 6 søknad.

3 Dra "Tekstboks'" -ikonet til vinduet merket "Form1," skape en tekstboks merket "Text1."

4 Dra "Command" -ikonet til vinduet merket "Form1," skape en knapp merket "Command1."

5 Dobbeltklikk på knappen merket "Command1" for å åpne koden vinduet. Under linjen som er merket "Private Sub Command1_Click ()" lim inn koden:

dim scompare As String

dim Icount As Integer

For Icount = 1 Til Len (Text1.Text)

scompare = Mid$(Text1.Text, icount, 1)

Text1.Text = Mid $ (Text1.Text, Icount + 1, Len _ (Text1.Textt))

Hvis scompare Som ( "[AZ]") Eller _

scompare Som ( "[a]") Eller _

scompare Som ( "#") Deretter

MsgBox ( "Alpa tegn only")

Ellers

MsgBox (ikke-alfabetiske tegn funnet ")

Exit Function

Slutt om

Neste Icount

6 Trykk på "F5" tasten for å utføre Visual Basic-programmet. Skriv inn teksten du ønsker å sjekke inn tekstboksen. Klikk på knappen merket "Command1", og en melding vil bli visning verifisering hvis teksten er alfabetisk eller ikke.