ВБА има много функција низа које ће вам омогућити манипулацију и рад са текстом и низовима у вашем коду. У овом водичу ћемо покрити функције које ће вам омогућити да издвојите подниз из низова, уклоните размаке из низова, претворите величину текста или низа, упоредите низове и друге корисне функције низа.
Издвајање подниз
ВБА функција левог низа
ВБА Лефт функција вам омогућава да извучете подниз из текста или низа који почиње са леве стране. Синтакса ВБА функције левог низа је:
Лево (Стринг, Нум_оф_цхарацтерс) где:
- Стринг - Оригинални текст.
- Број_знакова - Цео број који одређује број знакова за издвајање из оригиналног текста почевши од почетка.
Следећи код вам показује како да користите функцију левог низа за издвајање прва четири знака датог низа:
| 1234567891011 | Суб УсингТхеЛефтСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингвалуеОне = "Аутоматизуј Екцел"валуеТво = Лево (валуеОне, 4)МсгБок валуеТвоЕнд Суб |
Резултат је:
Лева функција је издвојила прва четири слова АутоматеЕкцел, а то су Аутоматски.
ВБА функција десног низа
ВБА Десна функција вам омогућава да извучете подниз из текста или низа који почиње са десне стране. Синтакса ВБА функције десног низа је:
Десно (Стринг, Нум_оф_цхарацтерс) где:
- Стринг - Оригинални текст.
- Број_знакова - Цео број који наводи број знакова за издвајање из оригиналног текста почевши од краја.
Следећи код вам показује како да користите функцију десног низа за издвајање последња четири знака низа:
| 1234567891011 | Суб УсингТхеРигхтСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингвалуеОне = "Аутоматизуј Екцел"валуеТво = Десно (валуеОне, 4)МсгБок валуеТвоЕнд Суб |
Резултат је:
Права функција је издвојила последња четири слова АутоматеЕкцел -а, а то су кцел.
ВБА функција средњег низа
ВБА Мид функција вам омогућава да извучете подниз из текста или низа, почевши од било које позиције у низу коју наведете. Синтакса ВБА Мид Стринг функције је:
Средњи (низ, почетна_позиција, [број_знакова]) где:
- Стринг - Оригинални текст.
- Стартинг_поситион - Позиција у оригиналном тексту, одакле ће функција почети да се издваја.
- Број_знакова (Опционо) - Цео број који наводи број знакова за издвајање из оригиналног текста почевши од позиције Стартинг_поситион. Ако је празно, функција МИД ће вратити све знакове са позиције Стартинг_поситион.
Следећи код вам показује како да користите функцију средњег низа за издвајање четири знака, почевши од друге позиције или карактера у низу:
| 1234567891011 | Суб УсингТхеМидСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингвалуеОне = "Аутоматизуј Екцел"валуеТво = Мид (валуеОне, 2, 4)МсгБок валуеТвоЕнд Суб |
Резултат се шаље у сандучић за поруке:
Средња функција је издвојила четири слова АутоматеЕкцел -а почевши од другог знака/позиције/слова која су утом.
Проналажење положаја подниза
ВБА Инстр Стринг функција
ВБА Инстр функција враћа почетну позицију подниза у другом низу. Ова функција разликује мала и велика слова. Синтакса ВБА Инстр Стринг функције је:
Инстр ([Старт], Стринг, Субстринг, [Упореди]) где:
- Почетак (Опционо) - Ово одређује почетну позицију функције са које се тражи. Ако је поље празно, користи се подразумевана вредност 1.
- Стринг - Оригинални текст.
- Подниз- Подниз у оригиналном тексту за који желите да пронађете позицију.
- Упоредити (Опционо)- Ово одређује врсту поређења које треба направити. Ако је празно, користи се бинарно поређење.
-вбБинариЦомпаре - Бинарно поређење (Велика и мала слова се сматрају различитим)
-вбТектЦомпаре - Поређење текста (Велика и мала слова се сматрају истим)
-вбДатабасеЦомпаре - Упоређивање базе података (Ова опција се користи само у Мицрософт Аццессу и представља поређење засновано на бази података)
Следећи код вам показује како да користите функцију стринга у низу за одређивање првог појављивања подниза „Тх“ унутар главног низа:
| 123456789101112 | Суб УсингТхеИнстрСтрингФунцтион ()Дим валуеОне Ас СтрингЗатамните позицију подниз као цео бројвалуеОне = "Ово је текст"позитионофСубстринг = ИнСтр (1, валуеОне, "Тх")Дебуг.Принт позитионофСубстрингЕнд Суб |
Резултат (излаз у непосредни прозор) је:
Функција Инстр вратила је позицију првог појављивања подниза "Тх" која је 1. Имајте на уму да ова функција укључује размаке у одбројавању.
ВБА ИнстрРев низ функција
ВБА ИнстрРев функција враћа почетну позицију подниза у другом низу, али почиње да броји позицију, од краја низа. Ова функција разликује мала и велика слова. Синтакса ВБА ИнстрРев стринг функције је:
ИнстрРев (Стринг, Субстринг, [Старт], [Цомпаре]) где:
- Стринг - Оригинални текст.
- Подниз- Подниз у оригиналном тексту за који желите да пронађете позицију.
- Почетак (Опционо) - Ово одређује позицију са које почиње претрага. Ако је празно, функција почиње тражење од задњег знака.
- Упоредити (Опционо)- Ово одређује врсту поређења које треба направити. Ако је празно, користи се бинарно поређење.
-вбБинариЦомпаре - Бинарно поређење (Велика и мала слова се сматрају различитим)
-вбТектЦомпаре - Поређење текста (Велика и мала слова се сматрају истим)
-вбДатабасеЦомпаре - Упоређивање базе података (Ова опција се користи само у Мицрософт Аццессу и представља поређење засновано на бази података)
Следећи код вам показује како да употребите функцију ИнстрРев Стринг за одређивање првог појављивања подниза „Тх“ унутар главног низа, почевши од краја низа:
| 1234567891011 | Суб УсингТхеИнстрРевСтрингФунцтион ()Дим валуеОне Ас СтрингЗатамните позицију подниз као цео бројвалуеОне = "Ово је текст"позитионофСубстринг = ИнСтрРев (валуеОне, "Тх")Дебуг.Принт позитионофСубстрингЕнд Суб |
Резултат се шаље у непосредни прозор:
Функција ИнстрРев вратила је позицију првог појављивања подниза "Тх", али почиње бројање од краја који је 9. Имајте на уму да ова функција укључује размаке у одбројавању.
Уклањање размака из низа
ВБА ЛТрим стринг функција
ВБА ЛТрим функција уклања све водеће размаке из текста или низа. Синтакса ВБА ЛТрим стринг функције је:
ЛТрим (низ) где:
- Стринг - Оригинални текст.
Следећи код вам показује како да употребите функцију ВБА ЛТрим за уклањање водећих размака у датом низу:
| 123456789101112 | Суб УсингТхеЛТримСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингвалуеОне = "Ово је адреса веб локације хттпс://еасиекцел.нет/екцел/"валуеТво = ЛТрим (валуеОне)МсгБок валуеОнеМсгБок валуеТвоЕнд Суб |
Резултати су следећи:
ЛТрим функција уклонила је водеће просторе за валуетво, што је приказано у другом оквиру за поруке.
ВБА РТрим стринг функција
ВБА РТрим функција уклања све крајње размаке из текста или низа. Синтакса ВБА РТрим стринг функције је:
РТрим (низ) где:
- Стринг - Оригинални текст.
Следећи код вам показује како да употребите функцију ВБА РТрим за уклањање заосталих размака у датом низу:
| 123456789101112 | Под помоћу ТхеРТримСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингвалуеОне = "Ово је адреса веб локације хттпс://еасиекцел.нет/екцел/"валуеТво = РТрим (валуеОне)МсгБок валуеОнеМсгБок валуеТвоЕнд Суб |
Достављени резултати су:
Функција РТрим уклонила је крајње размаке за валуетво, који је приказан у другом оквиру за поруке.
ВБА Трим Стринг функција
ВБА Трим функција уклања све водеће и крајње размаке из текста или низа. Синтакса ВБА Трим Стринг функције је:
Трим (стринг) где:
- Стринг - Оригинални текст.
Следећи код вам показује како да употребите ВБА Трим функцију за уклањање почетних и задњих размака у датом низу:
| 123456789101112 | Суб УсингТхеТримСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингвалуеОне = "Ово је адреса веб локације хттпс://еасиекцел.нет/екцел/"валуеТво = Трим (валуеОне)МсгБок валуеОнеМсгБок валуеТвоЕнд Суб |
Резултати су следећи:
Функција скраћивања је уклонила водећи и задњи размак за валуетво, који је приказан у другом оквиру за поруке.
ВБА функције кућишта
ВБА ЛЦасе низ функција
ВБА ЛЦасе функција претвара слова у тексту или низу у мала слова. Синтакса ВБА ЛЦасе стринг функције је:
ЛЦасе (Стринг) где:
- Стринг - Оригинални текст.
Следећи код вам показује како да користите функцију ЛЦасе Стринг за претварање свих слова у датом низу у мала слова:
| 1234567891011 | Под помоћу ТХЕЛЦасеСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингвалуеОне = "Ово је производ"валуеТво = ЛЦасе (валуеОне)МсгБок валуеТвоЕнд Суб |
Резултат је:
ЛЦасе функција је претворила сва слова у низу у мала слова.
ВБА УЦасе низ функција
ВБА УЦасе функција претвара слова у тексту или низу у велика слова. Синтакса ВБА УЦасе стринг функције је:
УЦасе (Стринг) где:
- Стринг - Оригинални текст.
Следећи код вам показује како да користите функцију УЦасе Стринг за претварање свих слова у датом низу у велика слова:
| 1234567891011 | Под помоћу ТХЕУЦасеСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингвалуеОне = "ово је производ"валуеТво = УЦасе (валуеОне)МсгБок валуеТвоЕнд Суб |
Резултат је:
УЦасе функција је претворила сва слова у низу у велика слова.
ВБА СтрЦонв функција
ВБА СтрЦонв функција може претворити слова у тексту или низу у велика, мала слова, одговарајућа слова или уницоде овисно о врсти претворбе коју наведете. Синтакса ВБА СтрЦонв стринг функције је:
СтрЦонв (Стринг, Цонверсион, [ЛЦИД]) где:
- Стринг - Оригинални текст.
- Конверзија - Врста конверзије коју желите.
- [ЛЦИД] (Опционо) -Опциони параметар који наводи ЛоцалеИД. Ако је празно, користи се системски ЛоцалеИД.
Следећи код вам показује како да користите функцију СтрЦонв Стринг за претварање низа у одговарајућа слова:
| 1234567891011 | Суб УсингТхеСтрЦонвСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингвалуеОне = "ово је производ"валуеТво = СтрЦонв (валуеОне, вбПроперЦасе)МсгБок валуеТвоЕнд Суб |
Резултат је:
Помоћу параметра конверзије одређујете врсту конверзије коју желите да изведете:
- вбЛоверЦасе претвара сва слова у тексту у мала слова.
- вбУпперЦасе претвара сва слова у тексту у велика слова.
- вбПроперЦасе претвара прво слово сваке речи у тексту у велика слова, док се сва друга слова воде као мала слова.
- вбУницоде претвара низ у уницоде.
- вбФромУницоде претвара низ из уницоде у подразумевану кодну страницу система.
Упоређивање жица
ВБА СтрЦомп функција
ВБА СтрЦомп низ функција вам омогућава да упоредите два низа. Функција враћа:
- 0 ако се два низа подударају
- -1 ако је стринг1 мањи од стринг2
- 1 ако је стринг1 већи од стринг2
- Нулта вриједност ако је било који низ знакова Нулл
Следећи код вам показује како да користите функцију СтрЦомп за упоређивање два низа:
| 123456789101112 | Под помоћу ТхеСтрЦомпСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингЗатамњени резултати поређења као цео бројвалуеОне = "Аутоматизуј Екцел"валуеТво = "Аутоматизуј Екцел"резултатЦомпарисон = СтрЦомп (валуеОне, валуеТво)Отклањање грешака. Штампање резултата поређењаЕнд Суб |
Резултат је:
Функција СтрЦомп је пронашла потпуно подударање између два низа и вратила 0.
Оператор попут ВБА
ВБА Лике Оператор вам омогућава да упоредите текст или низ са шаблоном и видите да ли постоји подударање. Обично бисте користили оператор "Свиђа се" заједно са џокерима. Следећи код вам показује како се користи оператер Лике:
| 123456789101112 | Суб УсингТхеЛикеОператорИнВБА ()Дим валуеОне Ас СтрингвалуеОне = "Погледајмо излаз"Ако валуеОне Лике "*виев*" ОндаМсгБок "Постоји подударање, овај низ садржи реч поглед"ИначеМсгБок "Није пронађено подударање"Крај АкоЕнд Суб |
Резултат је:
Замјенски знакови које можете користити са оператором Свиђа за проналажење подударања узорака укључују:
- ? који одговара једном знаку
- # који се подудара са једном цифром
- * који одговара нули или више знакова
Следећи код вам показује како бисте користили Лике Оператор и? џокер који одговара узорку у вашем коду:
| 123456789101112 | Суб УсингТхеЛикеОператорВитхАВилдцардИнВБА ()Дим валуеОне Ас СтрингвалуеОне = "Тхе"Ако валуеОне Лике "?? е" ОндаМсгБок "Постоји подударање, пронађен је одговарајући образац"ИначеМсгБок "Није пронађено подударање"Крај АкоЕнд Суб |
Испоручени резултат је:
Друге корисне ВБА стринг функције
ВБА функција замене низа
ВБА функција замене замењује скуп знакова у низу другим скупом знакова. Синтакса ВБА Реплаце Стринг функције је:
Замени (Стринг, Финд, Реплаце, [Старт], [Цоунт], [Цомпаре]) где:
- Стринг - Оригинални текст.
- Нађи - Подниз за тражење унутар оригиналног текста.
- Замени - подниз којим треба заменити подниз Финд.
- Почетак (Опционо)- Положај за почетак претраживања унутар оригиналног текста. Ако је празно, користи се вредност 1 и функција почиње на позицији првог знака.
- Броји (Опционо)- Број појављивања подниза Финд у оригиналном тексту који треба заменити. Ако је празно, сва појављивања подниза Финд се замењују.
- Упоредити (Опционо)- Ово одређује врсту поређења које треба направити. Ако је празно, користи се бинарно поређење.
-вбБинариЦомпаре - Бинарно поређење
-вбТектЦомпаре - Поређење текста
-вбДатабасеЦомпаре - Упоређивање базе података (Ова опција се користи само у Мицрософт Аццессу и представља поређење засновано на бази података.)
Следећи код приказује како се користи функција замене низа:
| 1234567891011 | Суб УсингТхеРеплацеСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингвалуеОне = "ПродуцтАБЦ"валуеТво = Замени (валуеОне, "АБЦ", "КСИЗ")МсгБок валуеТвоЕнд Суб |
Резултат је:
Функција замене је пронашла подниз АБЦ унутар ПродуцтАБЦ -а и заменила га поднизом КСИЗ.
ВБА СтрРеверсе функција
ВБА СтрРеверсе функција обрће знакове у датом тексту или низу. Синтакса ВБА СтрРеверсе стринг функције је:
СтрРеверсе (Стринг) где:
- Стринг - Оригинални текст.
Следећи код вам показује како да користите функцију ВБА СтрРеверсе за преокретање знакова у низу Производ:
| 1234567891011 | Суб УсингТхеСтрРеверсеСтрингФунцтион ()Дим валуеОне Ас СтрингДим валуеТво Ас СтрингвалуеОне = "Производ"валуеТво = СтрРеверсе (валуеОне)МсгБок валуеТвоЕнд Суб |
Резултат је:
ВБА Лен стринг функција
ВБА Лен функција враћа број знакова у текстуалном низу. Синтакса ВБА Лен стринг функције је:
Лен (низ) где:
- Стринг - Оригинални текст.
Следећи код вам показује како да употребите Лен стринг функцију за одређивање дужине низа АутоматеЕкцел:
| 1234567891011 | Суб УсингТхеЛенФунцтион ()Дим валуеОне Ас СтрингДим стрингЛенгтх Ас ИнтегервалуеОне = "Аутоматизуј Екцел"стрингЛенгтх = Лен (валуеОне)Дебуг.Принт стрингЛенгтхЕнд Суб |
Резултат је:
Лен функција је пребројила све знакове у тексту АутоматеЕкцел, који има 13 слова.
