Loop Through a String - Παραδείγματα κώδικα VBA

Μπορείτε να εκτελέσετε λογική ή να επιστρέψετε μεμονωμένους χαρακτήρες από μια συμβολοσειρά στο VBA κάνοντας βρόχο στη συμβολοσειρά.

Βρόχος μέσα από κάθε χαρακτήρα σε μια συμβολοσειρά

Το ακόλουθο είναι ένα παράδειγμα περιήγησης σε μια συμβολοσειρά χρησιμοποιώντας ένα For … Next Loop και την επιστροφή κάθε χαρακτήρα σε ένα msgbox.

1234567891011121314 Sub LoopThroughString ()Dim Counter ως ακέραιοςDim MyString As StringMyString = "AutomateExcel" 'καθορίζει συμβολοσειράΓια μετρητή = 1 προς Len (MyString)«κάντε κάτι σε κάθε χαρακτήρα σε συμβολοσειρά'εδώ θα στείλουμε με μήνυμα κάθε χαρακτήραMsgBox Mid (MyString, Counter, 1)ΕπόμενοΤέλος υπο

Η συνάρτηση Len μετρά τον συνολικό αριθμό χαρακτήρων στη συμβολοσειρά. Η έκφραση λοιπόν

1 Για μετρητή = 1 προς Len (MyString

θα κάνει βρόχο σε κάθε γράμμα της συμβολοσειράς.

Βρόχος μέσα από κάθε χαρακτήρα σε μια συμβολοσειρά - εναλλακτική λύση

Διαβάστε κάθε χαρακτήρα σε μια συμβολοσειρά
: Αυτό το παράδειγμα διαβάζει κάθε χαρακτήρα σε μια συμβολοσειρά από αριστερά προς τα δεξιά και επιστρέφει το αποτέλεσμα σε ένα πλαίσιο μηνυμάτων. Χρησιμοποιεί το Στα μέσα λειτουργία.

12345678910111213 Sub LoopThroughString ()Dim LookInHere As StringDim Counter ως ακέραιος«Χρησιμοποιήστε το δικό σας κείμενο εδώLookInHere = "easyexcel.net"Για μετρητή = 1 προς Len (LookInHere)MsgBox Mid (LookInHere, Counter, 1)ΕπόμενοΤέλος υπο

Διαβάστε κάθε λέξη σε μια συμβολοσειρά

Αυτό το παράδειγμα διαβάζει κάθε λέξη σε μια συμβολοσειρά από αριστερά προς τα δεξιά και επιστρέφει το αποτέλεσμα σε ένα πλαίσιο μηνυμάτων. Χρησιμοποιεί το Διαίρεση λειτουργία.

1234567891011121314151617 Sub LoopThroughString2 ()Dim LookInHere As StringDim Count ως ακέραιοςDim SplitCatcher As Variant«Χρησιμοποιήστε το δικό σας κείμενο εδώLookInHere = "I Heart easyexcel.net"SplitCatcher = Διαχωρισμός (LookInHere, "")Για Counter = 0 To UBound (SplitCatcher)MsgBox SplitCatcher (μετρητής)ΕπόμενοΤέλος υπο
wave wave wave wave wave