See õpetus näitab, kuidas kasutada funktsiooni Len VBA stringi pikkuse saamiseks.
Funktsioon Len
Funktsioon VBA Len tagastab määratud stringi pikkuse.
VBA Len loendab tegelasi
Funktsioon VBA Len loendab stringis olevaid märke.
| 1234567891011121314151617 | Alam LenExample_1 ()MsgBox Len ("12345") Tulemus on: 5MsgBox Len ("12") 'Tulemus on: 2MsgBox Len ("1") 'Tulemus on: 1MsgBox Len ("") 'Tulemus on: 1"Seal on tühik.MsgBox Len ("") 'Tulemus: 0MsgBox Len ("AB Cd") Tulemus on: 5End Sub |
VBA Len Stringid või variandid
Funktsioon VBA Len suudab loendada stringide või variantidena deklareeritud muutujate märkide arvu. Tegelikult käsitleb VBA Len varianti stringina. Kui VBA Lenit kasutatakse täisarvu, pika, ühe või kahekordse arvuga, loeb VBA Len muutuja salvestamiseks vajalike baitide arvu.
| 123456789101112131415161718192021222324252627282930313233 | Alam LenExample_2 ()Dim VarEx1 stringinaVarEx1 = 12345MsgBox Len (VarEx1) 'Tulemus on: 5"Len loeb muutuja märkeDim VarEx2 VariandinaVarEx2 = 12345MsgBox Len (VarEx2) 'Tulemus on: 5"Len loeb muutuja märkeDim VarEx3 täisarvunaVarEx3 = 12345MsgBox Len (VarEx3) 'Tulemus on: 2"Len loeb muutuja salvestamiseks kasutatud baitide arvuDim VarEx4 nii pikkVarEx4 = 12345MsgBox Len (VarEx4) 'Tulemus on: 2"Len loeb muutuja salvestamiseks kasutatud baitide arvuDim VarEx5 SingleVarEx5 = 12345MsgBox Len (VarEx5) 'Tulemus on: 2"Len loeb muutuja salvestamiseks kasutatud baitide arvuDim VarEx6 As DoubleVarEx6 = 12345MsgBox Len (VarEx6) 'Tulemus on: 2"Len loeb muutuja salvestamiseks kasutatud baitide arvuEnd Sub |
VBA Len Count Tegelase esinemised
Funktsiooni VBA Len saab kasutada koos funktsiooniga VBA Replace, et loendada, mitu korda märki stringist leitakse.
VBA asendusfunktsioon võib asendada tekstis alamstringi teise alamstringiga:
| 1 | MsgBox Replace ("XBCX", "X", "7") 'Tulemus on: "7BC7" |
Saame kasutada asendust, et eemaldada tähemärgid, millega tahame “” arvestada, ja seejärel leida pikkuse erinevus enne ja pärast asendamist.
| 1234567891011121314 | Alam LenExample_3 ()Dim StrEx stringina 'Määrake stringimuutujaStrEx = "Jack, John, Jim, Jordaania"MsgBox Len (StrEx) - Len (Asenda (StrEx, ",", "")) 'Tulemus on: 3„Ülaltoodud koodi lõhkumineMsgBox Len (StrEx) 'tulemus on: 20MsgBox Replace (StrEx, "," "") 'Tulemus on: "JackJohnJimJordan"MsgBox Len (Asenda (StrEx, ",", "")) 'Tulemus on: 17MsgBox Len (StrEx) - Len (Asenda (StrEx, ",", ""))) 'Tulemus on: 20-17 = 3End Sub |
VBA Len Count Alamstringi esinemised
Funktsiooni VBA Len saab kasutada koos funktsiooniga VBA Replace, et loendada, mitu korda alamstringi stringist leitakse.
VBA asendusfunktsioon võib asendada tekstis alamstringi teise alamstringiga:
| 1 | MsgBox Replace ("XB cX", "X", "7") 'Tulemus on: "7B c7" |
Saame kasutada asendust, et eemaldada alamstringid, millega tahame arvestada “”, ja seejärel leida pikkuse erinevus enne ja pärast asendamist. Lõpuks peame jagama erinevuse asendatud alamstringi pikkusega.
| 12345678910111213141516171819 | Alam LenExample_4 ()Dim StrEx stringina 'Määrake stringimuutujaStrEx = "Jack, John, Jim, Jordaania"Dim SubStr stringina 'Määrake alamstringi muutujaSubStr = ",""Leiame, mitu korda SubStr StrExi sees leidubMsgBox (Len (StrEx) - Len (Asenda (StrEx, SubStr, ""))) / Len (SubStr) 'Tulemus on: 3„Ülaltoodud koodi lõhkumineMsgBox Len (StrEx) 'tulemus on: 23MsgBox Replace (StrEx, SubStr, "") 'Tulemus on: "JackJohnJimJordan"MsgBox Len (Asenda (StrEx, SubStr, "")) 'Tulemus on: 17MsgBox Len (StrEx) - Len (Asenda (StrEx, SubStr, "")) 'Tulemus on: 23-17 = 6MsgBox (Len (StrEx) - Len (Asenda (StrEx, SubStr, ""))) / Len (SubStr)"Tulemus on: (23-17)/2 = 3End Sub |
