[文本处理] 各位大神好，请问下个问题，批处理bat，实现倒序输出新建txt吗

pichuli2019

就是托a.txt 到 bat文件上，然后bat运行，就在当前文件夹里 新建adaoxu.txt了。谢谢了

smss

回复 3# pichuli2019 就
修改2.TXT即可

pichuli2019

 set fso=createobject("scripting.filesystemobject") : name=1
    Dim na
    'na=Inputbox("请输入拓展名:","拓展名","txt")
    na="txt"
    while fso.fileexists(name&"."&na)=true
    name=name+1
    wend
    set o=fso.opentextfile(name&"."&na,2,true)
    set hf=Createobject("htmlfile")
    wind=hf.parentwindow.clipboarddata.getdata("text")
    o.writeline wind : o.close
复制代码

谢谢了大神，就是这个请问下，怎么修改，能保存文本到指定txt里呢？能指教下吗。大神你qq多少，能加你吗？

回复 2# smss

smss

@echo off&setlocal EnableDelayedExpansion
set file=%1
echo 正在对文件%file%中的数据行字符串倒序输出
cd.>2.txt
for /f "delims=" %%i in ('type "%file%"') do (
set str=%%i
echo !str!
set n=0&set length=&call :str_length
set x=1&set str2=&call :str2
echo !str2!
echo.!str2!>>2.txt
)
start 2.txt
exit
:str_length
if "!str:~%n%,1!"=="" goto :eof
set /a n+=1
goto :str_length
:str2
if %x% gtr %n% goto :eof
set str2=!str2!!str:~-%x%,1!
set /a x+=1
goto :str2
复制代码