查看: 5785|回复: 24
导入通达信股票数据至内存数组中的方法和代码
阅读权限20
在线时间 小时
& && &感谢香川大师！lee1892大师！wcymiss大师！，您们的帮助让我受益无穷，我想有没有和我一样想自己计算股票数据的，我也出点微薄之力，把我导出的方式和代码与你共享。目的，导出每只股票的历史数据至内存数组里，供后期计算研判（导入内容：日期，开盘价，最高价，最低价，收盘价，成交量，成交额，mf里存放的是股票代码），从日至日，文本2809个，导入至arr里483万行7列，耗时18秒，呵呵，如果不定义变量类型，耗时22秒
Option Explicit
Dim arr(1 To
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()
Debug.Print Timer - time
(25.48 KB, 下载次数: 165)
10:43 上传
(34.14 KB, 下载次数: 150)
10:43 上传
(58.06 KB, 下载次数: 166)
10:43 上传
(131.41 KB, 下载次数: 127)
10:43 上传
(59.07 KB, 下载次数: 182)
10:43 上传
阅读权限20
在线时间 小时
以上使用的是通达信股票软件，任意版本都行，新下载的通达信软件，没有历史数据，要先下载盘后历史数据后，在导出即可
阅读权限50
在线时间 小时
一句cmd命令的事，你非要二三十行代码...
阅读权限50
在线时间 小时
& & & & & & & &
一句cmd命令的事，你非要二三十行代码...
请教大师，如何实现！？
阅读权限70
在线时间 小时
我的数据导出来了，可是往arr写的时候，excel自动退出，看来arr行数设置到500万不行，我的是excel2010，i7，8g内存
阅读权限20
在线时间 小时
我也用通达信导过，不过我是导成excel文件，同是2800多个，然后计算公式的收益率。采用不打开工作簿读取数据的方法，也可以实现。
阅读权限20
在线时间 小时
本帖最后由 xuesheng1 于
23:25 编辑
我的数据导出来了，可是往arr写的时候，excel自动退出，看来arr行数设置到500万不行，我的是excel2010，i7 ...
可能的问题
1，你的计算机内存不足
2，你导出的数据起点日期是多少，如果从1991年起导出，肯定超出500万行，我是从2005年起导出的，483万行，做历史统计，我觉得从年起就够了
我是excel2013,16G内存，我测试过，最大可以装入2800万行8列没有问题，但一个arr不要装满吧，还得给其他后续数组留点地方
阅读权限20
在线时间 小时
我也用通达信导过，不过我是导成excel文件，同是2800多个，然后计算公式的收益率。采用不打开工作簿读取数 ...
对的，我开始也是这样导出的，但后续如果统计众多，计算很慢，不如一次性装入内存，或许我没有想到更好的方法，或许你的方法更强大
阅读权限50
在线时间 小时
请教大师，如何实现！？
COPY *.txt 汇总.txt
之后把汇总文件在EXCEL中分列就完成了
用VBA代码的目的是化繁为简，既然有简单的方法那就没必要使用VBA
阅读权限50
在线时间 小时
我的数据导出来了，可是往arr写的时候，excel自动退出，看来arr行数设置到500万不行，我的是excel2010，i7 ...
excel最多有1048576行
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师(window.slotbydup=window.slotbydup || []).push({
id: '5450491',
container: s,
size: '600,50',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '3991088',
container: s,
size: '100,240',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '3991102',
container: s,
size: '100,240',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '4044404',
container: s,
size: '240,146',
display: 'inlay-fix'
如何把时间嵌入主图（代码）
粉丝：2132
理想高三级同学(菠菜一段)
还需要 4199 积分才能升级
如何把时间嵌入主图（代码）
浏览：33734
欢迎光临理想论坛，由于您没有登录，所以无法查看到论坛的附件及隐藏分区，也无法与其他会员交流。
还没有理想论坛的帐号？
名称：时间代码
可以把时间“年月日时分星期”嵌入主图
下载：<font color="#FF次
时间： 16:45
(210.44 KB)
时间： 16:45
上图主图最适合上班族用的选股利器——《三角托后找低点》
一分钟内连续买量超万手预警
[ 本帖最后由 回到未来58 于
05:55 编辑 ]股票论坛 www.55188.com
会员参与反馈
推荐(155次)93.94%
不推荐(2次)1.21%
好好学习，天天烧香。。。
积分25801&理想币2437 个&彩币300 个&共享币29321 个&注册时间&
理想初二级同学
还需要 822 积分才能升级
路过帮顶，这个时间还是蛮实用的！
积分5178&理想币829 个&彩币5 个&共享币3856 个&注册时间&
理想高三级同学(菠菜一段)
还需要 8063 积分才能升级
好好学习，天天烧香。。。
积分21937&理想币48 个&彩币102 个&共享币4437 个&注册时间&
粉丝：2132
理想高三级同学(菠菜一段)
还需要 4199 积分才能升级
可以把时间“年月日时分星期”嵌入主图,对选股没有意义，只是一种技巧
[ 本帖最后由 回到未来58 于
07:49 编辑 ]
藏金阁:百宝箱
标题:一分钟连续买量超万手预警
最大订阅:30人 (订阅人数超过该值后将自动过期,终止订阅)
订阅有效期:
描述:短线精灵有这个功能，但信号太多，无所适从。本指标一天不超过10个信号。本信号出现时在分时图上象火箭发射，买入的时机不超过3个点，可能有回档1~2个点再杀入。盘子不能太大，股价相对位置不能太高，涨停板的概率很大。
积分25801&理想币2437 个&彩币300 个&共享币29321 个&注册时间&
理想初二级同学
还需要 1942 积分才能升级
路过帮顶一个，这个时间不知道怎么用，请指教！！！
积分4058&理想币334 个&彩币0 个&共享币2095 个&注册时间&
理想初一级同学(菠菜一段)
还需要 1769 积分才能升级
只是把时间加入&&有什么意义 ？
积分2231&理想币508 个&彩币501 个&共享币2928 个&注册时间&
理想大一级同学(菠菜一段)
还需要 4438 积分才能升级
积分35562&理想币13637 个&彩币58 个&共享币8322 个&注册时间&
理想大一级同学
还需要 8816 积分才能升级
积分31184&理想币923 个&彩币0 个&共享币13605 个&注册时间&
理想大四级同学
还需要 19732 积分才能升级
积分60268&理想币10920 个&彩币0 个&共享币10812 个&注册时间&
理想初二级同学
还需要 1160 积分才能升级
这个对做股票没啥用吧？
积分4840&理想币1123 个&彩币0 个&共享币2394 个&注册时间&
理想高三级同学
还需要 7623 积分才能升级
有什么意义 ？
积分22377&理想币3831 个&彩币1 个&共享币1186 个&注册时间&
理想高三级同学
还需要 7899 积分才能升级
时分秒股市开市期间才有数字变动吗？
积分22101&理想币662 个&彩币0 个&共享币280 个&注册时间&
理想初二级同学(菠菜一段)
还需要 1298 积分才能升级
虽没实际意义但还是支持下楼主！
积分4702&理想币479 个&彩币302 个&共享币7611 个&注册时间&
理想大一级同学
还需要 6465 积分才能升级
虽没实际意义但还是支持下楼主！
积分33535&理想币2531 个&彩币0 个&共享币15351 个&注册时间&
理想高二级同学
还需要 1050 积分才能升级
§13§ ~~~~
积分18950&理想币17498 个&彩币0 个&共享币271 个&注册时间&
粉丝：2132
理想高三级同学(菠菜一段)
还需要 4199 积分才能升级
把年月日时间参数嵌入主图，对保留截图很有好处，便于分析历史图形的对比.
积分25801&理想币2437 个&彩币300 个&共享币29321 个&注册时间&
粉丝：2132
理想高三级同学(菠菜一段)
还需要 4199 积分才能升级
对保留截图很有好处，便于分析历史图形的对比.
积分25801&理想币2437 个&彩币300 个&共享币29321 个&注册时间&
理想初二级同学
还需要 1273 积分才能升级
能精确到秒就好了。。
再研究一下有没有这种可能
积分4727&理想币662 个&彩币0 个&共享币6414 个&注册时间&
理想学士级同学
还需要 16053 积分才能升级
谢谢.......................
积分83947&理想币17328 个&彩币2 个&共享币2381 个&注册时间&
粉丝：2132
理想高三级同学(菠菜一段)
还需要 4199 积分才能升级
对保留截图很有好处，便于分析历史图形的对比
积分25801&理想币2437 个&彩币300 个&共享币29321 个&注册时间&
快速回复主题
禁用 URL 识别
使用个人签名
接收新回复邮件通知
发帖请务遵守本站的相关规则，所有发表(包括转发)政治、色情非法信息者本站将实时提供发贴者个人信息给公安局，追究责任，特此申明！
具体规则请参见《》
您需要登录后才可以发帖
发表帖子[完成后可按 Ctrl+Enter 发布]
理想论坛上的网友发表的帖子纯属个人意见，理想论坛不负任何责任！广告赞助商内容与本站无关！
理想论坛值班电话[9:30～18:30]： &#6 5518-1 &#66 3090 &#9742; 186 (广告)&#9742; 187 (广告)
工业和信息化部信息备案：通达信经典指标组合图文详解【有源代码、公式导入、设置、软件操作等】_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
通达信经典指标组合图文详解【有源代码、公式导入、设置、软件操作等】
&&薛斯通道、薛斯通道II、DMI、CCI,薛斯通道和薛斯通道II附带源码,DMI和CCI两个指标系统自带。本文档附带了四个指标的源码,用法,如何设置指标的方法,附图解释
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
&#xe64e;加入VIP
还剩28页未读，
定制HR最喜欢的简历
你可能喜欢如何取得通达信子窗口上显示的股票代码
[问题点数：50分，结帖人isfay]
如何取得通达信子窗口上显示的股票代码
[问题点数：50分，结帖人isfay]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2012年 总版技术专家分年内排行榜第一
2013年 总版技术专家分年内排行榜第七2011年 总版技术专家分年内排行榜第五2009年 总版技术专家分年内排行榜第九
匿名用户不能发表回复！|