Заменить все вхождения подстроки Str1 на подстроку Str2, которые вводятся с клавиатуры. - VB

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

1 Заменить все вхождения подстроки Str1 на подстроку Str2, которые вводятся с клавиатуры. 2 Дана строка символов, среди которых есть двоеточие (. Определить, сколько символов ему предшествует 3 Выписать из символьной строки слова, начинающиеся и заканчивающиеся на одну и ту же букву. если не трудно помогите с решением (желательно код начиная с Dim) тут вообще не понимаю как именно сделать %(

там не смайлик там ( : )

Решение задачи: «Заменить все вхождения подстроки Str1 на подстроку Str2, которые вводятся с клавиатуры.»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim sSource As String, sFindWhat As String
Dim sReplace As String, sDest As String
sSource = InputBox("Введите произвольную строку")
sFindWhat = InputBox("Что ищем?")
sReplace = InputBox("На что меняем?")
sDest = Replace(sSource, sFindWhat, sReplace)
MsgBox sSource & vbNewLine & sFindWhat & vbNewLine & _
        sReplace & vbNewLine & sDest

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

13 голосов , оценка 4.077 из 5

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

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

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