标题: [收集思路]把信息之间的n个空格替换为1个跳格 [打印本页]
作者: 523066680 时间: 2009-10-7 16:28 标题: [收集思路]把信息之间的n个空格替换为1个跳格
工作中得到一份电子料单，部分内容如下:
| Quote: | |
|
其中，第一列为物料名称，第二列为规格，第三列为封装，第四列为数量。
但是它们之间是用n个空格区分的，实际料单很长，要导入excel表格并
按excel的方式分列(excle用跳格符作为分列的标记)的话，可能要一个个地
去空格，换tab，纯体力活啊~
感觉当成批处理题目做的话还蛮适合~ 我就当题目发了，顺便看看有哪些
好思路
：假定上面给出的料单名为 list.txt
现要求用批处理对该料单进行整理，把数据之间的空格换成1个跳格符
并直接重定向生成结果文件: result.xls （没装excel的 生成【result.x】也行）
（跳格符发上来好像会变成连续空格吧，大家用文字表示好了，当然如果
有办法直接发的话，就教教我了。）
[ Last edited by 523066680 on 2009-10-7 at 16:38 ]
作者: 523066680 时间: 2009-10-7 17:07
在bathome进程，seter已经给出了用
for tokens=1-3的办法，%%a跳格%%b跳格%%c 重定向出结果。
但是列数被确定了。
现题目升级，列数未知。
[ Last edited by 523066680 on 2009-10-7 at 18:01 ]
作者: 523066680 时间: 2009-10-7 18:54
今天bathome真热闹，一下子就刷了一长串……
作者: Hanyeguxing 时间: 2009-10-7 19:48
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (list.txt) do (call :k "%%i"
>>result.x echo.!i!)
exit
:k
set i=%~1&set "i=!i: =#!"
:c
set "i=%i:##=#%"
for /f "delims=" %%i in ('echo %i% ^| find "##"') do goto c
set "i=%i:#= %"这里跳格
好象这个方法处理的太慢了for /f "delims=" %%i in (list.txt) do (call :k "%%i"
>>result.x echo.!i!)
exit
:k
set i=%~1&set "i=!i: =#!"
:c
set "i=%i:##=#%"
for /f "delims=" %%i in ('echo %i% ^| find "##"') do goto c
set "i=%i:#= %"这里跳格
[ Last edited by Hanyeguxing on 2009-10-8 at 04:37 ]
作者: terse 时间: 2009-10-7 20:57
字符串应该不含空格吧
@echo off&setlocal enabledelayedexpansion
set "Tab= "这里跳格
(for /f "tokens=*" %%i in (list.txt) do (
for %%a in (%%i) do set str=!str!%Tab%%%a
echo!str!&set "str="
))>result.x
pause
set "Tab= "这里跳格
(for /f "tokens=*" %%i in (list.txt) do (
for %%a in (%%i) do set str=!str!%Tab%%%a
echo!str!&set "str="
))>result.x
pause
作者: netbenton 时间: 2009-10-7 21:22
@echo off&setlocal enabledelayedexpansion
set "Tab= "这里跳格
(for /f "tokens=*" %%i in (list.txt) do (
set str=%%i
set str=!str: = %tab%!
set str=!str:%tab% =!
echo;!str: =!
))>result.x
pause
[ Last edited by netbenton on 2009-10-7 at 19:25 ]
作者: 523066680 时间: 2009-10-7 21:28
谢谢各位，学习了^_^
[ Last edited by 523066680 on 2009-10-7 at 21:30 ]
作者: zh159 时间: 2009-10-7 23:09
按 6 楼netbenton的方法，把TAB跳格改为“,”，输出>result.x改为>result.csv，就可以直接双击打开后进入分列好的excel列表，另存为电子表格文件
PS：前提是必须是正常安装的OFFICE
作者: 523066680 时间: 2009-10-8 10:47
前辈出马就是不一样~ 学习学习。
作者: slore 时间: 2009-10-8 12:18
如果存在 空格空格
替换 空格空格 为 空格
重复
作者: Hanyeguxing 时间: 2009-10-8 17:03
还可以对每行逐个字符解析，第一个空格输出为制表符，通过set /a或if defined来实现后面的空格不输出。
作者: 3742668 时间: 2009-10-9 15:34
如8L所说，转换为csv文件是可以直接用OFFICE打开的。
另外，利用Excel中的"数据","导入外部数据",然后选择要导入的文件，按照提示是可以被Excel识别的。
好久好久没来了，也来练练手(不涉及特殊字符,转换为逗号):
@echo off
for /f "delims=" %%i in (a.txt) do call :MySub %%i
pause
goto :eof
:MySub
set "str="
for %%j in (%*) do call set "str=%%str%%,%%j"
echo %str:~1%
goto :eof
for /f "delims=" %%i in (a.txt) do call :MySub %%i
pause
goto :eof
:MySub
set "str="
for %%j in (%*) do call set "str=%%str%%,%%j"
echo %str:~1%
goto :eof
作者: 3742668 时间: 2009-10-9 18:31
冷清许多了啊，WillSort,无奈何,都不来了吗?
一部《特种部队》都看完了也没引出玉来，再来一个吧:
@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
set str=%%i
(set str=!str: =^
!)
rem 上面的空行是个换行符，贴不出来黑点，参见附件
set NewStr=
for /f %%j in ("!str!") do set NewStr=!NewStr!,%%j
echo !NewStr:~1!
)
pause>nul
[ Last edited by 3742668 on 2009-10-9 at 18:32 ]setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
set str=%%i
(set str=!str: =^
!)
rem 上面的空行是个换行符，贴不出来黑点，参见附件
set NewStr=
for /f %%j in ("!str!") do set NewStr=!NewStr!,%%j
echo !NewStr:~1!
)
pause>nul
附件 1:xx.rar (2009-10-9 18:32, 476 bytes, 下载附件所需积分 1点 ,下载次数： 5)
作者: HAT 时间: 2009-10-9 19:17
WillSort,无奈何确实好几年没有出现过了
作者: 523066680 时间: 2009-10-9 19:31
3742668
版主改成txt的附件嘛，可以直接打开看并复制，压缩包要解压的哦。
yes……终于有崇拜的前辈来回帖了。
下载附件了，压缩包也有压缩包的好~ 那就压缩包了。
[ Last edited by 523066680 on 2009-10-9 at 19:35 ]
作者: wxcute 时间: 2009-10-9 20:25
也来一个
@echo off
setlocal enableDelayedExpansion
for /f "delims=" %%i in (list.txt)do (
call :SL %%i
echo!NL!&set NL=
)
pause
goto :eof
:SL
set "L=%* "
if not "%1"=="" set "NL=%NL%<TAB>%1"&call :SL %L:* =%
setlocal enableDelayedExpansion
for /f "delims=" %%i in (list.txt)do (
call :SL %%i
echo!NL!&set NL=
)
pause
goto :eof
:SL
set "L=%* "
if not "%1"=="" set "NL=%NL%<TAB>%1"&call :SL %L:* =%