[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
@echo off
@rem 借用plp626大神的_strlen函数( http://www.bathome.net/thread-11799-1-7.html
set "Str="
setlocal enabledelayedexpansion
set "_strlen=set $=^!#1^!#&set ##=&(for %%a in (4096 2048 1024 512 256 128 64 32 16)do if ^!$:~%%a^!. NEQ . set/a##+=%%a&set $=^!$:~%%a^!)&set $=^!$^!fedcba9876543210&set/a##+=0x^!$:~16,1^!"
for /f "usebackq tokens=*"  %%a in ("%~1") do (
        set "#1=%%a"
        (%_strlen%)
        for /L %%b in (0,1,!##!) do (
                set "c=!#1:~%%b,1%!"
                if !c! neq a (
                        set "Str=!Str!!c!"
                ) else (
                        set/a No+=1
                        set "Str=!Str!!c!!No!"
                )
        )
        echo;!Str!
        set "Str="
)
endlocal &pause &exit/b

TOP

回复 8# omIyteeee


以ANSi编码保存为test.bat,然后执行 test.bat A.txt
或拖放A.txt到test.bat即可

TOP

返回列表