| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2497 人关注过本帖, 1 人收藏
标题:如何打开股票软件的数据库
只看楼主 加入收藏
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:0 
对比看了一下网上搜索到的资料,好象是日线数据。
看看是不是?
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
CLEAR
CREATE CURSOR DAY表 (日期 C(10), 开盘价×1000 I, 最高价×1000 I, 最低价×1000 I,;
                     收盘价×1000 I, 成交量(手) I, 成交金额 I, 上涨家数 I, 下跌家数 I)
hf = FOPEN("C:\TEMP\Test\sh880681.day")
IF hf < 0
    RETURN
ENDIF
DO WHILE !FEOF(hf)
    sz = FREAD(hf, 32)
    IF !EMPTY(sz)
        INSERT INTO DAY表 VALUES (TRANSFORM(CTOBIN(LEFT(sz,4), "4RS"), "9999/99/99"),;
                                  CTOBIN(SUBSTR(sz,  5, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz,  9, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz, 13, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz, 17, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz, 21, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz, 25, 4), "4RS"),;
                                  CTOBIN(SUBSTR(sz, 29, 2), "2RS"),;
                                  CTOBIN(SUBSTR(sz, 31, 2), "2RS"))
    ENDIF
ENDDO
FCLOSE(hf)
GO TOP 
BROWSE
2015-06-10 09:24
ILoveVFD
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:218
专家分:147
注 册:2015-5-2
收藏
得分:4 
回复 11楼 吹水佬
版主功夫深啊!
2015-06-11 08:37
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:694
专家分:20
注 册:2014-1-16
收藏
得分:0 
吹水佬师傅是在不好意思,我要的数据是每天实时交易的明细数据,但我还没有弄清楚在哪个文件里面
2015-06-12 15:37
快速回复:如何打开股票软件的数据库
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017022 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved