Question

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

Answer 1

Sub Zadanie()
Dim S As String
Dim C As String
S = InputBox("Stroka?")
Again:
C = InputBox("Simvol?")
If Len(C) <> 1 Then GoTo Again
S = Replace(S, C, C + C)
MsgBox (S)
End Sub

Answer 2

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

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

Вот пример кода, который решает данную задачу:

Function DoubleChar(S As String, C As String) As String
    Dim result As String
    Dim i As Integer
    
    For i = 1 To Len(S)
        If Mid(S, i, 1) = C Then
            result = result & C & C
        Else
            result = result & Mid(S, i, 1)
        End If
    Next i
    
    DoubleChar = result
End Function

Вы можете вызвать эту функцию, передавая ей строку S и символ C в качестве аргументов. Функция вернет новую строку, в которой каждое вхождение символа C будет удвоено.

Пример использования:

Sub TestDoubleChar()
    Dim S As String
    Dim C As String
    Dim result As String
    
    S = "Hello World"
    C = "o"
    
    result = DoubleChar(S, C)
    
    MsgBox result ' Выведет "Helloo Woorld"
End Sub

Обратите внимание, что в данном примере функция регистрозависима, то есть символы в верхнем и нижнем регистре будут считаться разными символами. Если вам нужно игнорировать регистр, то можно использовать функцию `UCase` или `LCase` для приведения символов к одному регистру перед сравнением.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.