懂excel和vba的才来

raobinhsh

通过一个文本文件产生很多文本文件
说明：
一 文件部分
1 1.txt为源文件，是文件本来就有的，
是产生其他文件的基础
2 1.txt由xls文件格式复制粘贴在记事本中而形成，
每列分隔符为“TAB”键
3 1.txt文件中每隔若干行有一列空行，或该行第一个字符空缺，
即没有“W1”，“W2”，
这样的字符，这表示其他文件的分隔符，程序每遇到这种情况，
将重新产生一个文件
4 源文件文件名不一定是1.txt，也可能是其他名字的文本文件
5 所产生的新的一系列文件文件名由产生这个文件的数据中第一
列的第一行字符和最后一行字符组成
以及这组数据在源文件中的排列顺序
6 示例
以1-w1w162txt为例：
6.1 在1.txt中从W1开始到W162结束，下一行没有带W的字符，
认为这些数据应产生一个文本文件
6.2 由于这些数据在源文件产生的文件中排列第一，所以文件名前带有“1-”字样，
由于这些数据从W1开始到W162结束，所以整个文件名为“1-W1W162. txt


二 新文件产生规则
以1-w1w162txt为例：
1 文件的第一行数据 (0 159 159 0 -1.172 "w" 1)
“（0” 为固定字符输入，
第一个“159” 表示源文件中这组数据第三列和第四列数据的行数
第二个“159” 表示源文件中这组数据第五列、第六列、第七列和
第八列数据的行数
第二个“159”后的“0” 为固定字符输入，
“-1.172”为源文件中这组数据第二列的第一行的数据
“w” 为固定字符输入
“1” 为源文件中这组数据第一列的第一行的数据去掉“w”后的数据
“)” 为固定字符输入

2 文件除去第一行数据后的第一个“159”行数据
(0.0 2.882)：括号内数据为源文件中这组数据每行第三列和第四列字符
字符之间分隔符为空格，字符与括号之间无空格
其他每行数据也一样是这个意义


3 文件除去第一行数据后的第二个“159”行数据
(300 1.1 500 nil)
(330 0.9 700 -0.2)
括号内数据为源文件中这组数据每行第五列、第六列、第七列和第八列数据字符
字符之间分隔符为空格，字符与括号之间无空格
其他每行数据也一样是这个意义
如果第八列数据为0，则改为“nil"
具体请见附件

cuseasky

请联系　itcad@sina.com