Šī apmācība parādīs, kā izmantot funkciju Len VBA, lai iegūtu virknes garumu.
Lena funkcija
Funkcija VBA Len atgriež norādītās virknes garumu.
VBA Len Count Characters
Funkcija VBA Len saskaita rakstzīmes virknē.
| 1234567891011121314151617 | Sub LenExample_1 ()MsgBox Len ("12345") Rezultāts: 5MsgBox Len ("12") Rezultāts: 2MsgBox Len ("1") Rezultāts: 1MsgBox Len ("") Rezultāts: 1'Tur ir atstarpe.MsgBox Len ("") rezultāts: 0MsgBox Len ("AB Cd") rezultāts ir: 5Beigu apakš |
VBA Len stīgas vai varianti
Funkcija VBA Len var saskaitīt rakstzīmju skaitu mainīgajos, kas deklarēti kā virknes vai varianti. Patiesībā VBA Len variantu traktēs kā virkni. Ja VBA Len tiek izmantots ar veselu skaitli, garu, vienu vai dubultu, tad VBA Len gatavojas saskaitīt baitu skaitu, kas nepieciešams mainīgā saglabāšanai.
| 123456789101112131415161718192021222324252627282930313233 | Sub LenExample_2 ()Dim VarEx1 kā virkneVarEx1 = 12345MsgBox Len (VarEx1) rezultāts: 5'Lens skaita mainīgo rakstzīmju skaituDim VarEx2 kā variantsVarEx2 = 12345MsgBox Len (VarEx2) rezultāts: 5'Lens skaita mainīgo rakstzīmju skaituDim VarEx3 kā vesels skaitlisVarEx3 = 12345MsgBox Len (VarEx3) rezultāts: 2'Lens skaita baitu skaitu, kas izmantots mainīgā saglabāšanaiDim VarEx4 As LongVarEx4 = 12345MsgBox Len (VarEx4) rezultāts: 2"Lens skaita baitu skaitu, kas izmantots mainīgā saglabāšanaiDim VarEx5 kā viensVarEx5 = 12345MsgBox Len (VarEx5) rezultāts: 2'Lens skaita baitu skaitu, kas izmantots mainīgā saglabāšanaiDim VarEx6 Kā dubultāVarEx6 = 12345MsgBox Len (VarEx6) rezultāts: 2'Lens skaita baitu skaitu, kas izmantots mainīgā saglabāšanaiBeigu apakš |
VBA Len Count Tēla atgadījumi
Funkciju VBA Len var izmantot kopā ar funkciju VBA Replace, lai saskaitītu, cik reizes virknē tiek atrasta rakstzīme.
Funkcija VBA Aizstāt tekstu var aizstāt apakšvirkni ar citu apakšvirkni:
| 1 | MsgBox Replace ("XBCX", "X", "7") 'Rezultāts: "7BC7" |
Mēs varam izmantot funkciju Aizstāt, lai noņemtu rakstzīmes, ar kurām vēlamies saskaitīt “”, un pēc tam atrast atšķirību garumā pirms un pēc nomaiņas.
| 1234567891011121314 | Sub LenExample_3 ()Dim StrEx kā virkne 'Definējiet virknes mainīgoStrEx = "Džeks, Džons, Džims, Jordānija"MsgBox Len (StrEx) - Len (Aizstāt (StrEx, ",", "")) 'Rezultāts: 3"Iepriekš minētā koda sadalīšanaMsgBox Len (StrEx) rezultāts: 20MsgBox Replace (StrEx, "," "") 'Rezultāts: "JackJohnJimJordan"MsgBox Len (Aizstāt (StrEx, ",", "")) 'Rezultāts: 17MsgBox Len (StrEx) - Len (Aizstāt (StrEx, ",", "")) 'Rezultāts: 20-17 = 3Beigu apakš |
VBA Len Count Apakšvirknes gadījumi
Funkciju VBA Len var izmantot kopā ar funkciju VBA Replace, lai saskaitītu, cik reizes virknē tiek atrasta apakšvirkne.
Funkcija VBA Aizstāt tekstu var aizstāt apakšvirkni ar citu apakšvirkni:
| 1 | MsgBox Replace ("XB cX", "X", "7") 'Rezultāts: "7B c7" |
Mēs varam izmantot funkciju Aizstāt, lai noņemtu apakšvirknes, ar kurām vēlamies saskaitīt “”, un pēc tam atrast atšķirību garumā pirms un pēc nomaiņas. Visbeidzot, mums ir jāsadala starpība ar apakšvirknes garumu, kuru mēs aizstājām.
| 12345678910111213141516171819 | Sub LenExample_4 ()Dim StrEx kā virkne 'Definējiet virknes mainīgoStrEx = "Džeks, Džons, Džims, Jordānija"Dim SubStr kā virkne 'Definējiet apakšvirknes mainīgoSubStr = ",""Mēs uzzināsim, cik reizes SubStr ir atrodams StrExMsgBox (Len (StrEx) - Len (Aizstāt (StrEx, SubStr, ""))) / Len (SubStr) 'Rezultāts: 3"Iepriekš minētā koda sadalīšanaMsgBox Len (StrEx) rezultāts: 23MsgBox Replace (StrEx, SubStr, "") rezultāts: "JackJohnJimJordan"MsgBox Len (Aizstāt (StrEx, SubStr, "")) 'Rezultāts: 17MsgBox Len (StrEx) - Len (Aizstāt (StrEx, SubStr, "")) 'Rezultāts: 23-17 = 6MsgBox (Len (StrEx) - Len (Aizstāt (StrEx, SubStr, ""))) / Len (SubStr)"Rezultāts: (23-17)/2 = 3Beigu apakš |
