文件读写方面

各位高手及lisp爱好者大家好！小弟有如下问题请教

我的一个文件夹内有n个 *.txt文件，其内容如下：

K9
KC31/4.2
25.0
1026.15
4422584.48
427059.58
4.1
8
1
1.8
2
4.8
3-1
6.4
3-2
11.1
4-1
13.5
4-2
16.5
其中1，2，3-1，3-2.。。。。等为地层编号，1.8，4.8，6.4.。。。。为层厚

请问我用什么方法可以读文件夹内的所有*.txt文件，并把txt文件内的，x，y，z，及每层的层号、层厚读出来，并写出到另一个新建的txt文件内？最好用lisp实现。


怎么能把所有钻孔文件中的文件读出来如下：

1-1
点名 x y z 层厚 层底深
1-2
点名 x y z 层厚 层底深


如果没有在钻孔文件中见到下一层，层底深就写成“未揭露”
关键是要把每个文件里的1-1，1-2等都写出来
当然，不同的工程有可能不是按1-1 ，1-2等命名，也可能部分层缺失


请高手赐教，小弟不胜感激！谢谢！