[vb]提取网页中表格内容

最新推荐文章于 2023-11-16 15:06:52 发布
最新推荐文章于 2023-11-16 15:06:52 发布
阅读量6.2k 收藏 4
点赞数 1
文章标签： vb string textbox html table command
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/kmlxk/article/details/1701549
版权
这篇博客介绍了一种使用Visual Basic（VB）从HTML代码中提取表格内容的方法。通过读取HTML中的表格标记，程序逐行解析并提取出姓名、学历和籍贯等信息，并将结果输出到两个文本框中。示例代码展示了如何处理HTML字符串，查找并提取表格数据。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

在网页html代码

<html>
<table width="200" border="0" cellpadding="0" cellspacing="0" id="xyf">
  <tr>
    <td >姓名</td>
    <td>学历</td>
    <td>籍贯</td>
  </tr>
  <tr>
    <td id=xiaoxing1>小红</td>
    <td id=xiaoxing2>研究生</td>
    <td id=xiaoxing3>北京</td>
  </tr>
  <tr>
    <td id=xiaofeng1>小奉</td>
    <td id=xiaofeng2>本科</td>
    <td id=xiaofeng3>上海</td>
  </tr>
</table>
</html>


中提取出如下内容:
姓名 学历   籍贯
小红 研究生 北京
小奉 本科   上海


'两textbox，text1是html代码，text2是输出
'代码如下

Option Explicit

