如何在 vbscript 中管理双引号

【问题标题】：how to manage double quotes in the vbscript如何在 vbscript 中管理双引号
【发布时间】：2013-06-22 04:44:07
【问题描述】：

Set dir = CreateObject("Scripting.Dictionary")
dir.Add "12", "layout1" 
dir.Add "29", "layout2"
dir.Add "35", "layout3"

For Each slide In presentation.Slides
  xyz = slide.Layout
  msgBox dir.Item(xyz)
next

这里 xyz 将给出数字，我想将相同的值传递给目录对象以获取该键的值。但是这里的问题出在 dir.Item(xyz) 如果我没有为 xyz 保留双引号，那么我们将没有获取密钥的项目，因为它是系统税问题，如果我保留双引号，那么它将作为 xyz只是不是 xyz 的值。知道如何解决这个问题

【问题讨论】：

标签： vbscript

【解决方案1】：

slide.Layout 返回数字，所以只需将字典的键也设为数字：

Set dir = CreateObject("Scripting.Dictionary")
dir.Add 12, "layout1" 
dir.Add 29, "layout2"
dir.Add 35, "layout3"

For Each slide In presentation.Slides
  MsgBox dir.Item(slide.Layout)
Next

您也可以将数字转换为字符串：

Set dir = CreateObject("Scripting.Dictionary")
dir.Add "12", "layout1" 
dir.Add "29", "layout2"
dir.Add "35", "layout3"

For Each slide In presentation.Slides
  MsgBox dir.Item(CStr(slide.Layout))
Next

但这只会增加代码的复杂性，而不会给你带来任何好处。

【讨论】：

请不要发布“谢谢”cmets。对 SO 表示感谢的正确方法是投票和/或accept 答案。