[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

就是托a.txt 到 bat文件上,然后bat运行,就在当前文件夹里 新建adaoxu.txt了。谢谢了
批处理方便生活

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

TOP

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

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

回复 2# smss
批处理方便生活

TOP

  1. @echo off&setlocal EnableDelayedExpansion
  2. set file=%1
  3. echo 正在对文件%file%中的数据行字符串倒序输出
  4. cd.>2.txt
  5. for /f "delims=" %%i in ('type "%file%"') do (
  6. set str=%%i
  7. echo !str!
  8. set n=0&set length=&call :str_length
  9. set x=1&set str2=&call :str2
  10. echo !str2!
  11. echo.!str2!>>2.txt
  12. )
  13. start 2.txt
  14. exit
  15. :str_length
  16. if "!str:~%n%,1!"=="" goto :eof
  17. set /a n+=1
  18. goto :str_length
  19. :str2
  20. if %x% gtr %n% goto :eof
  21. set str2=!str2!!str:~-%x%,1!
  22. set /a x+=1
  23. goto :str2
复制代码

TOP

返回列表