redsnow 发表于 2008 年 6 月 24 日 23:21:24

只有一条路了

程序读html文本流 再拆分各项

oix 发表于 2008 年 6 月 24 日 23:22:25

原帖由 cnrain 于 2008-6-24 22:49 发表 http://www.jgwy.net/images/common/back.gif
你能帮我？
用程序读, 用你的 10000 个 ID 索引生成网址, 读出的数据即可分析保存.

oix 发表于 2008 年 6 月 24 日 23:23:37

最好目标服务器支持多线程...

cnrain 发表于 2008 年 6 月 24 日 23:28:05

就一个页面才120字节左右，而且服务器很快的
能给我编个程序么
我的网络控件到目前一直在编程中不能成功应用
而且这个比较急，明天早上就要用

谁能帮我弄个我送个 Mover 空间给他 (500m/3g)

oix 发表于 2008 年 6 月 24 日 23:32:54

网址PM来看看

cnrain 发表于 2008 年 6 月 24 日 23:33:22

所得到的查询页面的例子
只要地址、邮编、联系电话、招办网址
所有的ID 可存为一个每一行一个的 TXT 文件
结果应该是 excel 表格，含对应 ID

oix 发表于 2008 年 6 月 24 日 23:44:53

你不给网址怎么测试?? 你是要程序还是要结果?

oix 发表于 2008 年 6 月 25 日 00:03:24

我洗澡去了, 你把网址和 ID 索引文件发给我, email: cncm@qq.com, 我收到帮你试下.

oix 发表于 2008 年 6 月 25 日 00:42:16

VB 下代码, 功能已经调试过. 你参考, 睡觉了, 祝你好运.Dim HTTPUrl As String
Dim Retrieval As Object

Private Sub Class_Initialize()
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
End Sub

Function GetURL(Optional url As String)
If url <> "" Then
    HTTPUrl = url
End If
On Error GoTo Exittag:
With Retrieval
.Open "GET", url, False, "", ""
.send
GetURL = .responsetext
End With
Exit Function
Exittag:
MsgBox Err.Description & "::. GetUrl"
Err.Clear
End Function

Private Sub Class_Terminate()
Set Retrieval = Nothing
End Sub

Private Sub Form_DblClick()
Dim tempstr As String
Dim ID(10000) As String
Dim i, maxid As Integer

Open "C:\idfile.txt" For Input As #1 '你的ID索引文件

i = 1
Do While Not EOF(1)
Line Input #1, ID(i)
i = i + 1
Loop
Close #1
maxid = i


Class_Initialize
i = 1
RichTextBox1.Text = ""

Do While i <= maxid
tempstr = GetURL("http://www.yourdomain.com/app.php?id=" & ID(i))
tempstr = Replace(tempstr, "<html><head></head><body>
<table bgcolor=""#000000"" border=""0"" cellpadding=""0"" cellspacing=""1"" width=""450""><tbody><tr><td bgcolor=""#ffffff""><div align=""center"">院校名称</div></td><td bgcolor=""#ffffff""><div class=""STYLE3"" align=""center"">地址</div></td><td bgcolor=""#ffffff""><div align=""center"">邮编</div></td><td bgcolor=""#ffffff""><div align=""center"">联系电话</div></td><td bgcolor=""#ffffff""><div align=""center"">招办网址</div></td></tr><tr><td bgcolor=""#ffffff""><div align=""center"">", ID(i) & " ")
tempstr = Replace(tempstr, "</div></td><td bgcolor=""#ffffff""><div align=""center"">", " ")
tempstr = Replace(tempstr, "</div></td></tr></tbody></table></body></html>", vbCrLf)
RichTextBox1.Text = RichTextBox1.Text + tempstr
i = i + 1
Loop

Class_Terminate
End Sub

redsnow 发表于 2008 年 6 月 25 日 08:29:14

楼上好强 收俺当学徒吧
页: 1 [2] 3
查看完整版本: 谁熟悉这些东西的进来