中国DOS联盟

有没有方法将最后一个_前面的所有内容作为一个token，而_后的作为另一个token，请教......

@echo off
for /r %%i in (*.mp3) do (
  set nm=%%~ni
  call :js
  call ren "%%i" "%%nm%%.mp3"
)
pause

:js
set nm=%nm:*_=%
echo %nm%|find "_">nul 2>nul&&goto js||goto :eof

能达到效果，只是效率太低

试试下面这个，如果文件名中最后一个_字符后面的字符串中含有空格，会将空格替换成"#"：

@echo off & setlocal EnableDelayedExpansion
for %%a in (*.mp3) do (
	set file_name=%%a
	set file_rname=!file_name: =#!
	set file_rname=!file_rname:_=;!
	for %%b in (!file_rname!) do set new_file_name=%%b
	rename "!file_name!" "!new_file_name!"
)

改进一下也可以不用替换空格:

@echo off & setlocal EnableDelayedExpansion
for %%a in (*.mp3) do (
	set file_name=%%a
	set file_rname=!file_name: =#!
	set file_rname=!file_rname:_=;!
	for %%b in (!file_rname!) do set new_file_name=%%b
	set new_file_name=!new_file_name:#= !
	rename "!file_name!" "!new_file_name!"
)

哈，感谢二位，经测试都达到了效果！

　　to wudixin96：在下粗浅，兄的招法过高，对echo %nm%|find "_">nul 2>nul&&goto js不是很明白。

　　to lxmxn：这样的思路你都能想出来，人才啊，PF！

lxmxn
兄的效率很高，比偶的强多了，只是如果最后一个_后面的字符里包含#的话，

就会被替换为空格了。

Originally posted by wudixin96 at 2007-9-19 10:38:
lxmxn
兄的效率很高，比偶的强多了，只是如果最后一个_后面的字符里包含#的话，

就会被替换为空格了。

再改进一下:

@echo off & setlocal EnableDelayedExpansion
for %%a in (*.mp3) do (
	set file_name=%%a
	set file_rname=!file_name: =\!
	set file_rname=!file_rname:_=;!
	for %%b in (!file_rname!) do set new_file_name=%%b
	set new_file_name=!new_file_name:\= !
	echo rename "!file_name!" "!new_file_name!"
)

那如果字符中还带;号呢，不是又把分好当成分隔符了？？

嗯，程序总有点bug的，只有尽可能多的排除一些特殊情况，根据情况来修改代码了。

o(∩_∩)o...哈哈，没见你上QQ嘛

或者借助外部工具了.

@echo off
for %%a in (*.mp3) do (
for /f "delims=" %%b in ('echo\%%a^|sed "s/.*_\(.*\.mp3\)/\1/"') do echo rename "%%a" "%%b"
)
pause

ps:QQ常年隐身了..

Last edited by lxmxn on 2007-9-19 at 12:11 PM ]

set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(".")
for each file in folder.files
    if ucase(right(file,3))="MP3" and instr(file,"_")<>0 then 
        set wj=fso.getfile(file)
        wj.name=cl(file) & ".mp3"
    end if
next
msgbox "操作成功！",4096,"提示"
function cl(filename)
    filename=fso.getbasename(filename)
    n=instrrev(filename,"_")
    cl=mid(filename,n+1)
end function

很難說有沒有重名~
不如來更直接的：
ren ??????*.jpg ??????.jpg
還是可以啊

ren *.txt ??????.txt

兄弟所言正解!
我把注意力都集中在六位數上了^-^