[第25期]数据提取（已结）

agstick

序言
纵观竞赛区的VBA题目，大多实用性较低，这期出一个实用一点的题目，乃本人实际工作中遇到的问题。如果大家对竞赛题有什么意见或建议，请到此贴发表http://club.excelhome.net/viewthread.php?tid=250396&px=0。

题目说明：
附件中有一个文本文件RealTimeData.txt，里面的数据为证券交易所与券商之间的通讯数据，数据传输采用STEP.1.0.0协议（证券交易数据交换协议，可参考附件），以消息的形式传输。每条消息都是以8=STEP.1.0.0
开始的，以10=xxx结束的，消息之间用（ASCII码为1的符号，晕，这个符号是非打印符号，加上之后就发不了贴，发了n次，大家在单元格输入=char(1)可看到此符号）做分隔符。现要提取前1000条消息到EXCEL中，每个字段占一列，如图所示。注意每条消息的长度不一定相等。

[此贴子已经被作者于2007-7-29 18:57:23编辑过]

willin2000

答案已发送至：agstick@126.com，占位。

答案正确，但速度稍慢。

[此贴子已经被agstick于2007-7-22 18:15:50编辑过]

chylhr

没有很好的理解题意，也不知自己做的对否，已发至指定邮箱，请版主审验。

 

结果正确，但用ReadAll方法一次性读取数据不好，占用内存大，对大文件不实用（导致内存溢出），本题原文件有1G多，这里只是截取了一小部分。

[此贴子已经被agstick于2007-7-22 18:29:15编辑过]

Luckyguy2008

已经发了邮件，请老师批阅，谢谢！

结果正确，一次性全部读入不好，一来占内存，二来耗时。

[此贴子已经被agstick于2007-7-23 22:49:45编辑过]

mxqchina

已将EXCEL文件发送到你的邮箱：agstick@126.com，跟一贴占位

代码挺简洁的，一次性读入不好。

[此贴子已经被agstick于2007-7-23 22:52:04编辑过]

mzlbx

回复为什么有40byte的限制

我的答案已发往你的邮箱,请查收,

我的答案已发往你的邮箱,请查收

我的答案已发往你的邮箱,请查收

我的答案已发往你的邮箱,请查收

结果正确，循环太慢。

[此贴子已经被agstick于2007-7-23 22:55:55编辑过]

f_qc

邮件已发送请查收

邮件已发送请查收

邮件已发送请查收

邮件已发送请查收

结果正确，一次性读入不好。

[此贴子已经被agstick于2007-7-23 22:57:26编辑过]

chrisfang

好多期VBA题没做过了，这期的简单，凑一下热闹。

答案已发送至版主邮箱，请审阅。

占楼完毕。

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

结果正确，速度较慢。

[此贴子已经被agstick于2007-7-23 23:03:41编辑过]

leeyong

参与一下!!!!!!!!!!!

结果正确，仍然是一次性读入。

[此贴子已经被agstick于2007-7-23 23:04:43编辑过]

agstick

本题的主要考察大家灵活提取数据。

1、本题数据集很大，本来有1G多，这里只截取了不到2M，所以用一次性读取的方法并不合适，一个字符串变量最多存放大概20亿个字符，多了会溢出。

2、本题的每条消息的长度不确定且长短不一，不能通过读入固定长度的字符串来读取。因此，我们通过seek方法来查找出每一条消息的长度，逐条读取，这样可以节约内存，但对大量数据速度会有一定的影响。

 

 以下是我的答案，供参考，不一定是最好的解法，应根据不同情况，应用不同的方法。