从网页把数据导到EXCEL中或ACCESS中,怎么实现。或求个思路
想完成的任务:类似移动的电话详单那样,有固定格式的数据,想不打开网页,直接从VB.NET里打开网页,并导出到EXCEL或ACCESS.然后进行统计。难点:从网页导数据到EXCEL或ACCESS
各位大可,实用技术,麻烦,多多想办法。 --------------------编程问答-------------------- 在服务器生成 文件 然后下载 --------------------编程问答-------------------- 哪怕你是生成 在内存中 --------------------编程问答-------------------- "直接从VB.NET里打开网页,并导出到EXCEL或ACCESS.然后进行统计。"
什么意思? 后台进行操作么?如果是,那“不打开网页”又是什么意思 --------------------编程问答-------------------- 还有,你生成的EXCEL是客户端需要的还是仅仅服务器存储的? --------------------编程问答-------------------- 比如,移动给我邮箱发的电话详单,里面有一条一条的数据。我想把他用VB.NET导出到EXCEL然后再导入到ACCESS中经过软件处理后,把分析的结果显示出来。
第一:要导出的页面肯定是固定格式;我只是能打开这个页面,我并不是网站管理者
第二:我写的程序在本地电脑上运行,与网页无任何关系,不是在网站所在服务器上运行的。
第三:EXCEL导入到ACCESS到后面的一切我都能搞定。
第四:最关键的是怎么用VB.NET把网页上的数据导到EXCEL中。我只关心这个问题只要按列按行导出就行。里面有其它乱的数据,我想我都能把他们搞干净,只保留关键数据。 --------------------编程问答--------------------
知到网页的地址,不用在浏览器中打开。
可以在VB.NET中打开,或直接使用网页地址直接导入,
后台的意思就是不用在程序中打开网页。 --------------------编程问答-------------------- 把这个答案“顶”出来 --------------------编程问答-------------------- 直接GET或者POST啊,从返回的HTML文本里面直接做字符串处理就行了。如果是XML或者JSON格式的数据更好办 --------------------编程问答-------------------- 楼上大哥,您受个累,给小弟一段代码,小弟看一下,具体怎么做。 --------------------编程问答-------------------- 继续等待继续等待 --------------------编程问答-------------------- 用webbrowser控件试试看?浏览您想要获得数据的网页
然后是分析数据的事情了。
比如可以遍历table 所有的tr td啊等等
然后得到里面对应的邮件主题或是时间吧。 --------------------编程问答-------------------- 能有稍具体一些的代码吗? --------------------编程问答-------------------- 还在等高手出现。 --------------------编程问答-------------------- 这个我弄过,但是不是用VB.net,是用易语言.可以给你一个思路,就是找到每行的(网页表格每行的开始符和结束符)特征,然后根据这个来分隔文本数据,然后再取中间特定的的字符(你需要的)
.版本 2
.子程序 _按钮1_被单击
.局部变量 待处理文件, 字节集
.局部变量 文件名, 文本型
.局部变量 j, 整数型
.局部变量 K, 整数型
.局部变量 临时数组, 文本型, , "0"
.局部变量 数据, 文本型
.如果真 (通用对话框.打开 () = 真)
文件名 = 通用对话框.文件名
待处理文件 = 读入文件 (文件名)
.如果真结束
j = 1
K = 1
分割后的数据 = 分割文本 (到文本 (待处理文件), “</tr>”, )
重定义数组 (处理后的数据, 假, 取数组成员数 (分割后的数据), 7)
.计次循环首 (取数组成员数 (分割后的数据), j)
临时数组 = 分割文本 (分割后的数据 [j], #换行符, )
.计次循环首 (取数组成员数 (临时数组), K)
数据 = 找字符子程序 (临时数组 [K], “<td>”, “ </td>”)
.如果 (数据 ≠ “”)
处理后的数据 [j] [K] = 数据
.否则
.如果结束
.计次循环尾 ()
.计次循环尾 ()
子程序1 ()
编辑框2.内容 = 到文本 (取数组成员数 (分割后的数据))
--------------------编程问答-------------------- Private Sub LogUser(ByVal nWebBrowser As WebBrowser, nUserElementName As String, nPasswordElementName As String)
'获取用户名密码框
Dim tbUserid As HtmlElement = nWebBrowser.Document.GetElementById(nUserElementName)
Dim tbPasswd As HtmlElement = nWebBrowser.Document.GetElementById(nPasswordElementName)
If Not (tbUserid Is Nothing) AndAlso Not (tbPasswd Is Nothing) Then
'设置用户名密码
tbUserid.SetAttribute("value", "UserName")
tbPasswd.SetAttribute("value", "Password" & Chr(13))
'可以用GetAttribute("value")来取得文本框里的字符串
End If
End Sub
补充:.NET技术 , VB.NET