Acest tutorial va arăta cum să utilizați funcția Len VBA pentru a obține lungimea unui șir.
Funcția Len
Funcția VBA Len returnează lungimea unui șir specificat.
Personaje VBA Len Count
Funcția VBA Len numără caracterele dintr-un șir.
| 1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'Rezultatul este: 5MsgBox Len ("12") 'Rezultatul este: 2MsgBox Len („1”) 'Rezultatul este: 1MsgBox Len ("") 'Rezultatul este: 1„Există un caracter spațial acolo.MsgBox Len ("") 'Rezultatul este: 0MsgBox Len ("AB Cd") 'Rezultatul este: 5Sfârșitul Sub |
VBA Len Strings sau Variants
Funcția VBA Len poate număra numărul de caractere din variabilele declarate ca șiruri sau variante. De fapt, VBA Len va trata o variantă ca un șir. Dacă VBA Len este utilizat cu un număr întreg, lung, simplu sau dublu, atunci VBA Len va conta numărul de octeți necesari pentru a stoca variabila.
| 123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 ca șirVarEx1 = 12345MsgBox Len (VarEx1) 'Rezultatul este: 5'Len numără numărul de caractere din variabilăDim VarEx2 ca variantăVarEx2 = 12345MsgBox Len (VarEx2) 'Rezultatul este: 5'Len numără numărul de caractere din variabilăDim VarEx3 ca întregVarEx3 = 12345MsgBox Len (VarEx3) 'Rezultatul este: 2'Len numără numărul de octeți folosiți pentru stocarea variabileiDim VarEx4 As LongVarEx4 = 12345MsgBox Len (VarEx4) 'Rezultatul este: 2'Len numără numărul de octeți folosiți pentru stocarea variabileiDim VarEx5 ca unicVarEx5 = 12345MsgBox Len (VarEx5) 'Rezultatul este: 2'Len numără numărul de octeți folosiți pentru stocarea variabileiDim VarEx6 ca dubluVarEx6 = 12345MsgBox Len (VarEx6) 'Rezultatul este: 2'Len numără numărul de octeți folosiți pentru stocarea variabileiSfârșitul Sub |
VBA Len Count Apariții ale unui personaj
Funcția VBA Len poate fi utilizată cu funcția VBA Replace pentru a număra de câte ori se găsește un caracter într-un șir.
Funcția de înlocuire VBA poate înlocui un șir cu un alt șir într-un text:
| 1 | MsgBox Replace („XBCX”, „X”, „7”) 'Rezultatul este: „7BC7” |
Putem folosi Înlocuire pentru a elimina caracterele pe care dorim să le numărăm cu „” și apoi să găsim diferența de lungime înainte și după înlocuire.
| 1234567891011121314 | Sub LenExample_3 ()Dim StrEx As String 'Definiți o variabilă de șirStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Înlocuiți (StrEx, ",", "")) 'Rezultatul este: 3- Defalcarea codului de mai susMsgBox Len (StrEx) 'Rezultatul este: 20MsgBox Replace (StrEx, ",", "") 'Rezultatul este: "JackJohnJimJordan"MsgBox Len (Replace (StrEx, ",", "")) 'Rezultatul este: 17MsgBox Len (StrEx) - Len (Înlocuiți (StrEx, ",", "")) 'Rezultatul este: 20-17 = 3Sfârșitul Sub |
VBA Len Count Apariții ale unui șir de caractere
Funcția VBA Len poate fi utilizată cu funcția VBA Replace pentru a număra de câte ori se găsește un șir într-un șir.
Funcția de înlocuire VBA poate înlocui un șir cu un alt șir într-un text:
| 1 | MsgBox Replace („XB cX”, „X”, „7”) 'Rezultatul este: „7B c7” |
Putem folosi Înlocuire pentru a elimina șirurile de caractere pe care dorim să le numărăm cu „” și apoi să găsim diferența de lungime înainte și după înlocuire. În cele din urmă, trebuie să împărțim diferența cu lungimea șirului pe care l-am înlocuit.
| 12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx As String 'Definiți o variabilă de șirStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String „Definiți o variabilă de substringSubStr = ","'Vom găsi de câte ori SubStr este găsit în StrExMsgBox (Len (StrEx) - Len (Replace (StrEx, SubStr, ""))) / Len (SubStr) 'Rezultatul este: 3- Defalcarea codului de mai susMsgBox Len (StrEx) 'Rezultatul este: 23MsgBox Replace (StrEx, SubStr, "") 'Rezultatul este: "JackJohnJimJordan"MsgBox Len (Replace (StrEx, SubStr, "")) 'Rezultatul este: 17MsgBox Len (StrEx) - Len (Replace (StrEx, SubStr, "")) 'Rezultatul este: 23-17 = 6MsgBox (Len (StrEx) - Len (Înlocuiți (StrEx, SubStr, ""))) / Len (SubStr)„Rezultatul este: (23-17) / 2 = 3Sfârșitul Sub |
