Как заменить 1 символ в строке на несколько других?

[IgorA]

Как заменить 1 символ в строке на несколько других?
т.е. известно что в строке надо поменять 5 символ на "?".

[tyomitch]

Код: Выделить всё

ТвояСтрока = Replace(ТвояСтрока, ТоЧтоЗаменяешь, ТоНаЧтоЗаменяешь)

[IgorA]

Код: Выделить всё

ТвояСтрока = Replace(ТвояСтрока, ТоЧтоЗаменяешь, ТоНаЧтоЗаменяешь)

А можно не поиском, а просто заданный символ?

[GSerg]

Один к одному - можно.
Один на много - либо replace, либо left$ & твоё & right$.

[A.A.Z.]

Код: Выделить всё

Private Sub Form_Load()
Dim ТвояСтрока$
ТвояСтрока = "абвгдеёжз"
MsgBox Замена(ТвояСтрока, 5, "бла")
End Sub

Function Замена(ByVal Где As String, ByVal Позиция As Long, ByVal НаЧто As String) As String
If Len(Где) < Позиция Then Exit Function
Замена = VBA.Left(Где, Позиция - 1) & НаЧто & VBA.Right(Где, Len(Где) - Позиция)
End Function

[A.A.Z.]

И опять приоритет у GSerg'а
Хотя ладно, я просто подкрепил его слова кодом

[IgorA]

а что не так вот тут:
mass(i, n) = Replace(mass(i, n), "-", "?", 1, 1, 1)

[tyomitch]

а что не так вот тут:
mass(i, n) = Replace(mass(i, n), "-", "?", 1, 1, 1)

Всё так... А что не так?

[IgorA]

а что не так вот тут:
mass(i, n) = Replace(mass(i, n), "-", "?", 1, 1, 1)

Всё так... А что не так?

выдает False
хотя все в него передается

[GSerg]

Значит нефиг не использовать option explicit, видимо...

[ALX_2002]

Челы... А так не судьба ?

Код: Выделить всё

A = "123456"
Mid(A, 1, 2) = "dd"
MsgBox A


[tyomitch]

Не судьба. Надо один на несколько.

[ALX_2002]

2 tyomitch: Шеф... Чес слово, я конечно тормоз, но не тупой...

Именно так оно и пашет. Чес слово. Проверь.

[GSerg]

Ой ли?

[tyomitch]

Именно так оно и пашет. Чес слово. Проверь.

Сам-то проверял?

[ALX_2002]

Челы ! ! ! НУ Я Ж НЕ ПСИХ ! Глядите !!



Ну серьёзно !

Вопрос такой - заменить в строке 1 символ на несколько. Именно это и

делает код. Взгляните

Код: Выделить всё

A = "123456"
Mid(A, 2, 2) = "dd"
MsgBox A


Ниже мой скрин

[GSerg]

Ну и чё? Заменил 2 на 2. А ты 1 на 2 заменить попробуй.

[tyomitch]

ALX_2002, ты что, издеваешься?

Была строка: "123456"
Стала строка: "1dd456"

Сколько символов заменено? 2
На сколько? На 2

Ещё есть сомнения?

[edit] Вот, опять не успел [/edit]

[ALX_2002]

Блин.... Я туплю.... Ещё раз извините.... Мне видать сёдня совсем плохо....

У меня сёдня весь день такой....

Всё... Исчезаю....