【已解决】（获取网页表格内容保存狐表、获取字符串组内指定位置的字符串）[求助]我想获取表格内容到狐表表A内，怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

[求助]我想获取表格内容到狐表表A内，怎么写？

这代码没看懂。

Dim web As System.Windows.Forms.WebBrowser = e.form.controls("webbrowser1").Basecontrol
Dim elems As object = web.Document.GetElementsByTagName("div")
Dim ls As new List(of String)
For Each elem As object In elems
    If elem.getattribute("classname") = "cell" Then
        ls.add(elem.innerText)
    End If
Next

msgbox(ls.count)
If ls.count >= 10 Then

    Dim dr As Row = Tables("表A").AddNew()
    dr("第一列")=ls(0)
    dr("第二列")=ls(1)
    dr("第三列")=ls(2)
    dr("第四列")=ls(3)
End If

网页如下：

dvubb 此主题相关图片如下：获取.jpg

<table>

<thead>

<tr>

<th width="140">订单编号</th><th width="112">订单时间</th><th width="120">发件人(电话)</th><th width="10%">发件人地址</th><th width="10%">收件人(电话)</th><th width="10%">收件人地址</th><th width="undefined">揽件人</th><th width="undefined">收件网点</th><th width="undefined">订单来源</th><th width="undefined">详细来源</th><th width="undefined">大头笔</th><th width="undefined">二段码</th><th width="undefined">三段码</th><th width="undefined">集包地</th><th width="undefined">派件网点</th></tr>

</thead>

<tbody>

<tr>

<td align="center" class="protection-temple">湖南省长沙市望城区********流园B7库</td>

<td id="receivePhone" align="center" class="protection-temple">张维英--180****6191 <button class="btn_sms layui-btn layui-btn-warm layui-btn-xs">发送短信</button> </td><td align="center" class="protection-temple">四川省巴中市恩阳区************茶坝街道</td>

<td align="center">长沙市场部</td><td align="center">电子面单-菜鸟平台</td>

<td align="center"></td><td align="center">620- 南充中转站</td><td align="center">59-28</td>

<td align="center">19031****793504103</td><td align="center">2019-03-19 10:51</td><td align="center" class="protection-temple">王亚 0</td><td align="center" class="protection-temple">江苏省徐州市铜山区****************超市院内</td><td id="receivePhone" align="center" class="protection-temple">张维英--180****6191 <button class="btn_sms layui-btn layui-btn-warm layui-btn-xs">发送短信</button> </td><td align="center" class="protection-temple">四川省巴中市恩阳区************坝街道</td><td align="center"></td><td align="center"></td><td align="center">淘宝线下订单</td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center"></td><td align="center">0</td><td align="center"></td></tr></tbody></table></div>

[此贴子已经被作者于2019/3/21 14:48:40编辑过]

完全没看懂，不知道他是怎么取数据的

web.Document.GetElementById("list_elem").

list_elem这是什么，他网页里没找到

那你就改成

Dim elems As object = web.Document.GetElementsByTagName("table")

msgbox(elems.count)

msgbox(elems(0).innerHTML)

[此贴子已经被作者于2019/3/20 14:41:41编辑过]

可以执行。

但是我对解析不太会

他这解析我也没看懂

For Each tdelem As object In tdelems

i = i + 1

Tables("长江现货").Current(Cols(i)) = tdelem.Innertext

Tables("长江现货").Current("录入日期") = Date.Today

If i > 2 Then '必须要当价格区间列已经有值,才能执行以下代码

Dim s As String = Tables("长江现货").Current("价格区间")

Dim s2 As String = s.SubString(5,1) '价格区间中间的横杠有点特殊,不是键盘上的短横杠.所以用Asc()函数和Chr(-24150))配合来引用.

Dim k As String = s.IndexOf(Chr(-24150)) '用Asc(s2)函数获得-的字符编码是-24150

Tables("长江现货").Current("最高价") = s.SubString(k+1)

Tables("长江现货").Current("最低价") = s.Remove(k)

End If

你只需要循环每一个tr和td就可以啊，不需要照抄人家的代码啊，你弹出各个td的值看看；

不会做，请把你的网页，另存一下。单独做一个项目，引用这个网页。发上来测试。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:desktop.zip

网页如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自定义用户管理之二.table

是这样的，麻烦看下，我也不会循环tr、td。复杂一点就不会了

Dim web As System.Windows.Forms.WebBrowser = forms("窗口1").controls("webbrowser1").Basecontrol
Dim elems As object = web.Document.GetElementsByTagName("table")
'msgbox(elems(0).Innertext)
Dim trs = elems(0).GetElementsByTagName("tr")
For i As Integer = 1 To trs.count-1
    Dim tr = trs(i)
    Dim tds = tr.GetElementsByTagName("td")
    msgbox(tds(0).Innertext)
    msgbox(tds(1).Innertext)
    msgbox(tds(2).Innertext)
Next

主题：【已解决】（获取网页表格内容保存狐表、获取字符串组内指定位置的字符串）[求助]我想获取表格内容到狐表表A内，怎么写？