c语言读取tdx日线文件,***EXCEL读取通达信股票日线数据***改为读取通达信股票5分钟数据...

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Type MyType

a1 As Long '日期

a2 As Long '开盘价

a3 As Long '最高价

a4 As Long '最低价

a5 As Long '收盘价

a6 As Single '成交金额

a7 As Long '成交量

a8 As Long '保留

End Type

Sub 按钮1_zqy()

Dim File2 As Integer

Dim b As MyType

File1 = FreeFile

Open

"D:\财富透视20110808\Vipdoc\sh\lday\sh600000.day" For Binary Access Read As

#File1

i = 1

Do While Not EOF(File1)

Get #File1, , b

'***********以下请改为---写到指定的TXT文件

Cells(i, 1) = b.a1

Cells(i, 2) = (b.a2) / 100 '开盘价元

Cells(i, 3) = (b.a3) / 100 '最高价元

Cells(i, 4) = (b.a4) / 100 '最低价元

Cells(i, 5) = (b.a5) / 100 '收盘价元

Cells(i, 6) = (b.a6) / 10000 '成交金额 万

Cells(i, 7) = (b.a7) / 1000 '成交量 万股

Cells(i, 8) = (b.a8) / 100

i = i + 1

Loop

Close #File1

End Sub

******************************************************

D:\财富透视20110808\Vipdoc\sh\fzline\sh600000.LC5

通达信的5分钟数据结构如下，

Public Type tdxLC5 '通达信分时LC5文件格式

tdxD As Integer '日期

tdxT As Integer '时间

tdxO As Single '开盘

tdxH As Single '最高

tdxL As Single '最低

tdxC As Single '收盘

tdxJ As Single '成交量

tdxN As Long '成交额

tdxX As Long '保留

End Type

读取时32字节为一段