中国DOS联盟

　　魔斗士
　　作者：徐奇峰


【内容简介】

　　身怀一身精湛武艺的张如飞，在一次醉酒之后意外与来自K星球的不明飞行器打了照面，并意外获得了有“南斗六星主生”功效的六粒丹药，此丹药能让受到意外伤害死亡的人起死回生并很快恢复到死前的状态。
　　从此，张如飞走上了不平凡的道路。

@echo off&setlocal enabledelayedexpansion

for /f "tokens=1* delims=:" %%i in ('findstr /n .* a.txt') do (

    set var=!var!%%j

    set var=!var:　=!

    if %%i equ 2 ren a.txt !var!.txt

)

@echo off&setlocal enabledelayedexpansion

for /f "tokens=1* delims=:" %%i in ('findstr /n .* a.txt') do (

    set var=《!var!》%%j

    set var=!var:　=!

    set var=!var:《》=!

    if %%i equ 2 ren a.txt !var!.txt

)

set fso=createobject("scripting.filesystemobject")

set folder=fso.getfolder(".")

for each file in folder.files

    if ucase(right(file,3))="TXT" then

        with fso.opentextfile(file)

            n="《" & trim(.readline) & "》"

            n=n & trim(.readline)

            .close

        end with

        file.name=n & ".txt"

    end if

next

Originally posted by venchia at 2007-7-15 02:30:
我是要批量的，不是单个的

还有，就算用a.txt也不行，我用下面附件的几个文件测试失败

比如下面的几个文件是想一次性的改名为

《魔斗士》 ...

@echo off&setlocal enabledelayedexpansion

for /f %%a in ('dir/b *.txt') do (

    for /f "tokens=1* delims=:" %%i in ('findstr /n .* %%a') do (

    set "var=!var!%%j"

    set var=!var: =!

    if %%i equ 2 ren %%a 《%%~na》!var!.txt

    set var=

    )

)

Originally posted by ccwan at 2007-7-29 09:02 AM:


你的测试失败是因为全角、半角问题。
用你的附件测试了以下代码，成功。

@echo off&setlocal enabledelayedexpansion

for /f %%a in ('dir/b *.txt') do (

 ...