VB怎么获取HTML里select的Option里的内容

Posted 2023-05-07

<td class="contentIn6Cols">
<select name="ctl00$MainContent$tabContainer$tbZFile$ucSeaExZDFileDetail$ddlDelTerm" id="ctl00_MainContent_tabContainer_tbZFile_ucSeaExZDFileDetail_ddlDelTerm" disabled="disabled" class="bd_tab" style="font-size:11px;">
<option value="">--Pls Select--</option>
<option value="67">CFR COST AND FREIGHT</option>
<option selected="selected" value="68">CIF COST, INSURANCE AND FREIGHT</option>
<option value="69">CIP CARRIAGE AND INSURANCE PAID TO</option>
<option value="70">CPT CARRIAGE PAID TO</option>
<option value="71">DAF DELIVERED AT FRONTIER</option>
<option value="72">DDP DELIVERED DUTY PAID</option>
<option value="73">DDU DELIVERED DUTY UNPAID</option>
<option value="74">DEQ DELIVERED EX QUAY</option>
<option value="75">DES DELIVERED EX SHIP</option>
<option value="76">EXW EX WORKS</option>
<option value="77">FAS FREE ALONGSIDE SHIP</option>
<option value="78">FCA FREE CARRIER</option>
<option value="79">FOB FREE ON BOARD</option>
<option value="426">DAT DELIVERED AT TERMINAL</option>
<option value="427">DAP DELIVERED AT PLACE</option>
</select>
</td>
如上是html代码
请问怎么用VB来获取到Select里Option选中项的内容。

\'引用Microsoft HTML Object Library库
Private Sub Command1_Click()
    Dim doc As New HTMLDocument
    doc.body.innerHTML = Text1.Text \'用HTMLDocument来解析网页文本
    \'获取select标签
    Dim objSelect As HTMLSelectElement
    Set objSelect = doc.getElementsByName("ctl00$MainContent$tabContainer$tbZFile$ucSeaExZDFileDetail$ddlDelTerm").Item(0)
    
    Dim i As Integer
    Dim objOption As HTMLOptionElement
    For i = 0 To objSelect.length - 1 \'检索Option对象
        Set objOption = objSelect.Item(i)
        List1.AddItem objOption.Text \'添加到列表框中
    Next
End Sub追问

大哥~我只是需要选中项的内容 不用所有的选项内容~~怎么搞呀~~

追答\'引用Microsoft HTML Object Library库
\'添加一个WebBrowser控件
\'添加一个文本框（设置多行模式），放入html文本
\'添加一个ComboBox控件
\'添加一个按钮
Private Sub Command1_Click()
    Dim doc As HTMLDocument
    \'获取select标签
    Set doc = WebBrowser1.document
    Dim objSelect As HTMLSelectElement
    Set objSelect = doc.getElementsByTagName("Select").Item(0)
    MsgBox objSelect.Item(objSelect.selectedIndex).Text, , "当前选中项"
    Dim i As Integer
    Dim objOption As HTMLOptionElement
    Combo1.Clear
    For i = 0 To objSelect.length - 1 \'检索Option对象
        Set objOption = objSelect.Item(i)
        Combo1.AddItem objOption.Text \'添加到列表框中
    Next
    Combo1.ListIndex = objSelect.selectedIndex
End Sub
Private Sub Form_Load()
    WebBrowser1.navigate ""
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    On Error Resume Next
    WebBrowser1.document.body.innerHTML = Text1.Text
End Sub 参考技术A 笨办法是从字符串里使用mid逐项提取，其他办法不清楚

js 怎么获取select value值 和optione的文字？

<select id="myselect">
<option value="A">1</option>
<option value="B">2</option>
<option value="C">3</option>
</select>

当我选择2时，
怎么样用2个变量，来分别获得B和2

需要准备的材料分别有：电脑、html编辑器、浏览器。

1、首先，打开html编辑器，新建html文件，例如：index.html，编写问题基础代码，选中选项2。

2、在index.html中的<script>标签，输入js代码：

var value = $('#myselect').val();
var text = $('#myselect').find("option:selected").text();
$('body').append('value=' + value + ',text=' + text);

3、浏览器运行index.html页面，此时成功获得到选中的选项的值和文本并打印了出来。

参考技术A <pre t="code" l="js">现在有一id=test的下拉框，怎么拿到选中的那个值呢？

分别使用javascript原生的方法和jquery方法

<select id="test" name="">
<option value="1">text1</option>
<option value="2">text2</option>
</select>

code:

一：javascript原生的方法

1:拿到select对象： var myselect=document.getElementById("test");

2：拿到选中项的索引：var index=myselect.selectedIndex ; // selectedIndex代表的是你所选中项的index

3:拿到选中项options的value： myselect.options[index].value;

4:拿到选中项options的text： myselect.options[index].text;

二：jquery方法（前提是已经加载了jquery库）

1:var options=$("#test option:selected"); //获取选中的项

2:alert(options.val()); //拿到选中项的值

3:alert(options.text()); //拿到选中项的文本本回答被提问者采纳