如何在 UFT 12.0 中使用 VBScript 字典设置双引号答案

【问题标题】：How to set Double Quotes using VBScript Dictionary in UFT 12.0如何在 UFT 12.0 中使用 VBScript 字典设置双引号
【发布时间】：2015-02-28 05:00:37
【问题描述】：

这里我想在我的句子中添加双引号（"），但是如图所示在单个位置插入两个（“）。尝试过Chr(34)和Replace()。请帮助我在 UFT12 中使用 VBScript 在 Dictionary Item 中插入双引号。我不想用 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."

当我使用 UFT12.0 “观看”Dic("Value") 时，它会显示：

“我去了商场......在那里我遇到了我的朋友“XYZ & DEF”。我们享受了一个很多。”

【问题讨论】：

标签： vbscript qtp

【解决方案1】：

您的调试器工具将字符串变量的值显示为文字（您必须在编辑器中键入/粘贴的内容）。证据：周围的双引号。

您的.. "&Chr(32)&"XYZ" & "DEF"&Chr(34)&". .. 证明：使用 Chr() 是劣等的（额外的函数调用和噪音）并且容易出错（Chr（错误的数字）转义 " by "。

【讨论】：

【解决方案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

【讨论】：