中国DOS联盟

@echo off

    set str=
    set var=
    call :sort "123456789"
    echo %ret%
    call :sort "abcdefg"
    echo %ret%
    pause

goto :eof


:sort

    set "str=%~1"
    set "var=%str:~0,1%%var%"
    set "ret=%var%"
    set "flag=%str:~1%"
    if defined flag call :sort "%flag%"
    set str= && set var=

goto :eof

@echo off
:: 反序列出文本的每行内容
:: 不能处理的字符：
:: 管道符号：|
:: 重定向符号：<、>
:: 连接符号：&
:: 脱字符号：^
:: 其他符号：?、*、)、"
for /f "delims=" %%i in (test.txt) do (
    set str=%%i
    set var=
    call :intercept
)
start test_.txt
goto :eof

:intercept
if not "%str%"=="" (
    set var=%str:~0,1%%var%
    set str=%str:~1%
    goto intercept
    ) else (
    >> test_.txt echo %var%
)
goto :eof

@echo off
echo WScript.echo StrReverse(WScript.Arguments(0)) >$tmp.vbs
cscript //noLogo $tmp.vbs %1
del $tmp.vbs

echo abcdefg|gawk "BEGIN{FS=\"\"}{for(i=NF;i>0;i--)printf($i)}"