批处理之家 - Powered by Discuz! Board

标题: [问题求助] （解决）怎样把随机读取一行的VBS代码，改成随机读3行的？ [打印本页]

作者: 我来了 时间: 2013-5-9 00:18 标题: （解决）怎样把随机读取一行的VBS代码，改成随机读3行的？

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

test.vbs

randomize
set fso = CreateObject("Scripting.Filesystemobject")
set a = CreateObject("Scripting.Dictionary")
set file = fso.OpenTextFile("H:\代码.txt")
do while file.AtendofStream<>true
        m = m + 1
        a.add m,file.readline
loop
file.close
h=int(rnd * m)

CreateObject("WScript.Shell").Run "G:\nircmd.exe clipboard set " & chr(34) & a(h) & chr(34)
复制代码

最后　还是先感谢下。
对了，是随机的，相邻３行的。

作者: apang 时间: 2013-5-9 01:36

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

作者: 我来了 时间: 2013-5-9 08:58

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

欢迎光临批处理之家 (http://www.bathome.net/)