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.