用VB实现特定数据采集功能编程方法

[复制链接]
查看11 | 回复2 | 2012-3-18 10:13:04 | 显示全部楼层 |阅读模式
Private Sub DownNetFile(ByVal nUrl As String, ByVal nFile As String)
Dim XmlHttp, B() As Byte
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.open "GET", nUrl, False
XmlHttp.Send
If XmlHttp.ReadyState = 4 Then
B() = XmlHttp.ResponseBody
Open nFile For Binary As #1
Put #...
回复

使用道具 举报

千问 | 2012-3-18 10:13:04 | 显示全部楼层
思路1.保存 为 txt2.用trim space 去掉空格和,3.用最简单的left得到后面的两个数...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行