Board logo

标题: VBS初学者的作品:txt文件分割器 [打印本页]

作者: kingerpk    时间: 2009-5-7 14:11     标题: 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 编辑 ]
作者: 随风    时间: 2009-5-7 14:35

Q:所发代码不止一行时请用 code 把代码扩起来
A:如何用code把代码扩起来 ,请点我。
作者: kingerpk    时间: 2009-5-7 15:58

马上改!!!!!!!!!
作者: zqz0012005    时间: 2009-5-7 16:16

if WScript.Arguments.count = 0 then WScript.Quit
作者: kingerpk    时间: 2009-5-7 16:39

谢谢!!!
又什么地方可以改进的吗???
作者: objsky    时间: 2009-5-7 17:18

看看效果,在做评论.
作者: kingerpk    时间: 2009-5-7 18:40     标题: 回复 6楼 的帖子

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




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2