Πώς να ελέγξει ένα String για Αλφάβητο Μόνο σε VB

Visual Basic εφαρμογές συνήθως επιτρέπουν στους χρήστες να εισάγουν δεδομένα χρησιμοποιώντας το πληκτρολόγιο . Απολύμανση και τη μετατροπή αυτού πρώτες πληροφορίες σε χρήσιμα δεδομένα είναι ένα κρίσιμο καθήκον για τον κύριο του έργου . Για παράδειγμα , είναι συχνά απαραίτητο να φιλτράρει και να απομακρυνθούν οι μη αλφαβητικούς χαρακτήρες για την προστασία των εφαρμογών από εκμεταλλεύεται την ασφάλεια . Καθαρισμός δεδομένων και η διατήρηση της ομοιομορφίας είναι σημαντικό κατά την αποθήκευση των δεδομένων , η οποία θα εμποδίσει τη δημιουργία διπλών εγγραφών . Visual Basic 6 παρέχει πολλές λειτουργίες string χειρισμό , καθιστώντας το μια απλή υπόθεση για να γράψουν κώδικα που ελέγχει για μη αλφαβητικούς χαρακτήρες . Οδηγίες
Η 1

Ανοίξτε Visual Basic 6 από το εικονίδιο " Έναρξη " , που βρίσκεται στη γραμμή εργασιών των Windows . 2

Επιλέξτε " Standard.exe " και κάντε κλικ στο " Άνοιγμα" για να ξεκινήσετε μια νέα Visual Basic 6 αίτησης .
εικόνων 3

Σύρετε το εικονίδιο " πλαίσιο κειμένου " στο παράθυρο με την ένδειξη " Φόρμα1 ", δημιουργώντας ένα πλαίσιο κειμένου με την ένδειξη " Text1 . "

4

Σύρετε το εικονίδιο " CommandButton " στο παράθυρο με την ένδειξη " Φόρμα1 ", δημιουργώντας ένα κουμπί με την ένδειξη " Command1 . "
5

Κάντε διπλό κλικ στο κουμπί με την ένδειξη " Command1 " για να ανοίξει τον κώδικα παράθυρο. Κάτω από τη γραμμή με την ένδειξη " Private Sub Command1_Click ( ) " επικόλληση τον κώδικα :

dim scompare Όπως String

dim icount As Integer

Για icount = 1 Για να Len ( Text1. κείμενο )

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

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

Αν scompare Like ( « [ Ω ] ") ή _

scompare Like ( « [ az ] ") ή _

scompare Like ( "# ") Στη συνέχεια

MsgBox ( " Alpa χαρακτήρες μόνο " )

υπόλοιπα

MsgBox ( βρέθηκαν μη Αλφαβητικός χαρακτήρες " )

Exit Function

End Αν

Επόμενο icount
Η

6 Πατήστε το πλήκτρο "F5 " για να εκτελέσετε την εφαρμογή της Visual Basic . Πληκτρολογήστε το κείμενο που θέλετε να ελέγξετε στο πλαίσιο κειμένου . Κάντε κλικ στο κουμπί με την ένδειξη " Εντολή1 , " και ένα μήνυμα θα είναι οθόνη επαλήθευση αν το κείμενο είναι αλφαβητική ή όχι .
Η
εικόνων