（解决）怎样把随机读取一行的VBS代码，改成随机读3行的？

我来了 · 发表于 2013-5-9 00:18:03

本帖最后由我来了于 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:15

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:28

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

		自动登录	找回密码
密码			注册

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

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