Πώς να αντικαταστήσει ένα χαρακτήρα σε ένα String σε VB6

Visual Basic 6 είναι ένα event-driven γλώσσα προγραμματισμού για τα Windows , που αρχικά βασίστηκε στο BASIC . Η γλώσσα περιλαμβάνει πολλές λειτουργίες και τις δηλώσεις για τον χειρισμό χορδών . Αντικατάσταση ενός χαρακτήρα σε μια συμβολοσειρά με μια άλλη είναι ένα σημαντικό βήμα σε πολλές εργασίες string χειραγώγησης , συμπεριλαμβανομένης της κρυπτογραφίας , απολύμανση εισόδου και επεξεργασία κειμένου καθώς ο χρήστης πληκτρολογεί αυτό . Στη Visual Basic 6 , μπορείτε να αντικαταστήσετε ένα χαρακτήρα με ένα άλλο χρησιμοποιώντας την εντολή Mid . Οδηγίες

1

Αντιγράψτε τη σειρά που θέλετε να τροποποιήσετε σε μια μεταβλητή . Αυτό είναι απαραίτητο , διότι η δήλωση Mid λειτουργεί με μεταβλητές , αλλά όχι με τις ιδιότητες των κατηγοριών ή των ελέγχων . ( Εάν η συμβολοσειρά που θέλετε να τροποποιήσετε είναι ήδη σε μια μεταβλητή , μπορείτε να παραλείψετε αυτό το βήμα . )

Δημ. StringToModify ως String

StringToModify = Text1.Text 2

Καθορίστε ποιο χαρακτήρα που θέλετε να αντικαταστήσετε . Εάν ο χαρακτήρας που θέλετε να αντικαταστήσετε θα είναι στην ίδια θέση κάθε φορά , καθορίζουν τη θέση ως αριθμός. ( Η αρίθμηση χαρακτήρας ξεκινάει από το 1 . ) Σε αντίθετη περίπτωση , τον καθορισμό της θέσης του χαρακτήρα και να το αποθηκεύσετε σε μια μεταβλητή . Το παράδειγμα αυτό βρίσκει τον τελευταίο χαρακτήρα στη σειρά :

Δημ. CharacterPosition ως Ακέραιος

CharacterPosition = Len ( StringToModify )
εικόνων 3

Αντικαταστήστε το χαρακτήρα χρησιμοποιώντας Mid . Η δήλωση Mid δέχεται τρεις παραμέτρους : το string να τροποποιηθεί , η θέση έναρξης του τμήματος που πρόκειται να αντικατασταθεί , και το μήκος του τμήματος που πρόκειται να αντικατασταθεί . ( . Δεδομένου ότι θέλετε να αντικαταστήσετε έναν χαρακτήρα , το μήκος θα είναι πάντα 1 ) Το παράδειγμα αυτό αντικαθιστά το χαρακτήρα με κεφαλαίο Δ :

Mid ( StringToModify , CharacterPosition , 1 ) = " D "

4

Αντιγράψτε πίσω την ιδιοκτησία , εάν έχετε αντιγράψει ένα ακίνητο στο πρώτο βήμα :

Text1.Text = StringToModify
Η
εικόνων