读取大智慧实时数据 - 简版
只提取:代码、简称
开盘价、最高价、最低价、收盘价自己葫芦画瓢。
Clear
lcData = Filetostr("STKINFO70.DAT")
&& E:\dzh365\data\sh\STKINFO70.DAT
lnLen = Ceiling((1725734 - 0x44A7)/320)
&& 共有 5338 只股票
? "序号--代码--------简称"
? "====================="
For I = 1 To lnLen
?
Transform(I, "@L 9999") + "
"
?? Strtran((Substr(lcData, 0x44A7 + (I - 1)*320, 10)), Chr(0), " ")
?? Strtran((Substr(lcData, 0x44B1 + (I - 1)*320, 32)), Chr(0), " ")
Endfor
图片附件: 游客没有浏览图片的权限,请
登录 或
注册