Получить одну из частей строки, разделенную пробелами - 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