[问题求助] VBS随机读取单数行,并让读到的单数行加1,输出这2行到剪贴板

我来了

I have not failed. I’ve just found 10,000 ways that won’t work. – Thomas Edison
我并没有失败。我只是找到了1万个不成功的方法。——托马斯·爱迪生
Failure defeats losers, failure inspires winners. – Robert T. Kiyosaki
失败可以打击输家，也可以启发赢家。——罗伯特·T·清崎
Some people dream of great accomplishments, while others stay awake and do them. – Anonymous
有人梦想伟大的成就，但有人一直清清楚楚地在做。——无名氏
I cannot give you the formula for success, but I can give you the formula for failure, which is: Try to please everybody. - Herbert B. Swope
我不能给你成功的计算公式，但我可以给你失败的计算公式，那就是：试着取悦每个人。——赫伯特·B·斯沃普
If you have always done it that way, it is probably wrong. - Charles Kettering
如果你一直用这种方法做事，那它很可能是错误的。——查尔斯·凯特宁
Being different is one of the most beautiful things on earth. - Anonymous
与众不同是世界上最美好的事情之一。——无名氏
Creativity is intelligence having fun. – Albert Einsten
创造力是智力的乐趣。——艾尔伯特·爱因斯坦

randomize
set fso = CreateObject("Scripting.Filesystemobject")
set a = CreateObject("Scripting.Dictionary")
set file = fso.OpenTextFile("D:\OperaZ_Y\英语谚语.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
   str = str & a(i) & vbCrLf
Next
'msgbox str
CreateObject("WScript.Shell").Run "G:\PowerPro_4.9n7\配置文件夹\nircmd.exe clipboard set "&chr(34)&str&chr(34)
WScript.Sleep 1000
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^v"
WshShell.SendKeys "^{ENTER}"

配对！ 我也不知如何表达，叠加一起大家应该懂了吧
就是一次读取  2行，并且这两行表达的的一个英语谚语~~

（必须：
1，随机读取到的是单数行，
2，并外加它的下一行到剪贴板）

永远是形如：AAA+BBB，或CCC+DDD，
而不是BBB+CCC，就是文搭义（所在行跟所配的英文是对搭的~~）
AAA
BBB
CCC
DDD

我来了

回复 17# wscript


    这位老师，这个问题，您会解不？

wscript

Forms.Form.1 当然不是系统自带的，属于MS Office。

我来了

这贴子的题目，实在太纠结了，太不好编了，加了那么多注释，还是没有让人正确的理解，
看来我语文也是体育老师教的，都怪我不好，贴子问题没有编辑明白。

我来了

正确的输出结果是：
1，当在 opera浏览器的论坛回贴框中 ，按下定义的热键ctrl+shift+v时
2，粘贴提交的
正确的内容是

If you have always done it that way, it is probably wrong. - Charles Kettering
如果你一直用这种方法做事，那它很可能是错误的。——查尔斯·凯特宁

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
而不是

与众不同是世界上最美好的事情之一。——无名氏
Creativity is intelligence having fun. – Albert Einsten

也许这个操作要求有点蛋痛，全怪楼主不好

我来了

回复 12# CrLf


我最早的意思是那样的，但那样做后，发现有问题
因为给出的英文翻译 和 中文的意思错位了
比如，读到了，第（偶数行）跟它的下一行，这样内容就造成了文不对题
所以，请大神出山弄个进化版
所以，你没发现，我最上面的贴子故意弄成了多色的

能不能生成随机数的种子，只读到奇数行，完事再相邻下一行的？

AHK的，AU3，的就不考虑了，因为又要再占一个软件上阵，
按键精灵的本来是弄出来了，改改就能运行，考虑到在opera中，所以就想只要一个VBS在原有代码上实现，原来有点复杂啊~~
再次感谢~~

CrLf

回复 11# 我来了


    WIN X64 企业版没有 Forms.Form.1 ？那你还是用 nircmd 吧，或者学一下 au3/autohotkey，实现这个既精确又简单

CrLf

回复 10# 我来了


    原来以为是随机提取两行，你的意思不是随机提取相邻的中英文各一行吗？

我来了

新版本 还是欺负我啊

我来了

回复 7# CrLf


    你的PowerShell搞的很精干，赞一个,nice

我的WIN X64 企业版运行很好，搜索了下可以编译成.exe文件（从CSDN下载一个批量编译的，发现运行报错，网上有资料说，又好像编译不了，外行，我也看迷糊了）
那要是再加上
ctrl+v,ctrl+enter呢？


＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
另外，我就是这么使用的

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
大哥哥，你看能不能给整合到这里面

CrLf

回复 8# 我来了


    多写了个 r，已修改。
    setClip 是 vbs 脚本里写的过程，不是外部命令

我来了

回复 6# CrLf


    为什么  我运行 就这个样子呢？

难道是因为setClip 这东东，俺没有？欺负我是外村的？

CrLf

话说 opera 不能用 userscript 操作 dom 吗？还要这么复制粘贴

CrLf

那更简单了：

randomize
set fso = CreateObject("Scripting.Filesystemobject")
set file = fso.OpenTextFile("英语谚语.txt")
text = file.ReadAll
a = Split(text,vbCrLf)
file.Close

h = (rnd*UBound(a)\2)*2
str = a(h) & vbCrLf & a(h+1)

'msgbox str
setClip str
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "^v"
WshShell.SendKeys "^{ENTER}"

Sub setClip(str)
	Dim Form, TextBox
	Set Form = CreateObject("Forms.Form.1")
	Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
	TextBox.MultiLine = True
	TextBox.Text = str
	TextBox.SelStart = 0
	TextBox.SelLength = TextBox.TextLength
	TextBox.Copy
End Sub
复制代码

setClip 修改自 demon 的博客里的内容，这样就不需要第三方支持了（如果 com 可以不算的话）

CrLf

噢，发现理解错了....................