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

[问题求助] (解决)怎样把随机读取一行的VBS代码,改成随机读3行的?

本帖最后由 我来了 于 2013-5-9 08:57 编辑

test.vbs
  1. randomize
  2. set fso = CreateObject("Scripting.Filesystemobject")
  3. set a = CreateObject("Scripting.Dictionary")
  4. set file = fso.OpenTextFile("H:\代码.txt")
  5. do while file.AtendofStream<>true
  6.         m = m + 1
  7.         a.add m,file.readline
  8. loop
  9. file.close
  10. h=int(rnd * m)
  11. CreateObject("WScript.Shell").Run "G:\nircmd.exe clipboard set " & chr(34) & a(h) & chr(34)
复制代码
最后 还是先感谢下。
对了,是随机的,相邻3行的。
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

搞定了,可以锁了,版版。

TOP

  1. randomize
  2. set fso = CreateObject("Scripting.Filesystemobject")
  3. set a = CreateObject("Scripting.Dictionary")
  4. set file = fso.OpenTextFile("H:\代码.txt")
  5. do until file.AtendofStream
  6.    m = m + 1
  7.    a.add m,file.readline
  8. loop
  9. file.close
  10. h=int(rnd * m + 1)
  11. if h = m then h = m - 1
  12. if h = 1 then h = 2
  13. for i = h-1 to h+1
  14.    str = str & a(i) & vbCrLf
  15. Next
  16. 'msgbox str
  17. CreateObject("WScript.Shell").Run "G:\nircmd.exe clipboard set "&chr(34)&str&chr(34)
复制代码
1

评分人数

TOP

返回列表