Преглед садржаја
Можете извести логику или вратити појединачне знакове из низа у ВБА тако што ћете провући низ.
Прођите кроз сваки знак у низу
Следи пример петље кроз низ помоћу Фор… Нект Лооп и враћање сваког знака у оквир за поруке.
| 1234567891011121314 | Суб ЛоопТхроугхСтринг ()Дим Цоунтер Ас ИнтегерДим МиСтринг Ас СтрингМиСтринг = "АутоматеЕкцел" 'дефинишите низФор Цоунтер = 1 То Лен (МиСтринг)'уради нешто сваком знаку у низу'овде ћемо послати поруку сваком знакуМсгБок Мид (МиСтринг, Цоунтер, 1)СледећиЕнд Суб |
Лен функција броји укупан број знакова у низу. Дакле израз
| 1 | За бројач = 1 до Лен (МиСтринг |
ће проћи кроз свако слово у низу.
Прођите кроз сваки знак у низу - алтернатива
Прочитајте сваки знак у низу
: Овај пример чита сваки знак у низу с лева на десно и враћа резултат у оквир за поруку. Она користи Мид функција.
| 12345678910111213 | Суб ЛоопТхроугхСтринг ()Дим ЛоокИнХере Ас СтрингДим Цоунтер Ас Интегер„Овде користите свој текстЛоокИнХере = "еасиекцел.нет"Фор Цоунтер = 1 То Лен (ЛоокИнХере)МсгБок Мид (ЛоокИнХере, Цоунтер, 1)СледећиЕнд Суб |
Читајте сваку реч у низу
Овај пример чита сваку реч у низу с лева на десно и враћа резултат у оквир за поруку. Она користи Разделити функција.
| 1234567891011121314151617 | Суб ЛоопТхроугхСтринг2 ()Дим ЛоокИнХере Ас СтрингДим Цоунтер Ас ИнтегерДим СплитЦатцхер као варијанта„Овде користите свој текстЛоокИнХере = "И Хеарт еасиекцел.нет"СплитЦатцхер = Раздвоји (ЛоокИнХере, "")За бројач = 0 до УБоунд (СплитЦатцхер)МсгБок СплитЦатцхер (бројач)СледећиЕнд Суб |
