Ta vadnica bo pokazala, kako z uporabo funkcije Len VBA pridobiti dolžino niza.
Len funkcija
Funkcija VBA Len vrne dolžino podanega niza.
VBA Len Count Characters
Funkcija VBA Len šteje znake v nizu.
| 1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") 'Rezultat je: 5MsgBox Len ("12") "Rezultat je: 2MsgBox Len ("1") "Rezultat je: 1MsgBox Len ("") 'Rezultat je: 1'Tam je vesoljski lik.MsgBox Len ("") 'Rezultat je: 0MsgBox Len ("AB Cd") 'Rezultat je: 5End Sub |
Strune ali različice VBA Len
Funkcija VBA Len lahko šteje število znakov v spremenljivkah, ki so deklarirane kot nizi ali različice. Pravzaprav bo VBA Len različico obravnaval kot niz. Če se VBA Len uporablja s celim številom, dolgim, enojnim ali dvojnim, bo VBA Len prešteval število bajtov, potrebnih za shranjevanje spremenljivke.
| 123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Zatemni VarEx1 kot nizVarEx1 = 12345MsgBox Len (VarEx1) 'Rezultat je: 5'Len šteje število znakov v spremenljivkiZatemni VarEx2 kot variantoVarEx2 = 12345MsgBox Len (VarEx2) 'Rezultat je: 5'Len šteje število znakov v spremenljivkiZatemni VarEx3 kot celo številoVarEx3 = 12345MsgBox Len (VarEx3) 'Rezultat je: 2'Len šteje število bajtov, uporabljenih za shranjevanje spremenljivkeZatemni VarEx4 tako dolgoVarEx4 = 12345MsgBox Len (VarEx4) 'Rezultat je: 2'Len šteje število bajtov, uporabljenih za shranjevanje spremenljivkeZatemni VarEx5 kot enojniVarEx5 = 12345MsgBox Len (VarEx5) 'Rezultat je: 2'Len šteje število bajtov, uporabljenih za shranjevanje spremenljivkeZatemni VarEx6 kot dvojnoVarEx6 = 12345MsgBox Len (VarEx6) 'Rezultat je: 2'Len šteje število bajtov, uporabljenih za shranjevanje spremenljivkeEnd Sub |
VBA Len Count Pojavljanje lika
Funkcijo VBA Len lahko uporabite s funkcijo VBA Replace za štetje, kolikokrat je v nizu znak.
Funkcija zamenjave VBA lahko nadomesti podniz z drugim podnizom v besedilu:
| 1 | MsgBox Replace ("XBCX", "X", "7") "Rezultat je:" 7BC7 " |
Z zamenjavo lahko odstranimo znake, ki jih želimo šteti z »«, nato pa ugotovimo razliko v dolžini pred zamenjavo in po njej.
| 1234567891011121314 | Sub LenExample_3 ()Dim StrEx As String 'Določite spremenljivko nizaStrEx = "Jack, John, Jim, Jordan"MsgBox Len (StrEx) - Len (Zamenjaj (StrEx, ",", "")) 'Rezultat je: 3'Razbijanje zgornje kodeMsgBox Len (StrEx) 'Rezultat je: 20MsgBox Replace (StrEx, ",", "") 'Rezultat je: "JackJohnJimJordan"MsgBox Len (Replace (StrEx, ",", "")) 'Rezultat je: 17MsgBox Len (StrEx) - Len (Replace (StrEx, ",", "")) 'Rezultat je: 20-17 = 3End Sub |
VBA Len Count Pojav podniz
Funkcijo VBA Len lahko uporabite s funkcijo VBA Replace za štetje, kolikokrat je v nizu podniz.
Funkcija zamenjave VBA lahko nadomesti podniz z drugim podnizom v besedilu:
| 1 | MsgBox Replace ("XB cX", "X", "7") "Rezultat je:" 7B c7 " |
Z zamenjavo lahko odstranimo podniz, ki ga želimo šteti z “”, nato pa ugotovimo razliko v dolžini pred zamenjavo in po njej. Nazadnje moramo razliko razdeliti na dolžino podniz, ki smo ga zamenjali.
| 12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx As String 'Določite spremenljivko nizaStrEx = "Jack, John, Jim, Jordan"Dim SubStr As String 'Določite spremenljivko podnizSubStr = ",""Ugotovili bomo, kolikokrat je SubStr v StrExuMsgBox (Len (StrEx) - Len (Zamenjaj (StrEx, SubStr, "")))) / Len (SubStr) "Rezultat je: 3'Razbijanje zgornje kodeMsgBox Len (StrEx) 'Rezultat je: 23MsgBox Replace (StrEx, SubStr, "") 'Rezultat je: "JackJohnJimJordan"MsgBox Len (Zamenjaj (StrEx, SubStr, "")) "Rezultat je: 17MsgBox Len (StrEx) - Len (Zamenjaj (StrEx, SubStr, "")) "Rezultat je: 23-17 = 6MsgBox (Len (StrEx) - Len (Zamenjaj (StrEx, SubStr, ""))) / Len (SubStr)"Rezultat je: (23-17)/2 = 3End Sub |
