Visual Basic-applikationer tillåter vanligtvis användaren att mata in data med hjälp av tangentbordet . Hygienisering och omvandla detta rå information till användbara data är en viktig uppgift för utvecklaren . Till exempel är det ofta nödvändigt att filtrera och ta bort icke - alfabetiska tecken för att skydda program från säkerhets bedrifter . Rengöring uppgifter och upprätthålla enhetlighet är viktigt vid lagring av data, vilket kommer att förhindra skapandet av dubbla poster . Visual Basic 6 har många funktioner sträng hantering , vilket gör det till en enkel uppgift att skriva kod som kontrollerar för icke - alfabetiska tecken . Instruktioner
1
Öppna Visual Basic 6 från " Start " -ikonen , som ligger på Windows aktivitetsfält .
2
Välj " Standard.exe " och klicka på " Open " att starta ett nytt Visual Basic 6 program .
3
Dra " textruta " ikonen till fönstret märkt " Form1 , " skapa en textruta märkt " Text1 . "
4
Dra " CommandButton " ikonen till fönstret märkt " Form1 , " skapa en knapp märkt " Command1 . "
5
Dubbelklicka på knappen som heter " Command1 " för att öppna koden fönster . Nedanför märkta linjen " Private Sub Command1_Click ( ) " klistra in koden :
dim scompare As String
dim icount As Integer
För icount = 1 till Len ( Text1. text ) katalog
scompare = Mid $ ( Text1.Text , icount , 1 ) katalog
Text1.Text = Mid $ ( Text1.Text , icount + 1 , Len _ ( Text1.Textt ) )
Om scompare Gilla ( " [ AZ ] " ) Eller _
scompare Gilla ( " [ az ] " ) Eller _
scompare Gilla ( " # " ) Sen
MsgBox ( " Alpa endast tecken " ) katalog
Else
MsgBox ( icke -alfabetiska tecken hittade " ) katalog
Exit Function
End Om
Nästa icount
6
Tryck på " F5 " för att köra Visual Basic-program . Skriv den text du vill kontrollera i textrutan . Klicka på den märkta knappen " Command1 , " och ett meddelande kommer att visas kontrollera om texten är alfabetiska eller inte . Addera
