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

VBS初学者的作品:txt文件分割器

首先将文本文件拖进脚本文件中
  1. Set m= WScript.Arguments
  2. set f=createobject("scripting.filesystemobject")
  3. set file=f.opentextfile(m(0))
  4. set mb=f.getfile(m(0))
  5. path=mb.parentfolder
  6. path=f.buildpath(path,"分割好的文件")
  7. n=mb.name
  8. i=0
  9. do until file.atendofstream
  10. file.readline
  11. i=i+1
  12. loop
  13. do until hs>0
  14. hs=inputbox(n&vbcr&"共有"&i&"行"&vbcr&"你要怎么分?(每个文件的行数)","分析结果")
  15. if hs="" then
  16. wscript.quit
  17. elseif hs=0 then
  18. xh=msgbox("对不起您输入的是无效数字"&vbcr&"是否继续?",2)
  19. if xh=3 then
  20. wscript.quit
  21. elseif xh=5 then
  22. exit do
  23. end if
  24. end if
  25. loop
  26. fs=int(i/hs)
  27. jx=msgbox ("文件分割器将创建"&fs&"个文本文件"&vbcr&vbcr&"是否继续?",4)
  28. if jx=7 then
  29. wscript.quit
  30. end if
  31. if f.folderexists(path)=false then
  32. f.createfolder path
  33. end if
  34. hs=int(hs)   
  35. set mb=f.opentextfile(m(0))
  36. i=0
  37. do until mb.atendofstream
  38. set file2=f.createtextfile(path&"\"&n&i&".txt",8)
  39. l=0
  40. do until l=hs
  41. file2.writeline mb.readline
  42. l=l+1
  43. loop
  44. i=i+1
  45. loop
复制代码
以上是本人练习写的TXT分割器,请高手点评,但有一个地方很疑惑,就WScript.Arguments的用法,我感觉我这里用得很不规范。
还有若是直接双击脚本,就会发出现下标出界的错误,要怎样改进?

[ 本帖最后由 kingerpk 于 2009-5-7 16:05 编辑 ]

回复 6楼 的帖子

恩!等待中!!!!!!!!!!

TOP

看看效果,在做评论.

TOP

谢谢!!!
又什么地方可以改进的吗???

TOP

if WScript.Arguments.count = 0 then WScript.Quit
命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

TOP

马上改!!!!!!!!!

TOP

Q:所发代码不止一行时请用 code 把代码扩起来
A:如何用code把代码扩起来 ,请点我。
技术问题请到论坛发帖求助!

TOP

返回列表