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