Задача в VBA: Дана строка S и символ C. Удвоить каждое вхождение символа C в строке S.

Чтобы удвоить каждое вхождение символа C в строке S, нужно пройти по всем символам и собрать новую строку. Если очередной символ совпадает с C, добавляем его дважды, иначе — один раз.

В VBA это делается так:

• Объяви переменные: Dim i As Integer, result As String
• Пройди циклом For i = 1 To Len(S)
• Извлекай символ функцией Mid(S, i, 1)
• Если Mid(S, i, 1) = C, то result = result & C & C, иначе result = result & Mid(S, i, 1)
• После цикла в переменной result будет нужная строка

Строки в VBA неизменяемы, поэтому при каждом добавлении создаётся новая строка. Для коротких строк это не проблема.

0 0 Пожаловаться