中国DOS联盟

我有一堆TXT文本文件
如
asdd.txt
okghg.txt
lili.txt
每个文本文件里都有*号
我想将每个文本文件里的*号都换成该文本文件的文件名
asdd.txt里的*号换成asdd.txt
okghg.txt里的*号换成okghg.txt
兄弟帮忙写个批处理。谢谢。

这个用批处理是不是要求太高了。：）
哪位仁兄帮帮忙。

@echo on&setlocal ENABLEDELAYEDEXPANSION
::字符串替换里，*是通配符
::for /r 里用时也是通配符
::确实难搞，这样试试看吧,如果文档不是很多特殊字符的话还是可以用的
set /p=正在处理: <nul
for /r %%a in (*.txt) do (
set "filename=%%~nxa"
set /p=%%~nxa<nul
for /f "tokens=1,2* delims=:" %%i in ('findstr /o .* %%~fa^&cd.^>!filename!') do (
set "_cc=%%j"&call :sub
echo.!_cc!>>!filename!
set /a k=!k!+1
if !k!==10 (set k=0 &set /p=.<nul)

)
echo.

)
pause
goto :eof

:sub
if not defined _cc goto :eof
:next
set "_bb=!_cc:**=!"
call :get _len1 !_cc!
call :get _len2 !_bb!
if !_len1!==!_len2! goto :qu
set /a _m=_len2+1
set "_cc=!_cc:~0,-%_m%!!filename!!_bb!"
goto :next

:qu
goto :eof

:get
set "str=%2%3%4"&set n=0&set s=!str!
if not defined str set %1=0&goto :eof
:loop
set /a n=!n!+16
set "m=!s!fedcba9876543210"
set s=!str:~%n%!
if not "!s!"=="" goto loop
set /a %1=0x!m:~16,1!+!n!-15
goto :eof

我疯了

设所有TXT文件放在E:盘TEST目录下，
用for 和dir 分析路径和文件名
用findstr /v 过滤不想修改的文件。

利用白杨 FR 替换文本中的*为文件名
FR 是一个非常强大字符串查找替换命令行工具，非常好用
可以在这里下载：http://baiy.cn/utils/fr/index.htm

@echo off

::过滤掉的文件
set gl=/c:"readme.txt" /c:"1.txt"

for /f "delims=" %%i in ('dir /s /b *.txt^|findstr /v %gl%') do (
fr "%%i" -f:"*" -t:"%%~nxi"

)

pause

for /f "delims=" %%i in ('dir /s /b *.txt') do (
fr "%%i" -f:"*" -t:"%%~nxi"
)

不带过滤的

@echo off&setlocal ENABLEDELAYEDEXPANSION
::字符串替换里，*是通配符
::for /r 里用时也是通配符
::确实难搞，自己的最新发现:在开启变量扩展后不允许变量的内容里有!符号
::以下可以处理特殊字符了，只是如果文本里有!字符的话将被丢弃。
echo 正在处理:
for /r %%a in (*.txt) do (
set "fn=%%~nxa"
set /p=%%~nxa <nul
for /f "tokens=* delims=" %%i in ('findstr /o .* %%~fa^&cd.^>%%~fa') do (
set "_str=%%i"&set "_str=!_str:*:=!"&call :sub
echo.!_str!>>%%~fa
set /a k=!k!+1
if !k!==10 (set k=0 &set /p=.<nul)

)
echo.完成

)
pause
goto :eof

:sub
if not defined _str goto :eof
set "_str=!_str:2=22!"
set "_str=!_str:%%=323!"
:next
set "_str2=!_str:**=!"
if !_str!==!_str2! goto :qu
call :get _skip "!_str2!"
set /a _skip+=1
set "_str=!_str:~0,-%_skip%!121!_str2!"
goto :next

:qu
set "_str=!_str:121=%fn%!"
set "_str=!_str:22=2!"
set "_str=!_str:323=%%!"
goto :eof

:get
set "str=%~2"&set n=0&set s=!str!
if not defined str set %1=0&goto :eof
:loop
set /a n=!n!+16
set "m=!s!fedcba9876543210"
set "s=!str:~%n%!"
if not "!s!"=="" goto loop
set /a %1=0x!m:~16,1!+!n!-15
goto :eof

@echo off
::因“自己的最新发现:在开启变量扩展后不允许变量的内容里有!符号”；
::此句若对谁产生了误导的，在这里表示道谦。

::原因是set "_str=%%i"此句时进行变量展开，并非是变量内容里不允许有“!”。
::现进行了改进，已经可以处理绝大多数字符了，除了汇编16进制小于2c的
::部分控制字符以外。

::对当前目录及以下的所有子录的TXT文件内含的“*”用该文件名代替；
::直接进行替换，不产生临时文件。


echo 正在处理(请稍候):
for /r %%a in (*.txt) do (
set "fn=%%~nxa"
set /p=%%~nxa <nul
for /f "tokens=* delims=" %%i in ('"(type %%~fa^&cd.^>%%~fa)"^|findstr /o .*') do (
set "_str=%%i"
setlocal ENABLEDELAYEDEXPANSION
rem 为了读取空行进行的处理,丢弃:号前的偏移号
set "_str=!_str:*:=!"
call :sub
echo.!_str!>>%%~fa
set /p=.<nul
endlocal

)
echo.完成

)
pause
endlocal

goto :eof

:sub
if not defined _str goto :eof

rem 对特殊字符进行转换处理

set "_str=!_str:"=""!"
set "_str=!_str:2=22!"
set "_str=!_str:""=525!"
set "_str=!_str:%%=323!"

:next
rem 因为*号的特殊,不能在变量内替换,只好在*号的处打断后换成代号121
rem 把*号前的去掉,取剩余字符串的长度,用来进行截串处理
set "_str2=!_str:**=!"
if "!_str!"=="!_str2!" goto :qu
set "str=!_str2!"&call :get _skip
set /a _skip+=1
set "_str=!_str:~0,-%_skip%!121!_str2!"
goto :next

:qu
rem 转换后的特殊字符恢复
set "_str=!_str:323=%%!"
set "_str=!_str:121=%fn%!"
set "_str=!_str:525="!"
set "_str=!_str:22=2!"
goto :eof


:get
rem 取字符的长度,返回值存在%1指定的变量
set n=0&set s=!str!
if not defined str set %1=0&goto :eof
:loop
set /a n=!n!+16
set "m=!s!fedcba9876543210"
set "s=!str:~%n%!"
if not "!s!"=="" goto loop
set /a %1=0x!m:~16,1!+!n!-15
goto :eof