中国DOS联盟

如何实现下面的功能？
例：
d:\tmp\11_223_321_42.txt
d:\tmp\12_456.txt
读成
11
223
321
42

11
456

楼主的这个小问题好难啊，终于还是搞出来了：

@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 ]

::::::开始我还真的以为是个简单的问题，就看了一眼再没去想了。今天在论坛闲逛又进了这个帖子，想了一下也许实现起来还真有点问题。于
===================================================================================
是，开始写代码，谁知道越写越觉得有困难，抱着不放弃的念头终于还是写出了能实现的代码，下面就简单地分析一下这个难题：
===================================================================================
首先用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 ]

楼上,想得有点复杂了吧.

假设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 == goto :eof
echo.%1
shift
goto :d

Originally posted by abcd at 2008-4-3 19:05:

@echo off
setlocal enabledelayedexpansion
for /r d:\tmp %%i in (*) do (
  set str=%%~ni
  set str=!str:_=;!
  for %%j in (!str!) do echo %%j
  echo.
)
pause>nul

这样不 ...

自己测试吧。。。。。。。。。。。

Originally posted by plp626 at 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
i ...

shift变量移位确实妙！！！但这段代码对两个文件之间的分隔还是没实现，echo.%1中eho.是无效命令，改为：

@echo off
for /f %%a in (test.txt)do set e=%%~na &call:d %%e:_= %%
pause
:d
if == echo.&goto :eof
echo %1
shift
goto :d

即使这样通用性还是有问题，当文件名分分隔部分超过8个时，如1＿1＿1＿1＿1＿1＿1＿1_1_1_1.txt时就会出现问题了。

Last edited by zw19750516 on 2008-4-3 at 07:49 PM ]

vbs的话replace就搞定了。

楼上说超过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

Originally posted by zw19750516 at 2008-4-3 07:28 PM:

shift变量移位确实妙！！！但这段代码对两个文件之间的分隔还是没实现，echo.%1中eho.是无效命令，改为：

@echo off
for /f %%a in (test.txt)do set e=%%~n ... 



10000个也照样分,你测试.

Originally posted by zw19750516 at 2008-4-3 07:22 PM:

自己测试吧。。。。。。。。。。。

你的意思是不行？？

也发一个
@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.

不再说别的了，顶起诸位了！！！！！！！！！