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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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