回 帖 发 新 帖 刷新版面

主题:请大虾指教怎样把获取的网页上的txt转化为dbf表

怎样把获取的网页上的txt转化为dbf表  
PUBLIC oie,objTable

oie=CREATEOBJECT("internetexplorer.application")

oie.VISIBLE=.f.

oie.NAVIGATE(http://www.17500.cn/getData/dlt.TXT)

往下不会了,请大虾指教
能否生成一个新表

回复列表 (共3个回复)

沙发

*--下载文件
lcRemoteFile="http://www.17500.cn/getData/dlt.TXT"
lcLocalFile="c:\dlt.TXT"
=DeleteUrlCacheEntry(lcRemoteFile) &&清理缓存,这对实时刷新的数据时很有用。
If URLDownloadToFile(0,lcRemoteFile,lcLocalFile,0,0)=0
Messagebox("下载成功!",64,'信息提示')
Else
Messagebox("下载失败",48,'信息提示')
Endif
Clear Dlls

板凳

http=CREATEOBJECT("MSXML2.XMLHTTP")
http.open("GET","http://www.17500.cn/getData/dlt.TXT",.F.)
http.send
Str1=http.responseText

3 楼

[quote]http=CREATEOBJECT("MSXML2.XMLHTTP")
http.open("GET","http://www.17500.cn/getData/dlt.TXT",.F.)
http.send
Str1=http.responseText[/quote]
如何将STR1的内容加入DBF中,谢谢了

我来回复

您尚未登录,请登录后再回复。点此登录或注册