如何从 vbscript 中的 sub 中获取字符串

Question

在这个例子中：

TestSub.vbs

a = "String"

TestSub a

Sub TestSub(a)

    MsgBox "Test " & a

End Sub

Sub 函数工作正常并在 MsgBox

中显示文本“Test String”

但在这个例子中（嵌入在一个 HTA 中）

TestSub2.VBS

Sub getdata

    NameID = "name123"

    ' NameID = 123 ' (This works)

    strHTML0 = strHTML0 & _
    "<select>" & _
        "<option onclick='UpdateSelect("& NameID &")' language='vbscript'>" & _
            NameID & _
        "</option>" & _
    "</select>"

    SelectBox.innerHTML = strHTML0

End sub

Sub UpdateSelect(NameID)

    MsgBox "Test " & NameID

End sub

NameID 显示在选择框中，但是当您调用子时它不会显示在消息框中，但是，如果您设置 NameID = 123 它会在消息框中显示整数

为什么只能显示整数，如何让它显示字符串？

在 pastebin

上发布了整个 .hta

Answer 1

您正在连接字符串并且必须以这种方式分隔 NameID 值：

"<option onclick='UpdateSelect("""& NameID &""")' language='vbscript'>" & _

如何从 vbscript 中的 sub 中获取字符串

How to fetch a string from a sub in vbscript

vbscript

hta