Выделить из текста все символы, располженные между первой и второй "," - VB
Формулировка задачи:
Помогите plz решить задачку:
Даны две строки произвольного текста. Ихвестно, что среди символов в каждой строке имеются ",". Составить процедуру, выделяющую из текста все символы, располженные между первой и второй ",". Если второй запятой нет, получить все символы после первой запятой. В программе обрабатываются две строки.
Решение задачи: «Выделить из текста все символы, располженные между первой и второй ","»
textual
Листинг программы
Sub Test_()
On Error Resume Next
Dim sStr1, sStr2
sStr1 = Split(InputBox("Первая строка:") ",")
sStr2 = Split(InputBox("Вторая строка:") ",")
MsgBox sStr1(1) & " " & sStr2(1)
End Sub