Получить одну из частей строки, разделенную пробелами - VB

Формулировка задачи:

Как брать отдельные строчки из TxtBox'a? Т.е. допустим есть тхтбокс в нем написано "Акфц аа2 цвп!" как из этой строки взять аа2 т.е. чтобы S = "aa2"

Решение задачи: «Получить одну из частей строки, разделенную пробелами»

textual
                            Листинг программы 
                        
 
                        
                          
                    
sub main
msgbox ТолькоБуквы(split("""ФВЫФ: 127 ОЫФЦ""")(0))
end sub
 
function ТолькоБуквы$(byval S$)
For i = 1 To Len(S)
  if Mid$(S, i, 1) Like "[A-Za-zА-Яа-яЁё]"then ТолькоБуквы=ТолькоБуквы & Mid$(S, i, 1)
Next
end function

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

11 голосов , оценка 3.727 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы