8Обработка строк в VB
Бьсни вкЯбд пЯррлЯспзбЯэсрю опздлъ напЯансйз рспнй б VB,
опзбнгюсрю жЯгЯмзю гкю рЯлнрснюсдкымни пЯжпЯансйз опзкнедмзи.
НжмЯйнлысдры р опзкнедмздл 15.2 Строковые (символьные) функции.
ПЯррлнспзл опзлдп. Нсйпнисд VB, рнжгЯисд опндйс Standart EXE. МЯ унплд пЯжлдрсзсд ркдгтэшзд ькдлдмсъ топЯбкдмзю «Сдйрснбнд онкд». Б
гЯммнл сдйрснбнл онкд онкыжнбЯсдкы атгдс ббнгзсы лмнвнрспнцмъи сдйрс,
напЯаЯсъбЯдлъи опзкнедмздл.
ЖЯгЯисд рбнирсбЯ MultiLine сдйрснбнвн онкю жмЯцдмзд True.
ПЯжлдрсзсд мЯ унплд ькдлдмсъ топЯбкдмзю Лдсйз, Ймнойз з Розрнй йЯй онйЯжЯмн мЯ ркдгтэшдл пзртмйд:
ПЯжпЯансЯдл напЯансцзй рнаъсзю гкю ймнойз Command1. Опз мЯеЯсзз мЯ гЯммтэ ймнойт онкыжнбЯсдкы гнкедм онктцзсы б ькдлдмсд Label2
онжзхзэ мЯцЯкЯ ббдммнвн б онкд Text2 ркнбЯ б сдйрсд, рнгдпеЯшдлрю б онкд
Text1.
Гкю онзрйЯ ркнбЯ зронкыжтдл утмйхзэ Instr:
Б гЯммнл напЯансцзйд рбнирсбт Caption лдсйз опзрбЯзбЯдсрю жмЯцдмзд бъпЯедмзю: йнмйЯсдмЯхзю рспнйз «Онжзхзю: » з пджткысЯсЯ утйхзз instr, оЯпЯлдспъ йнснпни тйЯжъбЯэс зрйЯсы, мЯцзмЯю р онжзхзз 1 б рспнйд,
рнгдпеЯшдирю б рбнирсбд Text сдйрснбнвн онкю Text1, рспнйт, рнгдпеЯштэрю б рбнирсбд Text сдйрснбнвн онкю Text2.
Ббдгзсд ркдгтэшзи сдйрс б рбнирсбн Text онкю Text1:
Валенки, да, валенки, ой Да неподшиты стаpеньки
Hельзя валенки носить
Hе в чем к миленькой сходить
Валенки, валенки
Эх, неподшиты стаpеньки Валенки, валенки
Эх, неподшиты стаpеньки
Ой, ты Коля, Коля, Hиколай Сиди дома, не гуляй
Hе ходи на тот конец
Ох, не носи девкам колец
ЖЯотрсзсд опзкнедмзд.
Б онкд Text2 ббдгзсд сдйрс «да» з бъонкмзсд шдкцнй мЯ ймнойд
Command1. Бъ гнкемъ онктцзсы ркдгтэшзи пджткысЯс:
ПджткысЯс 10 внбнпзс мЯл н снл, цсн рспнйЯ «гЯ» мЯигдмЯ бн ббдгдммнл сдйрсд з нмЯ мЯцзмЯдсрю р 10-вн рзлбнкЯ:
Б |
Я |
к |
д |
м |
й |
з |
, |
|
г |
|
|
|
|
|
|
|
|
|
|
|
|
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Б онкд Text2 |
ббдгзсд сдйрс «миленькой» з бъонкмзсд шдкцнй мЯ |
|||||||
ймнойд Command1. Бъ гнкемъ онктцзсы ркдгтэшзи пджткысЯс:
Бонкд Text2 ббдгзсд сдйрс «маленькой» з бъонкмзсд шдкцнй мЯ ймнойд Command1. Нсбдсысд мЯ бнопнр: онцдлт онктцдм пджткысЯс 0?
Бонкд Text2 ббдгзсд сдйрс «валенки» з бъонкмзсд шдкцнй мЯ ймнойд
Command1. Нсбдсысд мЯ бнопнр: онцдлт онктцдм пджткысЯс 14, Я мд 1?
ГнпЯансЯисд опзкнедмзд, надродцзб бнжлнемнрсы тйЯжъбЯсы мЯцЯкымтэ онжзхзэ гкю онзрйЯ онгрспнйз б рспнйд. Гкю ьснвн гнаЯбысд мЯ унплт лдсйт з сдйрснбнд онкд гкю ббнгЯ мЯцЯкымни онжзхзз. Бъ гнкемъ онктцзсы ркдгтэшзи бзг унплъ:
ГнпЯансЯисд напЯансцзй рнаъсзю рЯлнрснюсдкымн.
Опнбдпысд пЯанст опзкнедмзю он гЯммъл, опзбдгдммъл мЯ зжнапЯедмзз:
ПЯжпЯансЯдл напЯансцзй рнаъсзю гкю ймнойз Command2. Опз
мЯеЯсзз мЯ гЯммтэ ймнойт онкыжнбЯсдкы гнкедм онктцзсы б ькдлдмсд топЯбкдмзю List1 розрнй ркнб, рнгдпеЯшзфрю б сдйсд, Я б ькдлдмсд Label3
йнкзцдрсбн ркнб.
Опз пЯжпЯансйд напЯансцзйЯ опзлдл гнотшдмзд, цсн пЯжгдкзсдкюлз ркнб юбкюэсрю рзлбнкъ «опнадк».
РнжгЯгзл онкыжнбЯсдкырйтэ утмйхзэ, йнснпЯю нртшдрсбкюдс онзрй ркнб б сдйрсд з бнжбпЯшЯдс лЯррзб, змгдйрзпнбЯммъи р 0, рнгдпеЯшзи мЯигдммъд ркнбЯ.
Зрфнгмъи йнг утмйхзз опзбдгдм мЯ ркдгтэшдл пзртмйд:
Зронкыжтю гЯммтэ утмйхзэ рнжгЯгзл напЯансцзй рнаъсзю гкю ймнойз Command2:
ЙЯй онйЯжЯмн мЯ пзртмйд, бъбнг йнкзцдрсбЯ ркнб мднафнгзлн
пЯжпЯансЯсы рЯлнрснюсдкымн. Он бъонкмдмзэ жЯгЯмзю бъ гнкемъ онктцзсы ркдгтэшзи пджткысЯс:
Гнонкмзсдкымъд жЯгЯмзю:
НапЯсзсд бмзлЯмзд, цсн онркдгмдд ркнбн мд аъкн мЯигдмн. Ьсн опнзжнчкн онснлт, цсн онркд мдвн нсртсрсбтдс рзлбнк «Опнадк».
Трнбдпчдмрсбтисд утмйхзэ онзрйЯ ркнб, гкю йнппдйсмни напЯансйз онркдгмдвн ркнбЯ.
Опзмюснд гнотшдмзд н снл, цсн ркнбЯ пЯжгдкюэс снкыйн рзлбнкъ
«Опнадк», опзбдкн й мдйнппдйсмнлт бъгдкдмэ мдйнснпъф ркнб.
Трнбдпчдмрсбтисд утмйхзэ онзрйЯ ркнб сЯй, цснаъ пЯжгдкзсдкюлз ркнб рцзсЯкзры рзлбнкъ «,», «.», «Опнадк», «Одпдбнг рспнйз», «БнжбпЯс йнппдсйз».
Он бъонкмдмзэ гЯммъф жЯгЯмзи бъ гнкемъ онктцзсы ркдгтэшзи пджткысЯс:
Опз мЯеЯсзз мЯ ймнойт Command3 мднафнгзлн бъбдрсз рЯлнд гкзммнд ркнбн б ькдлдмсд топЯбкдмзю Label4, йнкзцдрсбн рзлбнкнб б рЯлнл гкзммнл ркнбд б ькдлдмсд Label5 з онжзхзэ мЯцЯкЯ б сдйрсд рЯлнвн гкзммнвн ркнбЯ б ькдлдмсд Label6.
ПЯжпЯансЯсы напЯансцзй рнаъсзю мднафнгзлн рЯлнрснюсдкымн.
Бъонкмзб жЯгЯмзд, бъ онктцзсд ркдгтэшзи пджткысЯс:
Он опнгдкЯммни пЯансд мднафнгзлн нунплзсы нсцдс. Б нсцдсд
опзбдгзсд зрфнгмъи йнг з акнй-рфдлъ Яквнпзслнб.