[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
可以用VBS实现楼主所要的结果,但不知道在这个版块发VBS代码是不是不太合适。。。。。。

TOP

翻阅老帖,看来可以用VBS解决批处理遇到的问题,哈哈,放心了O(∩_∩)O~
  1. set fso=createobject("scripting.filesystemobject")
  2. set fd=fso.getfolder(".")
  3. fpath=fd.path
  4. set fo=fso.getfolder(fpath)
  5. set fc=fo.files
  6. for each f in fc
  7.     ext=f.type
  8.     if ext="文本文档" then
  9.         strtext=""
  10.         set rfile=fso.opentextfile(f)
  11.         fname=rfile.readline
  12.         rfile.skipline
  13.         do until rfile.atendofstream=true
  14.             strline=rfile.readline
  15.             strtext=strtext&strline&vbcrlf
  16.         loop
  17.         rfile.close
  18.         set wfile=fso.opentextfile(f,2)
  19.         wfile.write strtext
  20.         wfile.close
  21.         newname=fname&".txt"
  22.         f.name=newname
  23.     end if
  24. next
复制代码
如果txt文件较多,可能会等待几秒

[ 本帖最后由 BowAngel 于 2010-6-21 15:28 编辑 ]

TOP

原帖由 zxzl 于 2010-6-21 15:41 发表
感谢楼上,不过还是有点问题,您可以新建几个文件试一下

什么问题?

TOP

返回列表