通达信报计算机内存不足,导入通达信股票数据至内存数组中的方法和代码

感谢香川大师！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

Snap1.jpg

(25.48 KB, 下载次数: 172)

2016-1-10 10:43 上传

Snap2.jpg

(34.14 KB, 下载次数: 151)

2016-1-10 10:43 上传

Snap4.jpg

(58.06 KB, 下载次数: 168)

2016-1-10 10:43 上传

Snap5.jpg

(131.41 KB, 下载次数: 129)

2016-1-10 10:43 上传

Snap6.jpg

(59.07 KB, 下载次数: 184)

2016-1-10 10:43 上传