您所在位置：主题：[原创]求助：如何解决文本读取问题
chinabiz
[专家分：0] 发布于 2011-03-24 16:18:00
各位VB大侠，求助了：
附件中，有两个文件，一个是txt格式的，一个是word格式的。里面的内容一样，就是想要处理的内容。
问题是这样的：
文件里头有许多记录，每个记录之间是通过两个换行符隔开的，每个记录中含有的具体字段数目不是完全一致（有的只有AP、OPD、PD、PN四个，有的有AP、OPD、PD、PN、PNFP共五个）。
其实最终希望实现的是，目前每个纪录都是横向排列的，希望将每个记录的字段以纵向的方式排列，从而可以放到excel中。
于是想到用VB，希望将AP、OPD、PD、PN、PNFP的内容，读取到对应的数组中，作为数组的元素（比如，建立arr_ap()、arr_opd()、arr_pd()、arr_pn()、arr_pnfp()数组），然后，将这些数组各自写到一个对应的文件中（比如AP.txt、OPD.txt、PD.txt、PN.txt、PNFP.txt），然后再从对应的文件中，将一列一列的数据，拷贝到Excel中，最终实现将数据按照列（字段）的形式在excel中排列。
我试图按照一些VB教材的Input、Output、Line Input、Input等方法去做，使用do...loop、for...next、if...then...else等，可是怎么也实现不了。
所以特地到此地寻求帮助！
期待着高手不吝赐教！
PS：如果可以不是用VB，而是用其他方法也可以。不过，附件中的仅是一个例子，我实际要处理的数据，记录数目都是在5万个左右的。
期待~~~~~~
再次补充说明：由于对论坛不熟悉，似乎只能够上传一个附件，所以又将问题与想要的效果合并了，压缩再上传了。
请大家们帮忙啊~~~
附件中，有两个文件，一个是txt格式的，一个是word格式的。里面的内容一样，就是想要处理的内容。
问题是这样的：
文件里头有许多记录，每个记录之间是通过两个换行符隔开的，每个记录中含有的具体字段数目不是完全一致（有的只有AP、OPD、PD、PN四个，有的有AP、OPD、PD、PN、PNFP共五个）。
其实最终希望实现的是，目前每个纪录都是横向排列的，希望将每个记录的字段以纵向的方式排列，从而可以放到excel中。
于是想到用VB，希望将AP、OPD、PD、PN、PNFP的内容，读取到对应的数组中，作为数组的元素（比如，建立arr_ap()、arr_opd()、arr_pd()、arr_pn()、arr_pnfp()数组），然后，将这些数组各自写到一个对应的文件中（比如AP.txt、OPD.txt、PD.txt、PN.txt、PNFP.txt），然后再从对应的文件中，将一列一列的数据，拷贝到Excel中，最终实现将数据按照列（字段）的形式在excel中排列。
我试图按照一些VB教材的Input、Output、Line Input、Input等方法去做，使用do...loop、for...next、if...then...else等，可是怎么也实现不了。
所以特地到此地寻求帮助！
期待着高手不吝赐教！
PS：如果可以不是用VB，而是用其他方法也可以。不过，附件中的仅是一个例子，我实际要处理的数据，记录数目都是在5万个左右的。
期待~~~~~~
再次补充说明：由于对论坛不熟悉，似乎只能够上传一个附件，所以又将问题与想要的效果合并了，压缩再上传了。
请大家们帮忙啊~~~
