批量归类通达信据数据

蓝天630902

以深圳市场为例，如果它的日线数据在D:\Program Files\tdx\Vipdoc\sz\lday
然后，在通达信里新建一个目录：D:\Program Files\tdx\Vipdoc\csv\:
MkDir "D:\Program Files\tdx\Vipdoc\csv\"
以下程序输出格式为*.csv，可以用excel直接打开：

Type MyType
    a1 As Long  '日期
    a2 As Long  '开盘价
    a3 As Long  '最高价
    a4 As Long  '最低价
    a5 As Long  '收盘价
    a6 As Long  '成交金额
    a7 As Long  '成交量
    a8 As Long  '未知
End Type
Sub 批量归类通达信据数据()
    Dim fso, fldr, s
    Dim b As MyType
    Dim aFolder As String
    aFolder = "D:\Program Files\tdx\Vipdoc\sz\lday\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fldr = fso.GetFolder(aFolder)
    k = ""
    For Each s In fldr.Files
        nm = s.Name
        Open s For Binary Access Read As #1
        i = 2
        Do While Not EOF(1)
        Get #1, , b
     Open "D:\Program Files\tdx\Vipdoc\csv\" & b.a1 & ".csv" For Append As #2    '以追加方式打开文件
     Print #2, Replace(nm, ".day", "") & "," & k & "," & b.a2 / 100 & "," & b.a3 / 100 & "," & b.a4 / 100 & "," & b.a5 / 100 & "," & b.a6 / 100 & "," & b.a7
     Close #2
     k = b.a5 / 100
        Loop
        Close #1
    Next
    Set fso = Nothing
End Sub

蓝天630902

还没有完善，
比如：明天再追加，就没有解决。

蓝天630902

而且，第一次运行很花时间。

jinsha2002

真是高手，{:soso_e163:}

FJT1966

学习 学习{:soso_e179:}

jinsha2002

蓝天630902 发表于 2012-5-7 05:18
还没有完善，
比如：明天再追加，就没有解决。

等待完善，谢谢

ak47ok

每次回帖、谢谢！

840205910

学习学习，新的领域

huntquasi

大师傅
通达信的历史分时数据能不能读取出来,或归类

thomsyan

想不到这里还有股票的公式 神奇的论坛 谢谢楼主分享！