Овај водич ће показати како се помоћу Лен ВБА функције добија дужина низа.
Лен функција
ВБА Лен функција враћа дужину наведеног низа.
ВБА Лен Цоунт Цхарацтерс
ВБА Лен функција броји знакове у низу.
| 1234567891011121314151617 | Под ЛенЕкампле_1 ()МсгБок Лен ("12345") 'Резултат је: 5МсгБок Лен ("12") 'Резултат је: 2МсгБок Лен ("1") 'Резултат је: 1МсгБок Лен ("") 'Резултат је: 1„Тамо је свемирски лик.МсгБок Лен ("") 'Резултат је: 0МсгБок Лен ("АБ Цд") 'Резултат је: 5Енд Суб |
ВБА Лен жице или варијанте
ВБА Лен функција може да изброји број знакова у променљивим који су декларисани као низови или варијанте. Заправо, ВБА Лен ће варијанту третирати као низ. Ако се ВБА Лен користи са целим бројем, дугим, једним или двоструким, тада ће ВБА Лен бројати број бајтова потребних за складиштење променљиве.
| 123456789101112131415161718192021222324252627282930313233 | Под ЛенЕкампле_2 ()Дим ВарЕк1 као низВарЕк1 = 12345МсгБок Лен (ВарЕк1) 'Резултат је: 5'Лен броји број знакова у променљивојДим ВарЕк2 као варијантаВарЕк2 = 12345МсгБок Лен (ВарЕк2) 'Резултат је: 5'Лен броји број знакова у променљивојДим ВарЕк3 као цео бројВарЕк3 = 12345МсгБок Лен (ВарЕк3) 'Резултат је: 2'Лен броји број бајтова који се користе за складиштење променљивеДим ВарЕк4 Ас ЛонгВарЕк4 = 12345МсгБок Лен (ВарЕк4) 'Резултат је: 2'Лен броји број бајтова који се користе за складиштење променљивеДим ВарЕк5 као синглВарЕк5 = 12345МсгБок Лен (ВарЕк5) 'Резултат је: 2'Лен броји број бајтова који се користе за складиштење променљивеДим ВарЕк6 као двострукиВарЕк6 = 12345МсгБок Лен (ВарЕк6) 'Резултат је: 2'Лен броји број бајтова који се користе за складиштење променљивеЕнд Суб |
ВБА Лен Цоунт Појаве лика
ВБА Лен функција се може користити са ВБА Реплаце функцијом за бројање колико се пута знак налази у низу.
ВБА функција замене може заменити подстринг другим поднизом у тексту:
| 1 | МсгБок Реплаце ("КСБЦКС", "Кс", "7") 'Резултат је: "7БЦ7" |
Можемо користити Реплаце за уклањање знакова које желимо да бројимо са „”, а затим пронаћи разлику у дужини пре и после замене.
| 1234567891011121314 | Под ЛенЕкампле_3 ()Дим СтрЕк Ас Стринг 'Дефинишите променљиву низаСтрЕк = "Јацк, Јохн, Јим, Јордан"МсгБок Лен (СтрЕк) - Лен (Замени (СтрЕк, ",", "")) 'Резултат је: 3'Разбијање горњег кодаМсгБок Лен (СтрЕк) 'Резултат је: 20МсгБок Реплаце (СтрЕк, ",", "") 'Резултат је: "ЈацкЈохнЈимЈордан"МсгБок Лен (Реплаце (СтрЕк, ",", "")) 'Резултат је: 17МсгБок Лен (СтрЕк) - Лен (Реплаце (СтрЕк, ",", "")) 'Резултат је: 20-17 = 3Енд Суб |
ВБА Лен Цоунт Појаве подниз
ВБА Лен функција се може користити са ВБА Реплаце функцијом за бројање колико се пута низ налази у низу.
ВБА функција замене може заменити подстринг другим поднизом у тексту:
| 1 | МсгБок Реплаце ("КСБ цКс", "Кс", "7") 'Резултат је: "7Б ц7" |
Можемо користити Реплаце за уклањање поднизова које желимо пребројати са “”, а затим пронаћи разлику у дужини прије и након замјене. Коначно, морамо поделити разлику са дужином подниза који смо заменили.
| 12345678910111213141516171819 | Под ЛенЕкампле_4 ()Дим СтрЕк Ас Стринг 'Дефинишите променљиву низаСтрЕк = "Јацк, Јохн, Јим, Јордан"Дим СубСтр Ас Стринг 'Дефинишите променљиву поднизСубСтр = ","„Открићемо колико се пута СубСтр налази унутар СтрЕк -аМсгБок (Лен (СтрЕк) - Лен (Реплаце (СтрЕк, СубСтр, "")))) / Лен (СубСтр) 'Резултат је: 3'Разбијање горњег кодаМсгБок Лен (СтрЕк) 'Резултат је: 23МсгБок Реплаце (СтрЕк, СубСтр, "") 'Резултат је: "ЈацкЈохнЈимЈордан"МсгБок Лен (Реплаце (СтрЕк, СубСтр, "")) "Резултат је: 17МсгБок Лен (СтрЕк) - Лен (Замени (СтрЕк, СубСтр, "")) 'Резултат је: 23-17 = 6МсгБок (Лен (СтрЕк) - Лен (Замени (СтрЕк, СубСтр, "")))) / Лен (СубСтр)'Резултат је: (23-17)/2 = 3Енд Суб |
