luckeeylee 发表于 2011-7-21 01:53

读取通达信权息资料

If DownFile("http://www.tdx.com.cn/products/data/data/dbf/info.zip","info.zip")
   IF UnZipFile("info.zip","fhpg.txt","fhpg.txt")
   =MESSAGEBOX("权息资料下载解压完成 ！",64,"Sunshine & EsteemPrediction System!")
   ELSE
    =MESSAGEBOX("权息资料解压失败 ！",64,"Sunshine & EsteemPrediction System!")
   RETURN
   ENDIF
Else
    =MESSAGEBOX("权息资料下载失败 ！",64,"Sunshine & EsteemPrediction System!")
   RETURN
EndIf

B3tA2V60xN 发表于 2011-7-22 01:29

这个没有股本变化数据

[ 本帖最后由 B3tA2V60xN 于 2011-7-22 01:31 编辑 ]
页: [1]
查看完整版本: 读取通达信权息资料