Private Sub Command1_Click()
    Dim asTable() As String
    Dim lRow As Long
    Dim lColumn As Long
    Dim i As Long
    Dim j As Long
    Call ReadHtmlTable(Text1.Text, asTable, lRow, lColumn)
    For i = 0 To lRow
        For j = 1 To lColumn
            Text2.SelStart = 65535
            Text2.SelText = asTable(i * lColumn + j -

最低0.47元/天 解锁文章
kmlxk0
关注
vb获取html表格数据,vb.net中从datatable读取数据到Excel
weixin_35651102的博客
06-04 676
最近用这个比较多，所以到网上找了些相关的资料，自己做了个简单的示例，记录下来以防以后又忘记了。。。下面是完整代码(用的是Northwind数据库中的Products表)：Imports System.DataImports System.Data.sqlClientImports Microsoft.OfficePublic Class Form1Private Sub btnExpert_Cli...
vb操作电子表格 文件夹内多表格 提取数据 在生成一个新表格
最新发布
huwei853的博客
10-19 560
vb操作电子表格 文件夹内多表格 提取数据 在生成一个新表格
VB中WebBrowser控件运用 自动获取网页表格数据 网页表格内容自动提取 VB源码
08-10
'此代码发布后，可随意改哈，欢迎光临我的网址导航网站 http://www.97tt.org Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() On Error Resume Next RichTextBox1.Text = "" Dim Tables As IHTMLElementCollection Set Tables = WebBrowser1.Document.getElementsByTagName("Table") Dim Table1 As HTMLTable Dim Row As HTMLTableRow, Cell As HTMLTableCell For Each Table1 In Tables 'Next For i = 1 To Table1.rows.length - 2 ' 逐行处理 Set Row = Table1.rows(i) j = 0 For Each Cell In Row.cells ' 逐列处理 RichTextBox1.Text = RichTextBox1.Text + Trim(Row.cells(j).innerText) + "," j = j + 1 Next ' 一行处理完毕后，去除行尾的逗号并加上回车 RichTextBox1.Text = Left(RichTextBox1.Text, Len(RichTextBox1.Text) - 1) + vbCrLf Next Next End Sub
vb利用IHTMLElementCollection与WebBrowser获得网页表格内容
11-27
vb利用IHTMLElementCollection与WebBrowser获得网页表格内容 代码完整
vb获取html表格数据,vb 读取网页数据
weixin_36467992的博客
06-04 1442
【实例简介】【实例截图】【核心代码】'田草博客：www.tiancao.net'tiancao1001@126.com'QQ:327750885'2008.1.16'Option ExplicitPrivate Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As IntegerConst VK_NUMLOCK ...
vb读取网页中的数据代码
09-26
整理的vb读取网页中的数据的源代码，还是很有借鉴价值的。
vb实例 抓取网页
01-23
vb抓取网页小程序，可将图像保存为BMP格式，供初学者参考。
VB.NET网页源码爬取.zip
04-10
在"VB.NET网页源码爬取.zip"这个压缩包中，包含的是一套使用VB.NET实现的网页源码爬取示例。这套示例旨在帮助开发者解决在爬取网页源码时可能遇到的问题，并提供了四级爬取的结构，每级都会展示提取结果，以直观地...
vb获取html表格数据,vb中如何读取网页中Table的数据
weixin_32767301的博客
06-04 842
Private Sub Command1_Click()Dim vDoc, vTag, collDim i As IntegerDim j As IntegerSet vDoc = ie.DocumentDim mstrcell As StringSet coll = vDoc.All("19")For i = 0 To coll.rows.len...
提取网页中的内容（提取纯文字VB）
03-25 799
'************************************************** '函数名：distill '作用：提取网页中的内容 '参数：content----要提取的内容，length----从开头数要提取的字符数 '返回值：提取的内容 '***************************************...
VB自动填写页面表格
07-01
利用Excel的VB脚本自动填写网页表单例程及说明
VBA提取网页数据的四种方法
10-11
VBA提取网页数据的四种方法，可以应用于excel中vba编程用于从网络自动提取数据。
vb获取html表格数据,从动态htmlTable获取数据在vb.net
weixin_39929793的博客
06-04 392
我有一个html表，我在服务器级运行。但是，我无法访问正在填充的数据。从动态htmlTable获取数据在vb.net我正在使用JavaScript填充表格，但我需要使用vb.net访问数据。我正在使用jquery通过使用.html方法获取信息到页面。这里是我的javascript，function ShowProj(strId, qno,ar) {$('#hiddenQno').val(qno);...
vb中如何读取网页中Table的数据
weixin_30849591的博客
04-11 849
Private Sub Command1_Click() Dim vDoc, vTag, coll Dim i As Integer Dim j As Integer Set vDoc = ie.Document Dim mstrcell As String Set ...
vb.net html里的表格,VB.Net - Excel工作表
weixin_39622217的博客
06-20 358
VB.Net提供对Microsoft Excel 2010的COM对象模型和应用程序之间的互操作性的支持。要在应用程序中使用此互操作性，您需要在Windows窗体应用程序中导入命名空间Microsoft.Office.Interop.Excel。从VB.Net创建一个Excel应用程序让我们从Microsoft Visual Studio中的以下步骤开始创建窗体表单应用程序：文件 - >新建...
网页上精确提取数据(VB)
B!ng
10-25 4206
  程序一：从网页上精确提取数据           为运行本程序，应在“菜单->工程->部件”中添加“Microsoft   Internet   Controls”       并在“菜单->工程->引用”中添加“Microsoft   HTML   Object   Library”           为了简洁，程序仅下载九只个股的基本信息     Option  
vb html 转为表格,VB6.0 webBrowser写入HTML语言并将Recordset返回为HTML表格
weixin_32569511的博客
06-03 263
窗种是来它开理近网万讲是效是近网万讲是效是体里添加webBrowser1 (在部件里添加Microsoft internet control)和 Command1控件。 运用以下的函数将 Adodc1.Recordset 返回到HTML表格中，为什么实现不了啊？哪位高手支支招？？器的功久含请业屏随气域实控近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后的求务蔽机风或现制近的时能后...
VB.net WebBrowser网页元素抓取分析方法
zslefour的专栏
11-16 1334
在用WebBrowser编程实现网页操作自动化时，常要分析网页Html，例如网页在加载数据时，常会显示“系统处理中，请稍候..”，我们需要在数据加载完成后才能继续下一步操作，如何抓取这个信息的网页html元素变化，从而判断数据加载完毕呢？用IE开发者工具是不可能抓取到的，太快了。(当然，设置足够长的延时，也是可以实现的，只是不够科学及稳妥，毕竟有时因为网络原因，数据加载时间可能超过原来设定时间，其次，设置延时过长也导致程序不够友好）
vb.net读取网页内容应用
pgftm的博客
01-02 1893
Sub TestReadHTML(ByVal Url As String) Dim Doc As New System.Net.WebClient Dim TempText As String TempText = System.Text.Encoding.Default.GetChars(Doc.DownloadData(Url)) End Sub 在线对比 盘古飞天梦，机身号，次数，时间，姓名 pangufeitianmeng,BFEBFBFF0003......
VB实现文件名提取并导入电子表格的操作指南
要实现使用VB（Visual Basic）程序提取指定文件夹下的所有类型的文件名，并将这些文件名导入到电子表格中，需要掌握一些关键的知识点。下面将详细介绍从编程环境的搭建、文件操作、数据处理，到电子表格的创建和数据...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值