как в VBA использовать "?

kozicin

когда закидываешь текст в функцию используешь двойные кавычки
 

Array("юб") 

а как подсунуть в качестве текста сами двойные кавычки?
 

Array(""") 

?

uncle17

экранировать, очевидно
\"

uncle17

А можно закидывать в одинарных кавычках. Тогда проблем не возникнет. Может быть.

6yrop

первая ссылка в гугле http://stackoverflow.com/a/1103144

nik93

"""юб"""

kozicin

экранировать не работает

kozicin

прочитал ссылку, не понял

uncle17

Если тебе для SQL, пользуй не запросы в явном виде, а вот такие "подготовки" - они сами заэкранируют кавычки и переведут параметры в нужный тип и вид.
Как это в венде делается, хз... У нас это называется PDO

agaaaa

Судя по гуглу тебе надо просто удваивать каждую двойную кавычку в своей строке. Но мог бы и сам погуглить.

kill-still

"подготовки"

kozicin

кароче, привожу весь текст задачи
У меня есть Ексельный файл, я хочу ввести новую функцию для транслитерации текста, которую пишу на VBA из-под Екселя
вот его текст:

 Function Translit(Txt As String) As String

 

 Dim Rus As Variant

 Rus = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", _

 "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", _

 "щ", "ъ", "ы", "ь", "э", "ю", "я", "А", "Б", "В", "Г", "Д", "Е", _

 "Ё", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", _

 "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", _

 "Ю", "Я", ".", ",", "-", "!", "/", "?", "|", "'", "*", "%", "@", "#", " ", "(", ")", "+", "&")

 

 Dim Eng As Variant

 Eng = Array("a", "b", "v", "g", "d", "e", "e", "zh", "z", "i", "i", _

 "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "h", "ts", "ch", _

 "sh", "sch", "", "y", "", "e", "yu", "ya", "a", "b", "v", "g", "d", _

 "e", "e", "zh", "z", "i", "i", "k", "l", "m", "n", "o", "p", "r", _

 "s", "t", "u", "f", "h", "ts", "ch", "sh", "sch", "", "y", "", "e", _

 "yu", "ya", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-")

 

 For i = 1 To Len(Txt)

 с = Mid(Txt, i, 1)

 

 flag = 0

 For J = 0 To 82

 If Rus(J) = с Then

 outchr = Eng(J)

 flag = 1

 Exit For

 End If

 Next J

If flag Then outstr = outstr & outchr Else outstr = outstr & с

 Next i

 

 Translit = outstr

End Function

 

собственно как подставить заменю для знака двойных кавычек "?
Двойные кавычки не подходят. "\" не подходит
какой у VBA синтаксис подобной записи?

Alena_08_11

""""
Четыре штуки
2 по краям - границы стринга. 2 внутри - собственно сами кавыки
Вроде должно так сработать

Mixaz

не плоди число сущностей сверх необходимого (с)

Translit = Txt

For J = 0 To 82

Translit = Replace(Translit, Rus(J Eng(J

Next J

двойные кавычки записываются как """"

Fimida

Спасибо за ответ.