标题: [已结]导出每一行的数据为一个TXT文件并操作(感谢slore兄) [打印本页]
作者: flybird2020 时间: 2007-8-20 10:38 标题: [已结]导出每一行的数据为一个TXT文件并操作(感谢slore兄)
现有一EXCEL表格，名为All.xls
内容为
1 6 9 4
a c e d
一 二 三 四
等等。。。
要求如下：
1、把每一行导出为一个TXT文件
2、每一行的每一格都加相同的注释，并换行
如：
1.txt的内容为：
第一列：1
第二个：6
第三格：9
最后个：4
2.txt的内容为：
第一列：a
第二个：c
第三格：e
最后个：d
3.txt的内容为：
第一列：一
第二个：二
第三格：三
最后个：四
如果说EXCEL表不好用批处理导出的话，可不可以我手动先把XLS内容复制到TXT里，以每个TABLE为变量来导出呢？
小弟太菜，搜索了半天找不到门道，只能求助，谢谢大大们了。。。
[ Last edited by flybird2020 on 2007-8-21 at 11:04 AM ]
作者: slore 时间: 2007-8-20 10:50
如果说EXCEL表不好用批处理导出的话，可不可以我手动先把XLS内容复制到TXT里，以每个TABLE为变量来导出呢？
@echo off&&setlocal EnableDelayedExpansion
Set Num=1
for /f "tokens=1,2,3,4 delims= " %%a in (in.txt) do (
echo %%a>>!Num!.txt
echo %%b>>!Num!.txt
echo %%c>>!Num!.txt
echo %%d>>!Num!.txt
Set /a Num+=1
)
pause
Set Num=1
for /f "tokens=1,2,3,4 delims= " %%a in (in.txt) do (
echo %%a>>!Num!.txt
echo %%b>>!Num!.txt
echo %%c>>!Num!.txt
echo %%d>>!Num!.txt
Set /a Num+=1
)
pause
作者: flybird2020 时间: 2007-8-20 11:07
| Quote: | |
|
谢谢slore兄的解答
那么我现在还有两个问题
1、每一条数据加一个“注释”，如第一条加“第一列”，第二条加“第二个”，这个能不能加上去？
第一列：1
第二个：6
第三格：9
最后个：4
2、可否用固定某一列做为文件名？第二个：6
第三格：9
最后个：4
如在上例中，用6、C、二，做为文件的命名(6.txt,C.txt,二.txt)
表达的不是很清楚，希望slore兄能不吝赐教，谢谢了
[ Last edited by flybird2020 on 2007-8-20 at 11:12 AM ]
作者: vkill 时间: 2007-8-20 21:04
用vba 好了
作者: slore 时间: 2007-8-20 23:41
@echo off&&setlocal EnableDelayedExpansion
for /f "tokens=1,2,3,4 delims= " %%a in (in.txt) do (
echo 第一列：%%a>>%%b.txt
echo 第二个：%%b>>%%b.txt
echo 第三格：%%c>>%%b.txt
echo 最后个：%%d>>%%b.txt
)
pause
作者: flybird2020 时间: 2007-8-21 09:11
| Quote: | |
|
slore兄，太厉害了
我还有很长的路要走
希望能在您身上学到更多
谢谢
谢谢