Как установить двойные кавычки, используя VBScript словарь в UFT 12,0

Question

Здесь я хочу добавить двойные кавычки (") в моем предложении, но вставить два (") в одном месте, как показано на рисунке. Пытались Chr(34) и Replace(). Пожалуйста, помогите мне, чтобы вставить двойные кавычки в элемент словаря с использованием VBScript в UFT12 Я не хочу использовать MsgBox, чтобы отобразить эту строку

Dim Dict 
Set Dict=CreatObject("Scripting.Dictionary") 
Dic("Value")="I went to mall....Where I met my Friends "&Chr(32)&"XYZ" & "DEF"&Chr(34)&". We enjoied a lot." 

Когда я «Смотрел» Dic("Value") использованием UFT12.0 Это дает шоу..:

«Я пошел в торговый центр .... Где я встретил своих друзей» «XYZ & DEF« ». Мы enjoied в много «

Answer 1

Ваш инструмент отладчик отображает значение строковой переменной как литерал (то, что вы должны ввести/вставить в редактор) Evidence:.. Окружающие двойной котировки

Ваш .. "&Chr(32)&"XYZ" & "DEF"&Chr(34)&". .. доказывает:.. Использование Chr() уступает (дополнительный вызов функции и шум) и появлению ошибок (Chr (неверный номер) на побег "с помощью„“

Answer 2

Вот пример, в дополнение к исчерпывающий Ekkehard.Horner's answer (возвращает строку и позицию первого вхождения " и удвоенную "" в этой строке):

option explicit 
Dim myString0, myString1, myString2, myString4 

myString0 = "none double quotes" 
myString1 = "with ""double"" quotes 1" 
myString2 = "with " & Chr(34) & "double" & Chr(34) & " quotes 2" 
myString4 = "twice """"double"""" quotes" 

Wscript.Echo Wscript.ScriptName & ": Using Double Quotes" _ 
    & vbNewLine & myString0 _ 
    & vbTab & InStr(1, myString0, Chr(34)  , vbTextCompare) _ 
    & vbTab & InStr(1, myString0, Chr(34)&Chr(34), vbTextCompare) _ 
    & vbNewLine & myString1 _ 
    & vbTab & InStr(1, myString1, Chr(34)  , vbTextCompare) _ 
    & vbTab & InStr(1, myString2, Chr(34)&Chr(34), vbTextCompare) _ 
    & vbNewLine & myString2 _ 
    & vbTab & InStr(1, myString2, Chr(34)  , vbTextCompare) _ 
    & vbTab & InStr(1, myString2, Chr(34)&Chr(34), vbTextCompare) _ 
    & vbNewLine & myString4 _ 
    & vbTab & InStr(1, myString4, Chr(34)  , vbTextCompare) _ 
    & vbTab & InStr(1, myString4, Chr(34)&Chr(34), vbTextCompare) 

Выход:

==>cscript //nologo 28778280.vbs 
28778280.vbs: Using Double Quotes 
none double quotes  0  0 
with "double" quotes 1 6  0 
with "double" quotes 2 6  0 
twice ""double"" quotes 7  7