标题: 一个文件名处理的小问题 [打印本页]
作者: groofy 时间: 2008-4-1 21:38 标题: 一个文件名处理的小问题
如何实现下面的功能？
例：
d:\tmp\11_223_321_42.txt
d:\tmp\12_456.txt
读成
11
223
321
42
11
456
作者: bat-zw 时间: 2008-4-3 18:01 标题: 好不容易：
楼主的这个小问题好难啊，终于还是搞出来了：
@echo off
for /f "delims=: tokens=1" %%i in ('dir /a-d /b d:\temp ^| findstr /n .*') do (
set str=%%i
set /a str-=1
call :lp %%str%%
)
pause
:lp
set var=skip=%1
if "%var%"=="skip=0" set var=
set n=1
:begin
for /f "%var% delims=_ tokens=%n%" %%i in ('dir /a-d /b d:\temp') do (
set /a n+=1
set b=%%i
setlocal enabledelayedexpansion
set b=!b:.txt=!
echo !b!&goto begin
endlocal
)
echo.&goto :eof
[ Last edited by zw19750516 on 2008-4-3 at 06:04 PM ]for /f "delims=: tokens=1" %%i in ('dir /a-d /b d:\temp ^| findstr /n .*') do (
set str=%%i
set /a str-=1
call :lp %%str%%
)
pause
:lp
set var=skip=%1
if "%var%"=="skip=0" set var=
set n=1
:begin
for /f "%var% delims=_ tokens=%n%" %%i in ('dir /a-d /b d:\temp') do (
set /a n+=1
set b=%%i
setlocal enabledelayedexpansion
set b=!b:.txt=!
echo !b!&goto begin
endlocal
)
echo.&goto :eof
作者: bat-zw 时间: 2008-4-3 18:37 标题: 看似好简单的问题，对此问题的一点分析：
::::::开始我还真的以为是个简单的问题，就看了一眼再没去想了。今天在论坛闲逛又进了这个帖子，想了一下也许实现起来还真有点问题。于
===================================================================================
是，开始写代码，谁知道越写越觉得有困难，抱着不放弃的念头终于还是写出了能实现的代码，下面就简单地分析一下这个难题：
===================================================================================
首先用dir /a-d /b 列出文件夹下所有的txt文件，接着对各个长文件名进行拆分（这个当然容易，用delims=_就搞定了），然后要逐行提
===================================================================================
取输出拆分文件名的各部分字符串并去除最后一部分字符串中的.txt字符，这就要求在for循环中只能按列去循环提取文件名的各部分字符串
===================================================================================
（也就是在没提取完之前不能跳到下一行也就是下一个文件名）。在这里开启了变量延迟并使用了变量替换set b=!b:.txt=!，同时加入了：
===================================================================================
begin内循环来完成对列的循环。
===================================================================================
最难的问题还是在于完成了列的循环后如何再进入下一行（也就是跳到下一个文件名）来重复列的循环，于是我想到了在前面加入了for循
===================================================================================
环并逐次提取下一行（也就是一个一个文件来）并使用了call反复调用列循环，最终实现了依次对每个名件名各部分字符串的提取。
===================================================================================
最后希望有高手能完善我这段显得繁杂的代码，在此先谢过了。
===================================================================================
[ Last edited by zw19750516 on 2008-4-3 at 06:57 PM ]
作者: plp626 时间: 2008-4-3 19:02
楼上,想得有点复杂了吧.
假设test.txt内为:
d:\tmp\11_223_321_42.txt
d:\tmp\12_456.txt
@echo off
for /f %%a in (test.txt)do set e=%%~na &call:d %%e:_= %%
pause
:d
if [%1]==[] goto :eof
echo.%1
shift
goto :d
for /f %%a in (test.txt)do set e=%%~na &call:d %%e:_= %%
pause
:d
if [%1]==[] goto :eof
echo.%1
shift
goto :d
作者: bat-zw 时间: 2008-4-3 19:22
| Quote: | |
|
自己测试吧。。。。。。。。。。。
作者: bat-zw 时间: 2008-4-3 19:28
| Quote: | |
|
shift变量移位确实妙！！！但这段代码对两个文件之间的分隔还是没实现，echo.%1中eho.是无效命令，改为：
@echo off
for /f %%a in (test.txt)do set e=%%~na &call:d %%e:_= %%
pause
:d
if [%1]==[] echo.&goto :eof
echo %1
shift
goto :d
即使这样通用性还是有问题，当文件名分分隔部分超过8个时，如1＿1＿1＿1＿1＿1＿1＿1_1_1_1.txt时就会出现问题了。for /f %%a in (test.txt)do set e=%%~na &call:d %%e:_= %%
pause
:d
if [%1]==[] echo.&goto :eof
echo %1
shift
goto :d
[ Last edited by zw19750516 on 2008-4-3 at 07:49 PM ]
作者: slore 时间: 2008-4-3 20:00
vbs的话replace就搞定了。
作者: 26933062 时间: 2008-4-3 20:05
楼上说超过8个就出问题，不知从何说起。。。
应该是文件名含空格就会出错。
:
@echo off
for /f "delims=" %%i in (test.txt) do call :loop "%%~ni"
pause
:loop
for /f "tokens=1* delims=_" %%a in ("%~1") do (
echo %%a
if not "%%b"=="" call :loop "%%b"
)
goto :eof
for /f "delims=" %%i in (test.txt) do call :loop "%%~ni"
pause
:loop
for /f "tokens=1* delims=_" %%a in ("%~1") do (
echo %%a
if not "%%b"=="" call :loop "%%b"
)
goto :eof
作者: plp626 时间: 2008-4-3 20:05
| Quote: | |
|
10000个也照样分,你测试.
作者: abcd 时间: 2008-4-3 20:08
| Quote: | |
|
你的意思是不行？？
作者: terse 时间: 2008-4-3 22:16
也发一个
@echo off
for /f "delims=" %%i in (test.txt)do set str=%%~ni&call :lp "%%str:_= %%"
pause
goto :eof
:lp
for %%i in (%~1) do (
echo %%i
)
echo.
作者: bat-zw 时间: 2008-4-4 11:04
不再说别的了，顶起诸位了！！！！！！！！！