Question

我查看了所有其他问题，加上网上搜索的次数，找不到符合我情况的任何内容。

我有一个用于IBM Personal Communications（PCOMM）的VBScript开发的宏。我的老板要我转换它，以便可以在Macro Express Pro（ME）中使用。 ME是一个WYSIWYG（所见即所得）编辑器，它具有预设功能并允许外部脚本编写JScript，VBScript和HTA。

PCOMM宏大约有1000行纯VBScript，所以保持这种方式才有意义，但是我不允许PCOMM做一些事情，所以需要进行一些修改。

一个修改是已经有一个Internet Explorer（IE）的全局实例，因此宏被设计为使用该实例。我试图获取下拉框的选定选项，但我尝试过的所有内容都没有成功。

这是HTML代码：

<select name="ctl00$cphContent$ddlWorkQueue" onchange="javascript:setTimeout('__doPostBack(\'ctl00$cphContent$ddlWorkQueue\',\'\')', 0)" id="ctl00_cphContent_ddlWorkQueue" class="ddlbox">
    <option selected="selected" value="5422">605</option>
    <option value="5419">ACCUM</option>
    <option value="5418">CORRESPONDENCE</option>
    <option value="5415">FEKEY</option>
    <option value="5416">NKPORTAL</option>
    <option value="5420">PROVIDER</option>
    <option value="5423">EDITS</option>
    <option value="5421">TRACR</option>
    <option value="5417">WAND</option> 
</select>

如你所见，＆＃34; 605＆＃34;被选中。我希望能够显示＆＃34; 605＆＃34;在消息框中。这是VBScript：

'This subroutine checks to see if the selected queue matches the ini value if it does not it updates the ini value
Sub SetQueue
    Dim Selection

    'Commented out by previous developer.  We do not want to create a new instance of Internet Explorer.  We want to use the existing instance...
    'Set objIE = CreateObject("InternetExplorer.Application")

    Selection = Document.getElementById("ctl00_cphContent_ddlWorkQueue").selectedIndex
    MsgBox "Selection: " & Selection
End Sub

希望有人可以给我一些帮助，并指出我正确的方向。我运行宏时得到的只是＆＃34;选择：＆＃34;。

Answer 1

任何这些方法都应该有效：

' Method 1 - Get the current HTML displayed within the <select> element:
MsgBox Document.getElementById("ctl00_cphContent_ddlWorkQueue").innerHTML

' Method 2 - Get the current text displayed within the <select> element:
MsgBox Document.getElementById("ctl00_cphContent_ddlWorkQueue").innerText

' Method 3 - Use the selected index to look up the selected option:
Set e = Document.getElementById("ctl00_cphContent_ddlWorkQueue")
MsgBox e.Options(e.selectedIndex).Text

' Method 4 - Loop through all options looking for the selected one:
For Each o In Document.getElementById("ctl00_cphContent_ddlWorkQueue").Options
    If o.Selected Then MsgBox o.Text
Next

vbscript捕获html选择选项标记中的文本

1 个答案: