| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 565 人关注过本帖
标题:关于读取数据并插值计算的问题
只看楼主 加入收藏
xingming022
Rank: 1
等 级:新手上路
帖 子:103
专家分:9
注 册:2015-1-26
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:5 
关于读取数据并插值计算的问题
我需要读取500个左右的数据,并利用其中的部分数据进行插值计算。
我的思路是:把数据放到txt中,然后用数组读取,感觉比较笨,有更高的读取方式么啊 ?希望高手给指点下~
搜索更多相关主题的帖子: 左右 
2015-07-22 17:15
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:20 
回复 楼主 xingming022
读取500个数据怎么做都可以吧。
原始数据从哪儿来?如果是通过各种接口来,那就直接给数组赋值。
如果来自其它的文件,也可以先转成TXT当中介,也可以直接处理后给数组。

大开眼界
2015-07-23 09:24
xingming022
Rank: 1
等 级:新手上路
帖 子:103
专家分:9
注 册:2015-1-26
收藏
得分:0 
我以为可以用什么数据库之类的能更优些,本人对数据库那些也不懂~
2015-07-27 14:52
xingming022
Rank: 1
等 级:新手上路
帖 子:103
专家分:9
注 册:2015-1-26
收藏
得分:0 
如果用数组,是要这样把所有的元素都罗列出么啊?
Dim msz(1 To 500) As Single
Open App.Path & "\a.txt" For Input As #1 'Binary
Do While Not EOF(1)
Input #1, _
sz(1), sz(2), sz(3), sz(4), sz(5), sz(6), sz(7), sz(8), sz(9), sz(10), _
sz(11), sz(12), sz(13), sz(14), sz(15), sz(16), sz(17), sz(18), sz(19), sz(20), _
sz(21), sz(22), sz(23), sz(24), sz(25), sz(26), sz(27), sz(28), sz(29), sz(30), _
sz(31), sz(32), sz(33), sz(34), sz(35), sz(36), sz(37), sz(38), sz(39), sz(40), _
sz(41), sz(42), sz(43), sz(44), sz(45), sz(46), sz(47), sz(48), sz(49), sz(50), _
sz(51), sz(52), sz(53), sz(54), sz(55), sz(56), sz(57), sz(58), sz(59), sz(60), _
sz(61), sz(62), sz(63), sz(64), sz(65), sz(66), sz(67), sz(68), sz(69), sz(70), _
sz(71), sz(72), sz(73), sz(74), sz(75), sz(76), sz(77), sz(78), sz(79), sz(80), _
sz(81)........sz(500)
Loop
2015-07-30 11:29
lianyicq
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:26
帖 子:737
专家分:3488
注 册:2013-1-26
收藏
得分:0 
回复 4楼 xingming022
今天才看到这个问题。
如果a.txt中的数据有分隔符分隔,把合部文件数据读入到字符串变量中,然后用SPLIT函数给动态数组赋值。坛内有类似贴子

大开眼界
2015-08-04 13:02
xingming022
Rank: 1
等 级:新手上路
帖 子:103
专家分:9
注 册:2015-1-26
收藏
得分:0 
回复 5楼 lianyicq
按照您的意见,已经搞定了。比我之前的方法快捷多了。谢谢~
2015-08-07 14:29
快速回复:关于读取数据并插值计算的问题
数据加载中...
 
   



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

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