我需要打开http://web.first01.net/caterp/1.htm,提取网页中Ihr Guthaben beträgt z.Z.: 65976.656 Punkte中65976.656这组数字到text1(这组数字是变化的),然后忽略百位数以下的数字(包括小数点后面的数字),如这里忽略后的结果为65900,最后输出到text2中,应该怎么做,希望路过的大侠给个完整的代码,谢谢
...全文
1777打赏收藏
如何提取此网页中的一组数字
我需要打开http://web.first01.net/caterp/1.htm,提取网页中Ihr Guthaben beträgt z.Z.:65976.656 Punkte中65976.656这组数字到text1(这组数字是变化的),然后忽略百位数以下的数字(包括小数点后面的数字),如这里忽略后的结果为65900,最后输出到text2中,应该怎么做,希望路过的大侠给个完整的代码,谢谢
Private Sub qralexa_Click()
Dim fs, f
If Not URLDownloadToFile(0, "http://***********", "temp.txt", 0, 0) Then
Set fs = CreateObject("scripting.filesystemobject")
Set f = fs.opentextfile("temp.txt", 1)
alexac.Caption = Replace(f.readall, vbCrLf, "")
f.Close
Set fs = Nothing
Kill "temp.txt"
End If
If alexac.Caption = "******" Then
downalexa.Visible = False
End If
End Sub
最后数字的处理基本上不用说了吧。
具体的我写了个例子:
你现在工程中引用Microsoft XML, v30对象,然后在窗体中加入一个按钮,代码
如下:
Private Sub Command1_Click()
Dim XML As New XMLHTTP, WEBText As String, WZ1 As Long, WZ2 As Long
Dim TempText() As String, GetText As String