Составить программу на VBA! Есть часть, доделать нужно.

Без имени, 137 просмотров

Помогите пожалуйста, нужно сделать программу, которая в строке все 3 символа ??? идущие подряд, заменяла на *. Как реализовать. Вот набросал
Sub valek()
Dim stroka, snew As String
Dim n, i As Integer
stroka = InputBox("Введите строку")
n = Len(stroka)
snew = ""
For i = 1 To n
c = Mid(stroka, i, 1)
If (c = "???") Then
c = "*"
End If
snew = snew + c
Next i
MsgBox (snew)
End Sub
Но тут Заменят всего один символ ? на * А мне надо,чтобы ??? на * Помогите пожалуйста!

Ответы:

Алексей Матевосов

Sub valek1()
Dim stroka As String
Dim n, i As Integer
stroka = InputBox("Введите строку")
n = Len(stroka)
For i = 1 To n
c = Mid(stroka, i, 3)
If c = "???" Then
stroka = Mid(stroka, 1, i - 1) & "*" & Mid(stroka, i + 3)
End If
Next i
MsgBox (stroka)
End Sub

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.