VB如何截取源码中的内容到text文本

归零

我是思路是先把页面转换为源代码，然后通过源代码截取里面的数据到text，最后导出

<tr><td class="aws">/.rar</td><td>2</td><td class="aws">-</td></tr>
<tr><td class="aws">/bbs/database/bbsxp.mdb</td><td>2</td><td class="aws">-</td></tr>
<tr><td class="aws">/w3c/p3p.xml</td><td>2</td><td class="aws">-</td></tr>
<tr><td class="aws">/database/BBSXP2007.mdb</td><td>2</td><td class="aws">-</td></tr>

以上就是我想提取一个地址中的一些内容的一部分，

查看源代码，他们在

<tr><td class="aws">
</td><td>2</td><td class="aws">-</td></tr>

之间

我就想截取中间的内容，然后导出到文本，

应该可以使用 mid left right 等函数 提取数据吧

不知道有牛人能写出来不，多谢

归零

回复 qwe143109 的帖子

不好意思，无法把截取的内容排列出来到text




-------------------------------------------

我就是想提取页面的内容，到text纯文本（能够直接导出到本地更好）

每一行都要按顺序排列


图片里，上面那个是text1.text，下面那个是webbrower的显示

qwe143109

回复 nocai 的帖子

VB其实是容易上手  最容易写出小软件的 编程工具了。。。

其实每个编程语言都无非那么几个 循环  判断语句    以及对应的一些结构。。

有空呢  多分析分析别人的代码   自己写点小软件出来  就可以拉  其实不难的  速成嘛   没有  长时间积累就行了。。。前提嘛自己必须能够知道每一句语句是干吗的就行啦

nocai

VB是不是很难学呀？
我老学不会。
2楼写得较详细
但我还是看不懂。
有没有什么容易学的教程透露一下，谢谢！

qwe143109

其实很容易的  用Microsoft Internet Controls。。也就是我们常用的  WebBrowser控件

具体代码

Private Sub Command1_Click()
On Error Resume Next
Dim a As String
Dim i As Long
Dim j As Long
WebBrowser1.Navigate "http://pszx.szlg.edu.cn/cgi-bin/awstats.pl?config=pszx.szlg.edu.cn&framename=mainright&output=errors404" '这个自己打
'这个  加点延迟吧   网页打开比较慢
t = Timer
While Timer - t < 3
    DoEvents
Wend
'获取网页源码  放到a里面

a = WebBrowser1.Document.body.outerhtml
j = 1
i = InStr(i + 1, a, "<TR>" + vbCrLf + "<TD class=aws>")
While (i <> 0 And j <> 0)
i = InStr(i + 1, a, "<TR>" + vbCrLf + "<TD class=aws>")
While (j < i And j <> 0)
    j = InStr(j + 1, a, "</TD>" + vbCrLf + "<TD>")
Wend
b = Mid(a, i + Len("<TR>" + vbCrLf + "<TD class=aws>"), j - i - Len("<TR>" + vbCrLf + "<TD class=aws>"))
Text1.Text = Text1.Text + b + vbCrLf
DoEvents
Wend

End Sub

qwe143109

回复 归零 的帖子

我没有加循环  只读一次  估计  只读了个空格   你把网址给我  我帮你看下。。。或者你自己加个循环就行啦

QQ：349982491

sky3749

支持楼主了

nocai

回复 qwe143109 的帖子

谢谢！qwe143109

其实还是我自己工作太忙啦，去年从图书馆借来两本VB编程入门的书，看不到半本就已经快看不下去了，主要还是对语句的理解问题，加上工作忙没时间看。来吾爱也是想学大牛们的破解技术，现在呢！每天最多也就半个小时来吾爱搜大牛已经破解好的软件了。

qwe143109

回复 nocai 的帖子

呵呵  差不多的  主要是读初中和高中的时候 不是很忙 都弄vb  现在大学了  基本上就弄 c和java

nocai

回复 qwe143109 的帖子

有机会还得学.net，毕竟都是主流了。