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

Тема в разделе "Lotus - Программирование", создана пользователем -, 5 окт 2009.

  1. Гость

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

    ReplaceVal = Replace(array1, array2, array3)

    Не работает ;)
     
  2. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    Денис Кириченко
    функция меняет весь член на другой а не часть строки
     
  3. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
  4. Гость

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

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    подождите, меня глючит или функция Replace меняет все как надо?..
    а что именно у тебя не сработало хотя бы?

    Код (Text):
        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 ТОВ \"ИКП\"
     
Загрузка...

Поделиться этой страницей