Чтение текста посимвольно и разбивка на слова - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы