标题: [求助]读取文件名按特定的格式输出至文本中! [打印本页]

---

作者: ganjie     时间: 2009-1-16 20:47    标题: [求助]读取文件名按特定的格式输出至文本中!

求大大们帮忙写个批，小弟在此先谢谢了！假如某目录下有文件夹若干，如psp、nds、bbs等，它们里面都有一个word子目录，要求一一对应读取其文件名，然后按6个为一组保存到文本中，假设psp下有文件doc01、doc02、doc03、……，其子目录word下有文件word01、word02、word03……,输出格式如下：

psp01.txt
<p>
<a doc01 1><word/word01>
<a doc02 2><word/word02>
<a doc03 3><word/word03>
<a doc04 4><word/word04>
<a doc05 5><word/word05>
<a doc06 6><word/word06>
<p>
<p>doc01<P>

psp02.txt
<p>
<a doc07 1><word/word07>
<a doc08 2><word/word08>
<a doc09 3><word/word09>
<a doc10 4><word/word10>
<a do011 5><word/word11>
<a doc12 6><word/word12>
<p>
<p>doc07<P>

psp03.txt
<p>
<a doc13 1><word/word13>
<a doc14 2><word/word14>
<a doc15 3><word/word15>
<a doc16 4><word/word16>
<a do017 5><word/word17>
<a doc18 6><word/word18>
<p>
<p>doc13<P>

psp里的文件名是按文件名名称排序读取，doc01、doc02、doc03这些是假设文件名是这样，psp里的文件个数与其子目录word里文件的个数是相同的，如果最后不满6个则，如下：
如果最后还剩5个，则
<p>
<a doc61 1><word/word61>
<a doc62 2><word/word62>
<a doc63 3><word/word63>
<a doc64 4><word/word64>
<a doc65 5><word/word65>
<p>
<p>doc61<P>

如果最后剩4个，则
<p>
<a doc61 1><word/word61>
<a doc62 2><word/word62>
<a doc63 3><word/word63>
<a doc64 4><word/word64>
<p>
<p>doc61<P>
同理如果剩1个，则
<p>
<a doc61 1><word/word61>
<p>
<p>doc61<P>

[ Last edited by ganjie on 2009-1-19 at 11:52 ]