翻阅老帖,看来可以用VBS解决批处理遇到的问题,哈哈,放心了O(∩_∩)O~- set fso=createobject("scripting.filesystemobject")
- set fd=fso.getfolder(".")
- fpath=fd.path
- set fo=fso.getfolder(fpath)
- set fc=fo.files
- for each f in fc
- ext=f.type
- if ext="文本文档" then
- strtext=""
- set rfile=fso.opentextfile(f)
- fname=rfile.readline
- rfile.skipline
- do until rfile.atendofstream=true
- strline=rfile.readline
- strtext=strtext&strline&vbcrlf
- loop
- rfile.close
- set wfile=fso.opentextfile(f,2)
- wfile.write strtext
- wfile.close
- newname=fname&".txt"
- f.name=newname
- end if
- next
复制代码 如果txt文件较多,可能会等待几秒
[ 本帖最后由 BowAngel 于 2010-6-21 15:28 编辑 ] |