Question

批量读取txt中指定字符后数据到表格中，可使用VB或matlab

有大量txt文件，想要同时将这些txt中某个特定标示符（例如example）之后的数据读入到excel中，如下所示：

example
1 2 3
2 3 4
5 6 2
7 23 5
wqewdsa
dsad
就想要实现将中间的四行读入到四行三列的表格中。

谢谢，可以使用VB或者matlab都可以，请高手指点，万分感谢
大家都说我说的不明白，我再补充一下：
有大量文本文件，想要同时将这些文本文件中某个特定标示符（例如example）之后的数据读入到excel中，希望能够直接提供给我代码，万分感谢。

文本文件的格式如下所示：

///////////////////********文本文件**************////////////////////
wqewdsa
dsad

wqewdsa
dsad
example
1 2 3
2 3 4
5 6 2
7 23 5
wqewdsa
dsad
wqewdsa
dsad
///////////////////**********文本文件**************////////////////////

这些文本文件名称都是以.out为后缀的。

最终目的是实现：
把每个文本文件中读取的：
1 2 3
2 3 4
5 6 2
7 23 5
这些数以四行三列的方式放到以该文件名命名的sheet里。
例如原来的文件名是ex.out，那么新建一个名称为ex的sheet，并将数据放在这里。

Answer 1

dim shu as string '这里面存储读取的txt内容
dim fenge()  as string
fenge=split(shu,"example")'使用example分割txt内容. fenge(1)即example后面的内容
dim fenge1() as string
fenge1=split(fenge(1),vbcrlf) '使用回车分割example后面内容
for i=1 to 4 '遍历example之后的四行
 dim fenge2() as string
 fenge2=split(fenge1(i)," ") 再使用空格来分割
   for j=0 to 2
      '这里可取出fenge2(j),即1或2或3或7或23或5这些数据。写到表格里
   next j
next i

追问

请教一下：

1. 这里好像没有实现我说的批量文件，对吗，如何批量读取后缀是txt的文件呢？
2. 怎么把fenge2(j),即1或2或3或7或23或5些数据写表格里？
3. 我想要把每个txt放到以该文件名命名的sheet里，如何实现？

最好具体一点让我参考，因为我没有VB基础，谢谢。
最好详细点，问题解决了，财富啥的，可以追加。

Answer 2

如果要学习,那么你应该掌握的知识:
1,读取TXT文件.
2,VB对字符串操作的常用函数,
3,VB操作EXCEL的方法.

如果是要代码:
那么,把TXT文件的格式,以及目标文件exceL如何写,写到哪里,发上来.

追问

我已补充问题，请指点~ 我是想要得到代码的，这样就方便了。 谢谢~

Answer 3

问题描述不够清楚

1、你这些txt文件的文件名是怎么命名的？
2、是不是文件中example只出现一次，且后面一定跟着四行三列的数据？

追问

好的。

1. txt命名没有规则，唯一的一致性是以txt为后缀。

2. 是的，example不止出现一次，后面的数据也不一定是四行三列，但数据后面是跟的另外一个标志性单词“totel”

如果仍不明白请联系我，谢谢，我的QQ=353490311