Visual Basic -toepassingen doorgaans gebruikers toestaan om gegevens met behulp van het toetsenbord . Zuiveren en het transformeren van deze ruwe gegevens tot bruikbare gegevens is een cruciale taak voor de ontwikkelaar . Zo is het vaak noodzakelijk om te filteren en verwijderen van niet-alfabetische tekens toepassingen tegen beveiligingsrisico . Cleansing data en onderhouden van uniformiteit is van belang bij het opslaan van gegevens , die te voorkomen zal de oprichting van dubbele records . Visual Basic 6 biedt vele stringverwerkende functies , waardoor het een eenvoudige taak om code die controleert op niet- alfabetische tekens schrijven . Instructies
1 Open Visual Basic 6 van het pictogram " Start" , gelegen op de taakbalk van Windows . Kopen van 2 Selecteer " Standard.exe " en klik op "Open " naar een nieuwe Visual Basic 6 applicatie te starten.
3 Sleep het pictogram " tekstvak " om het venster met het label " Form1 , " het creëren van een tekstvak " Text1 . "
< br > 4 Sleep het pictogram " CommandButton " om het venster genaamd " Form1 , " het creëren van een knop " Command1 . "
Dubbelklik 5 op de knop " Command1 " om de code te openen venster . Onder de lijn met het label " Private Sub Command1_Click ( ) " plak de code : dim scompare
als Koord dim iCount
als Geheel
iCount = 1 To Len ( Text1. tekst ) op scompare = Mid $ ( Text1.Text , iCount , 1 ) op Twitter Text1.Text = Mid $ ( Text1.Text , iCount + 1 , Len _ ( Text1.Textt ) )
Als scompare Like ( " [ AZ ] " ) Or _ scompare Like
( " [ az ] " ) Or _ scompare
Like ( " # " ) dan < br msgbox > ( " Alpa tekens alleen " ) op Twitter Else msgbox
(Niet - alfabetische tekens gevonden " ) Exit Function End
Als
Volgende iCount
Druk 6 de " F5 " toets om de Visual Basic-toepassing uit te voeren . Typ de tekst die u wilt controleren in het tekstvak . Klik op de knop " Command1 , " en een bericht wordt scherm controleren als de tekst alfabetische of niet .
|
