请问各位大哥，股票的日线数据要怎样读出来啊 ( 积分: 200 )

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-28

• #1

我用通达信的行情软件看股票，南方证券超强版和国泰君安超强版都是用通达信软件，
我每天都在收盘后下载了日线数据，我想自己做个软件分析日线数据，可我又不懂这个数据的结构，急！于是我下载了600000浦发银行这只股票的一日的数据分析，这个数据文件名是：SH600000.day 文件大小只有160个字节（只有一日的K线），我用记事本打开，只显示：嗴1F J 9 F ?LC珼 F
这样的东东，实在搞不懂这是什么数据，哪位大哥能帮我读出里面的开盘价，收盘价....
人币支付也行!

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-28

• #2

我用通达信的行情软件看股票，南方证券超强版和国泰君安超强版都是用通达信软件，
我每天都在收盘后下载了日线数据，我想自己做个软件分析日线数据，可我又不懂这个数据的结构，急！于是我下载了600000浦发银行这只股票的一日的数据分析，这个数据文件名是：SH600000.day 文件大小只有160个字节（只有一日的K线），我用记事本打开，只显示：嗴1F J 9 F ?LC珼 F
这样的东东，实在搞不懂这是什么数据，哪位大哥能帮我读出里面的开盘价，收盘价....
人币支付也行!

 

S

sbzldlb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-28

• #3

可能它已经加密了
这样看是看不出来的

 

I

iamy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-28

• #4

一个字节一个字节的读
看看数值

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-28

• #5

我QQ112412387
这个文件我可以传给你们分析。

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #6

开个价吧

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #7

我急啊！！！1

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #8

　　 以深发展日线为例:
　　 1A76:0100 D6 CD 2F 01 52 07 01 00-52 07 01 00 52 07 01 00
　　 1A76:0110 52 07 01 00 86 0F 00 00-4D 02 00 00 00 00 00 00
　　 1A76:0120 00 00 00 00 00 00 00 00-D7 CD 2F 01 60 03 01 00
　　 1A76:0130 60 03 01 00 60 03 01 00-60 03 01 00 82 05 00 00
　　 1A76:0140 D4 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00
　　
　　 每一条记录的长度为40字节:
　　 1-4字节为日期,D6 CD 2F 01转换为十进制是:19910102
　　 5-8字节为开盘价*1000
　　 9-12字节为最高价*1000
　　 13-16字节为最低价*1000
　　 17-20字节为收盘价*1000
　　 21-24字节为成交量(手)
　　 25-28字节为成交金额
　　 其余12字节未使用
　　
//上面是我从网络上搜到的一点资料，D6 CD 2F 01转换为十进制是:19910102
我怎么用机算器把D6 CD 2F 01转换为十进制是3603771137

 

I

iamy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #9

这两天加班没注意看帖子
把文件发到我的邮箱里
m820126@163.com
我看看
我的Q：29460116

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #10

const
c:array[0..3] of byte=($D6,$CD,$2F,$01);
var
a:integer;
begin
move(c,a,4);
showmessage(inttostr(a));//19910102
end;

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #11

to:迷糊
谢谢你的代码，我运行了你的代码，确实对，但是怎么来的你能详细说明一下吗？

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #12

我的代码只是告诉你D6 CD 2F 01转换为十进制就是19910102
你的问题其实就是按格式解析这个流文件，文件格式你不是已经有了吗？

 

I

iamy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #13

TDayPak = packed Record
DataWORD;
//日期
OpenPriceWORD;
//开盘价格
HigPriceWORD;
//最高价
LowPriceWORD;
//最低价
ClosePriceWORD;
//收盘价
MoneyWORD;
//交易金额
VolumeWORD;
//交易笔数
UnKnownWORD;
//未知 or 未使用
//--------------
//total 32 BYte
end;

根据你的文件分析出的结构
给分吧
呵呵

 

L

lah998

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-29

• #14

iamy我答应分全给你，到下面这个贴接50分http://www.delphibbs.com/delphibbs/dispq.asp?lid=3182980
另外我给哈欠1000分。
问题已经解决!爽