Чтение текста посимвольно и разбивка на слова - VB
Формулировка задачи:
Нужно считать строку, которая может состоять из любых символов.Потом разбить на слова. Причем разбивка идет по любому символу кроме букв.(то есть "ABCD8HD,GHYR" разбивается на "ABCD HD GHYR) Как такое написать?
Решение задачи: «Чтение текста посимвольно и разбивка на слова»
textual
Листинг программы
Strng = "AbCD8HD <> GHГћR" For i = 1 To Len(Strng) lttr = Mid(Strng, i, 1) If lttr Like "[A-Z|a-z|ГЂ-Гџ|Г*-Гї]" Then wrds = wrds & lttr Else wrds = wrds & " " End If Next Debug.Print wrds
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д