导入通达信股票数据至内存数组中的方法和代码

xuesheng1

      感谢香川大师！lee1892大师！wcymiss大师！，您们的帮助让我受益无穷，我想有没有和我一样想自己计算股票数据的，我也出点微薄之力，把我导出的方式和代码与你共享。目的，导出每只股票的历史数据至内存数组里，供后期计算研判（导入内容：日期，开盘价，最高价，最低价，收盘价，成交量，成交额，mf里存放的是股票代码），从2005年1月4日至2016年1月8日，文本2809个，导入至arr里483万行7列，耗时18秒，呵呵，如果不定义变量类型，耗时22秒

Option Explicit

Sub aa()
Dim arr(1 To 5000000, 1 To 7), time
Dim mf As String, st As String, ar
Dim b%, y%, r&

time = Timer


mf = Dir("c:\Data\*.txt")

    If mf = "" Then Exit Sub
      Do Until mf = ""

        b = FreeFile
        Open "c:\Data\" & "\" & mf For Input As #b

            Do Until EOF(1)
                Line Input #b, st
                    If st <> "" And st <> "数据来源:通达信" Then
                        r = r + 1
                        ar = Split(st, vbTab)
                            For y = 0 To UBound(ar)
                                arr(r, y + 1) = ar(y)
                            Next
                    End If
            Loop

        Close #b
    mf = Dir()
Loop


Debug.Print Timer - time

End Sub

xuesheng1

以上使用的是通达信股票软件，任意版本都行，新下载的通达信软件，没有历史数据，要先下载盘后历史数据后，在导出即可

我是来讨说法的

一句cmd命令的事，你非要二三十行代码...

YZC51

我是来讨说法的 发表于 2016-1-10 13:35
一句cmd命令的事，你非要二三十行代码...

请教大师，如何实现！？

renahu

我的数据导出来了，可是往arr写的时候，excel自动退出，看来arr行数设置到500万不行，我的是excel2010，i7，8g内存

ychack

我也用通达信导过，不过我是导成excel文件，同是2800多个，然后计算公式的收益率。采用不打开工作簿读取数据的方法，也可以实现。

xuesheng1

renahu 发表于 2016-1-10 21:50
我的数据导出来了，可是往arr写的时候，excel自动退出，看来arr行数设置到500万不行，我的是excel2010，i7 ...

可能的问题
1，你的计算机内存不足
2，你导出的数据起点日期是多少，如果从1991年起导出，肯定超出500万行，我是从2005年起导出的，483万行，做历史统计，我觉得从2005或2010年起就够了
我是excel2013,16G内存，我测试过，最大可以装入2800万行8列没有问题，但一个arr不要装满吧，还得给其他后续数组留点地方

xuesheng1

ychack 发表于 2016-1-10 22:45
我也用通达信导过，不过我是导成excel文件，同是2800多个，然后计算公式的收益率。采用不打开工作簿读取数 ...

对的，我开始也是这样导出的，但后续如果统计众多，计算很慢，不如一次性装入内存，或许我没有想到更好的方法，或许你的方法更强大

我是来讨说法的

YZC51 发表于 2016-1-10 21:43
请教大师，如何实现！？

COPY *.txt 汇总.txt
之后把汇总文件在EXCEL中分列就完成了

用VBA代码的目的是化繁为简，既然有简单的方法那就没必要使用VBA

我是来讨说法的

renahu 发表于 2016-1-10 21:50
我的数据导出来了，可是往arr写的时候，excel自动退出，看来arr行数设置到500万不行，我的是excel2010，i7 ...

excel2007和2010最多有1048576行