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

  • Автор темы Guest
  • Дата начала
G

Guest

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

ReplaceVal = Replace(array1, array2, array3)

Не работает ;)
 

ToxaRat

Чёрный маг
Lotus team
06.11.2007
3 231
17
#2
Денис Кириченко
функция меняет весь член на другой а не часть строки
 
G

Guest

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

Akupaka

А че я?.. О.о
04.10.2007
3 360
1
#5
подождите, меня глючит или функция 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 ТОВ \"ИКП\"