[求助]大家帮忙看看（文本读写）

zhaofuc

斑竹你好！各位高手及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等命名，也可能部分层缺失

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