读取大智慧实时数据 - 简版
只提取:代码、简称
开盘价、最高价、最低价、收盘价自己葫芦画瓢。
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
	
		
			
        
				
				
					
						图片附件: 游客没有浏览图片的权限,请 
登录 或 
注册