Λειτουργία VBA Len - Λάβετε μήκος συμβολοσειράς

Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε τη συνάρτηση Len VBA για να λάβετε το μήκος μιας συμβολοσειράς.

Λειτουργία Len

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

Χαρακτήρες VBA Len Count

Η συνάρτηση VBA Len μετρά τους χαρακτήρες σε μια συμβολοσειρά.

1234567891011121314151617

Υπο LenExample_1 ()MsgBox Len ("12345") 'Αποτέλεσμα είναι: 5MsgBox Len ("12") 'Αποτέλεσμα είναι: 2MsgBox Len ("1") 'Αποτέλεσμα είναι: 1MsgBox Len ("") "Το αποτέλεσμα είναι: 1«Υπάρχει ένας χαρακτήρας διαστήματος εκεί μέσα.MsgBox Len ("") 'Το αποτέλεσμα είναι: 0MsgBox Len ("AB Cd") 'Αποτέλεσμα είναι: 5Τέλος υπο

VBA Len Strings ή παραλλαγές

Η συνάρτηση VBA Len μπορεί να μετρήσει τον αριθμό των χαρακτήρων σε μεταβλητές που δηλώνονται ως συμβολοσειρές ή παραλλαγές. Στην πραγματικότητα, ο VBA Len θα αντιμετωπίσει μια παραλλαγή ως συμβολοσειρά. Εάν το VBA Len χρησιμοποιείται με έναν ακέραιο, μεγάλο, μονό ή διπλό, τότε το VBA Len θα μετρήσει τον αριθμό των byte που απαιτούνται για την αποθήκευση της μεταβλητής.

123456789101112131415161718192021222324252627282930313233

Υπο LenExample_2 ()Dim VarEx1 As StringVarEx1 = 12345MsgBox Len (VarEx1) 'Αποτέλεσμα είναι: 5«Ο Λεν μετράει τον αριθμό των χαρακτήρων σε μεταβλητήDim VarEx2 Ως παραλλαγήVarEx2 = 12345MsgBox Len (VarEx2) 'Αποτέλεσμα είναι: 5«Ο Λεν μετράει τον αριθμό των χαρακτήρων σε μεταβλητήDim VarEx3 ως ακέραιοςVarEx3 = 12345MsgBox Len (VarEx3) 'Αποτέλεσμα είναι: 2'Ο Len μετρά τον αριθμό των byte που χρησιμοποιούνται για την αποθήκευση της μεταβλητήςDim VarEx4 Όσο καιρόVarEx4 = 12345MsgBox Len (VarEx4) 'Αποτέλεσμα είναι: 2'Ο Len μετρά τον αριθμό των byte που χρησιμοποιούνται για την αποθήκευση της μεταβλητήςDim VarEx5 ως SingleVarEx5 = 12345MsgBox Len (VarEx5) 'Αποτέλεσμα είναι: 2'Ο Len μετρά τον αριθμό των byte που χρησιμοποιούνται για την αποθήκευση της μεταβλητήςDim VarEx6 ως διπλόVarEx6 = 12345MsgBox Len (VarEx6) 'Αποτέλεσμα είναι: 2'Ο Len μετρά τον αριθμό των byte που χρησιμοποιούνται για την αποθήκευση της μεταβλητήςΤέλος υπο

VBA Len Count Περιπτώσεις ενός χαρακτήρα

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

Η συνάρτηση αντικατάστασης VBA μπορεί να αντικαταστήσει μια υπο -συμβολοσειρά με μια άλλη συμβολοσειρά σε ένα κείμενο:

1	Αντικατάσταση MsgBox ("XBCX", "X", "7") "Το αποτέλεσμα είναι:" 7BC7 "

Μπορούμε να χρησιμοποιήσουμε το Replace για να αφαιρέσουμε τους χαρακτήρες που θέλουμε να μετρήσουμε με "" και στη συνέχεια να βρούμε τη διαφορά μήκους πριν και μετά την αντικατάσταση.

1234567891011121314

Υπο LenExample_3 ()Dim StrEx As String 'Ορίστε μια μεταβλητή συμβολοσειράςStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Αντικατάσταση (StrEx, ",", "")) 'Αποτέλεσμα είναι: 3«Σπάζοντας τον παραπάνω κώδικαMsgBox Len (StrEx) 'Αποτέλεσμα είναι: 20MsgBox Replace (StrEx, ",", "" ") Το αποτέλεσμα είναι:" JackJohnJimJordan "MsgBox Len (Αντικατάσταση (StrEx, ",", "")) 'Αποτέλεσμα είναι: 17MsgBox Len (StrEx) - Len (Αντικατάσταση (StrEx, ",", "")) 'Αποτέλεσμα είναι: 20-17 = 3Τέλος υπο

VBA Len Count Περιπτώσεις μιας υποχορδής

Η συνάρτηση VBA Len μπορεί να χρησιμοποιηθεί με τη συνάρτηση Αντικατάσταση VBA για να υπολογίσετε πόσες φορές βρίσκεται μια συμβολοσειρά σε μια συμβολοσειρά.

Η συνάρτηση αντικατάστασης VBA μπορεί να αντικαταστήσει μια υπο -συμβολοσειρά με μια άλλη συμβολοσειρά σε ένα κείμενο:

1	Αντικατάσταση MsgBox ("XB cX", "X", "7") "Το αποτέλεσμα είναι:" 7B c7 "

Μπορούμε να χρησιμοποιήσουμε το Replace για να αφαιρέσουμε τα υποσύρματα που θέλουμε να μετρήσουμε με "" και στη συνέχεια να βρούμε τη διαφορά μήκους πριν και μετά την αντικατάσταση. Τέλος, πρέπει να διαιρέσουμε τη διαφορά με το μήκος του υποστρώματος που αντικαταστήσαμε.

12345678910111213141516171819

Υπο LenExample_4 ()Dim StrEx As String 'Ορίστε μια μεταβλητή συμβολοσειράςStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String 'Ορίστε μια μεταβλητή υποσύγχορδουSubStr = ","«Θα βρούμε πόσες φορές το SubStr βρίσκεται μέσα στο StrExMsgBox (Len (StrEx) - Len (Αντικατάσταση (StrEx, SubStr, ""))) / Len (SubStr) 'Αποτέλεσμα είναι: 3«Σπάζοντας τον παραπάνω κώδικαMsgBox Len (StrEx) 'Αποτέλεσμα είναι: 23Αντικατάσταση MsgBox (StrEx, SubStr, "") 'Το αποτέλεσμα είναι: "JackJohnJimJordan"MsgBox Len (Αντικατάσταση (StrEx, SubStr, "")) 'Αποτέλεσμα είναι: 17MsgBox Len (StrEx) - Len (Αντικατάσταση (StrEx, SubStr, "")) 'Αποτέλεσμα είναι: 23-17 = 6MsgBox (Len (StrEx) - Len (Αντικατάσταση (StrEx, SubStr, ""))) / Len (SubStr)Το αποτέλεσμα είναι: (23-17)/2 = 3Τέλος υπο