文件重写问题... ( 积分: 100 )

现有10个文本文件,内容类似
结构如下:
39 PARAMETERS ON 02MAR05.
1 CNJU STA X -0.311707597168117E+07 +- 0.771081637916819E-02
2 CNJU STA Y 0.406794987251514E+07 +- 0.148835308704736E-01
3 CNJU STA Z 0.378430044185628E+07 +- 0.129338659068203E-01
4 DAEJ STA X -0.312004166234297E+07 +- 0.869610468230402E-02
5 DAEJ STA Y 0.408461502375591E+07 +- 0.149460115317241E-01
6 DAEJ STA Z 0.376402691174504E+07 +- 0.187666604742161E-01
....
....
想把此类文件重新写成针对每个点(如:CNJU, DAEJ)的X,Y,Z,
该如何做? TStringList做起来比较麻烦,
紧急!!!

不知所云！
一头雾水？

举个例子, 01.txt的内容为:
***************
1 CNJU STA X -0.311707597168117E+07
2 CNJU STA Y 0.406794987251514E+07
3 CNJU STA Z 0.378430044185628E+07
4 DAEJ STA X -0.312004166234297E+07
5 DAEJ STA Y 0.408461502375591E+07
6 DAEJ STA Z 0.376402691174504E+07
********
我把它分两个文件 即 CNJU.txt, DAEJ.txt. 再CNJU.txt的内容是:
X Y Z
-0.311707597168117E+07 0.406794987251514E+07 0.378430044185628E+07
.....
读取的文件是系列的, 01.txt, 02.txt, .... 20.txt
逐个读取, 重新写个CNJU.TXT, DAEJ.TXT
就是想重排一下, X,Y,Z.

只要能保证01.txt数据的完整性，就直接循环01.txt的lines就可以了；