????????如何按指定的字符读入内容????????

Question

G54D131*G01X-248746Y-42190D02*G03X-249485Y-45762I8261J-3572D01*G01X-248746Y-42190D02*G03X-248499Y-41000I-2753J1190D01*G01X-278671Y-31253D02*X-261611Y-31253D01*X-261291Y-32253D02*X-278671Y-32253D01*X-261291Y-32253D02*G03X-259547Y-31694I0J3000D01*
....
有一个文本文件(Gerber),其内容格式见上.
在VB中如何每次按字符'*'分段读出该文本文件内容呢?
即第一次读出G54D131,第2次读出G01X-248746Y-42190D02,第3次读出G03X-249485Y-45762I8261J-3572D01...
另有没有高手弯过CAM之类的软件,这些软件在读入和分析很大的该种格式的文本文件时,速度都特快,不知使用了什么技术?
如果高手知道,还望不吝赐教,小弟不胜感激!!!!

Answer 1

dim a() as string
a=split(文本,"*")

Answer 2

感谢各位的帮助,用split函数来分的话,如果该文本文件有好几十K,但只有一行,用split函数还可以吗?速度好象太慢了吧!

Answer 3

那就用Replace函数把 *字符替换为vbCrLf字符
然后填入控件中(例如:RichText)
再一行一行地读就可以了

Answer 4

Split速度不会慢
甚至比replace都能快
呵呵
一行一行读取文本才慢呢
split是在内存中执行
replace后一行一行读取因为还要有个中间控件
所以反而可能更慢
你自己试下就知道了