Replaceval: не выходить поменить местами {"} на {\"}

[Guest]

Мне надо проверить значении на наличие в нем кавычек, если есть таковые то заменить на \"
Надыбал функцию Replace(),
array1(0) = sourceArray - "ТОВ "ИКП""
array2(0) = findArray - {"}
array3(0) = replacementArray - {\"}

ReplaceVal = Replace(array1, array2, array3)

Не работает

 

[ToxaRat]

Денис Кириченко
функция меняет весь член на другой а не часть строки

 

[morpheus]

https://codeby.net/threads/11883.html

 

[Guest]

Все огромное спасибо, очень помогло.
P.S. Отдельные плюс модератору за скорость. Спасибо Morpheus.

 

[Akupaka]

подождите, меня глючит или функция Replace меняет все как надо?..

Не работает

а что именно у тебя не сработало хотя бы?

	Dim s As String
s = |Hell"o worl"d|
Msgbox Replace(s, {"}, {\"})

'Prints Hell\"o worl\"d


Dim array1 (0) As String
Dim array2 (0) As String
Dim array3 (0) As String
array1(0) = "ТОВ ""ИКП"""
array2(0) = {"}
array3(0) = {\"}
Msgbox Join(Replace(array1, array2, array3))

'Prints ТОВ \"ИКП\"