手机版 理想小程序
理想小程序
RSS 论坛APP
返回列表

请求大师帮助

4087 5
设置
2300529 Lv.2

专栏

复制 显示全部楼层 倒序浏览 |
跳转到指定楼层

同花顺软件数据教程_技术交流论坛股票软件指标公式技术理想股票技术论坛

在win8下运行此文件D_z="D:\资料库\Dm.txt" '-'该地址中存放股票代码Dim Zh_1,Zh_aConst ForReading = 1 Set Zh_1 = CreateObject("Scripting.FileSystemObj ...软件数据教程_技术交流论坛股票软件指标公式技术

在win8下运行此文件
D_z="D:\资料库\Dm.txt"  '------'该地址中存放股票代码
Dim Zh_1,Zh_a
Const ForReading = 1
Set Zh_1 = CreateObject("Scripting.FileSystemObject")
Set Zh_a = Zh_1.OpenTextFile(D_z, ForReading)
Do Until Zh_a.AtEndOfStream
Wb_ = Zh_a.ReadLine
Wb_=Right(Wb_,8)
Sc_=Left(Wb_,2)        '市场代码
Dm_=Right(Wb_,6)   '股票代码
Set xPost = createObject("Microsoft.XMLHTTP")

xPost.Open "GET","http://basic.10jqka.com.cn/new/"&Dm_&"/",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "D:\资料库\同花顺F10\"&Wb_&".txt",2
Loop
Zh_a.Close
出现错误的解决方法

附件

QQ图片20130704090137.jpg
QQ图片20130704090137.jpg
529.middle
2300529
Lv.2

专栏

发表于 2013-7-5 08:51 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请到新手区学习升级之后才能查看,或直接购买升级后查看。
529.middle
2300529
Lv.2

专栏

发表于 2013-7-5 21:27 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请到新手区学习升级之后才能查看,或直接购买升级后查看。
397.middle
2733397
Lv.1

专栏

发表于 2013-7-9 22:32 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请到新手区学习升级之后才能查看,或直接购买升级后查看。
397.middle
2733397
Lv.1

专栏

发表于 2013-7-10 10:56 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请到新手区学习升级之后才能查看,或直接购买升级后查看。
397.middle
2733397
Lv.1

专栏

发表于 2013-7-15 13:54 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请到新手区学习升级之后才能查看,或直接购买升级后查看。
您需要登录后才可以回帖 登录

本版积分规则 《理想财富服务协议》《免责声明》

楼主
2楼
3楼
4楼
5楼
6楼
131943xjzjpcd6s1hvja2p
160828rrwbe8b2ijeeae8w
站长推荐 /1

最新主题

回顶部 到页底