Board logo

标题: [问题求助] VBS随机读取单数行,并让读到的单数行加1,输出这2行到剪贴板 [打印本页]
作者: 我来了    时间: 2014-4-15 09:22     标题: VBS随机读取单数行,并让读到的单数行加1,输出这2行到剪贴板

本帖最后由 我来了 于 2014-4-15 22:14 编辑
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

作者: CrLf    时间: 2014-4-15 13:35

vbs：
  1. Randomize()

  2. For i=1 To 2

  3. 	r = Rnd*a.count\1

  4.         msgbox ((a.Items())(r))

  5. 	a.Remove(r)

  6. Next
复制代码
话说 js 操作数组元素或者对象属性比起 vbs 方便得多...

我更喜欢用 gnu，不过 sort 的 -R 选项得看版本：
  1. gnu_sort -R "D:\OperaZ_Y\英语谚语.txt" | sed "1,2!d"
复制代码
powershell 也是很好的选择，尽管它的设计用途并不是处理文本：
  1. get-content "D:\OperaZ_Y\英语谚语.txt" | get-random -count 2
复制代码
作者: 我来了    时间: 2014-4-15 14:58

本帖最后由 我来了 于 2014-4-15 15:08 编辑

回复 2# CrLf


    师兄，俺比较瓜，麻烦您给我组合到我上边的VBS里边去，多谢。
唉。。。实在搞这方面大菜瓜一个~~
那样，我就能用opera中定义的ctrl+shift+v直接使用了


PowerShell的确实是省事，可我不知如何弄成脚本到opera中调用啊。那个更一窍不通啊~~
作者: 我来了    时间: 2014-4-15 15:13

我要把PowerShell编译成exe就更费劲了，还得要.net环境，
就不能在PE环境下使用了，还是VBS的生存能力好一些
当然思路好是好的
作者: CrLf    时间: 2014-4-15 15:40

噢，发现理解错了....................
作者: CrLf    时间: 2014-4-15 16:44

本帖最后由 CrLf 于 2014-4-15 17:49 编辑

那更简单了：
  1. randomize

  2. set fso = CreateObject("Scripting.Filesystemobject")

  3. set file = fso.OpenTextFile("英语谚语.txt")

  4. text = file.ReadAll

  5. a = Split(text,vbCrLf)

  6. file.Close

  7. 

  8. h = (rnd*UBound(a)\2)*2

  9. str = a(h) & vbCrLf & a(h+1)

  10. 

  11. 'msgbox str

  12. setClip str

  13. Set WshShell= WScript.CreateObject("WScript.Shell")

  14. WshShell.SendKeys "^v"

  15. WshShell.SendKeys "^{ENTER}"

  16. 

  17. Sub setClip(str)

  18. 	Dim Form, TextBox

  19. 	Set Form = CreateObject("Forms.Form.1")

  20. 	Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object

  21. 	TextBox.MultiLine = True

  22. 	TextBox.Text = str

  23. 	TextBox.SelStart = 0

  24. 	TextBox.SelLength = TextBox.TextLength

  25. 	TextBox.Copy

  26. End Sub
复制代码
setClip 修改自 demon 的博客里的内容，这样就不需要第三方支持了（如果 com 可以不算的话）
作者: CrLf    时间: 2014-4-15 16:48

话说 opera 不能用 userscript 操作 dom 吗？还要这么复制粘贴
作者: 我来了    时间: 2014-4-15 17:41

回复 6# CrLf


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

难道是因为setClip 这东东，俺没有？欺负我是外村的？
作者: CrLf    时间: 2014-4-15 17:50

回复 8# 我来了


    多写了个 r，已修改。
    setClip 是 vbs 脚本里写的过程，不是外部命令
作者: 我来了    时间: 2014-4-15 17:51

回复 7# CrLf


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

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


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

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
大哥哥，你看能不能给整合到这里面
作者: 我来了    时间: 2014-4-15 17:55

新版本 还是欺负我啊
作者: CrLf    时间: 2014-4-15 17:57

回复 10# 我来了


    原来以为是随机提取两行，你的意思不是随机提取相邻的中英文各一行吗？
作者: CrLf    时间: 2014-4-15 18:00

回复 11# 我来了


    WIN X64 企业版没有 Forms.Form.1 ？那你还是用 nircmd 吧，或者学一下 au3/autohotkey，实现这个既精确又简单
作者: 我来了    时间: 2014-4-15 18:07

回复 12# CrLf


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

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

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

正确的输出结果是：
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

也许这个操作要求有点蛋痛，全怪楼主不好
作者: 我来了    时间: 2014-4-15 18:19

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

Forms.Form.1 当然不是系统自带的，属于MS Office。
作者: 我来了    时间: 2014-4-15 22:08

回复 17# wscript


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



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