|
applications Visual Basic permettent généralement aux utilisateurs d'entrer des données à l'aide du clavier. Assainissement et de transformer cette information brute en données utilisables est une tâche cruciale pour le développeur . Par exemple, il est souvent nécessaire de filtrer et de supprimer les caractères non alphabétiques pour protéger les applications contre les exploits de sécurité. Nettoyage des données et de maintenir l'uniformité est importante lorsque le stockage de données , ce qui permettra d'éviter la création de doublons. Visual Basic 6 offre de nombreuses fonctions de gestion des chaînes , ce qui en fait une tâche facile d'écrire du code qui vérifie les caractères non alphabétiques . Instructions
1 Ouvrez Visual Basic 6 à partir de l'icône «Démarrer» , situé dans la barre des tâches de Windows .
2 Sélectionnez " Standard.exe " et cliquez sur "Open" pour lancer une nouvelle application Visual Basic 6 .
3 Faites glisser l'icône " encadré " à la fenêtre intitulée « Form1 », créant une zone de texte intitulée " Text1 ".
< br > 4 Faites glisser l'icône " CommandButton " à la fenêtre intitulée « Form1 », la création d'un bouton " Command1 ".
5 Double-cliquez sur le bouton " Command1 " pour ouvrir le code fenêtre . En dessous de la ligne intitulée " Private Sub Command1_Click () " collez le code suivant:
dim scompare As String
dim icount As Integer
icount = 1 To Len ( Text1. texte )
scompare = Mid $ ( Text1.Text , icount , 1)
Text1.Text = Mid $ ( Text1.Text , icount + 1 , Len _ ( Text1.Textt ) ) Photos Si scompare J'aime ( " [AZ] ») ou _
scompare J'aime ( " [az] " ) ou _
scompare J'aime ( "# ") Then
msgbox ( " caractères Alpa seulement " )
Else
msgbox ( caractères non alphabétiques trouvé " )
sortie de Fonction: Fin Si
Suivant icount
6 appuyez sur la touche "F5" pour exécuter l'application Visual Basic. Tapez le texte que vous souhaitez consulter dans la zone de texte . Cliquez sur le bouton " Command1 ", et un message sera affiché vérifier si le texte est alphabétique ou non.
|
