设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 各位大神好，请问下个问题，批处理bat，实现倒序输出新 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发新帖
查看: 26359|回复: 3

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

[复制链接]
pichuli2019
发表于 2020-3-26 10:17:36 | 显示全部楼层 |阅读模式
就是托a.txt 到 bat文件上，然后bat运行，就在当前文件夹里 新建adaoxu.txt了。谢谢了
回复

举报

smss
发表于 2020-3-26 11:57:19 | 显示全部楼层
  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
复制代码
回复

举报

pichuli2019
 楼主| 发表于 2020-4-25 13:11:03 | 显示全部楼层
  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
回复

举报

smss
发表于 2020-4-26 13:07:47 | 显示全部楼层
回复 3# pichuli2019 就
修改2.TXT即可
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 18:49 , Processed in 0.017842 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表