使用VBScript修改HTML列表框值

Question

如何使用HTML頁面中的VBScript將列表框的值設置為某些已存在的值，例如text3 。

這是我的HTML：

<!DOCTYPE html>
<html>
<body>
    <select name="sometext"  id="dsds">
        <option value="1">text1</option>
        <option value="2">text2</option>
        <option value="3">text3</option>
        <option value="4">text4</option>
        <option value="5">text5</option>
    </select>
</body>
</html>

這是我的VBScript代碼：

Dim ie
Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.navigate("hey12.html")
ie.width = 900
ie.height = 600
ie.Visible = 1
WScript.sleep(5000)
Set Helem1 = IE.document.getElementByID("dsds")
Helem1.value = "text3"

使用上面的代碼，我無法修改列表框值或文本。

Answer 1

您可以使用<select>元素的SelectedIndex屬性通過索引來完成。 這是從零開始的。 由於text3是第三個選項，因此使用值2 ：

Set Helem1 = IE.document.getElementByID("dsds")
Helem1.SelectedIndex = 2

或者，您可以檢查每個<option>元素的文本值，當您找到要查找的元素時，將其Selected屬性設置為True ：

Set Helem1 = IE.document.getElementByID("dsds")

For Each o In Helem1.Options
    If o.InnerText = "text3" Then o.Selected = True
Next

Answer 2

要設置/更改選項的.value - 或.text - （而不是僅選擇它），請使用

Helem1(2).value = "newValue"
Helem1(2).text = "newText"

（解決邦德答案中被盜物品的方法）

使用VBScript修改HTML列表框值

問題描述

2 個解決方案

解決方案1
2 已采納 2015-07-20 13:14:15

解決方案2
1 2015-07-20 13:42:17

使用VBScript修改HTML列表框值

問題描述

2 個解決方案

解決方案1 2 已采納 2015-07-20 13:14:15

解決方案2 1 2015-07-20 13:42:17

解決方案1
2 已采納 2015-07-20 13:14:15

解決方案2
1 2015-07-20 13:42:17