Выделить из текста все символы, располженные между первой и второй "," - 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

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

15 голосов , оценка 4.2 из 5

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

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

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