Question

按键精灵代码，怎么只输出剪切板内指定的部分内容

按键精灵，剪切板内的内容“首页 上一页 下一页 尾页 当前第1页 （共10页 10条） 往第页 每页显示条 ”能否只输出括号内“页”与“条之间的数字”？代码怎么写？求教！

Answer 1

Dim clipboard,array,add
clipboard = Plugin.Sys.GetCLB()
array = Split(clipboard, " ")
add = InStr(array(6), "条")
article = Left(array(6), add - 1)
SayString articl

追问

谢谢你的回答。
我复制的内容是：
首页 上一页 下一页 尾页 当前第444页 （共480页 480条） 往第页 每页显示条

这里面的条数是一直变化的，我把它复制后，再粘贴出来就只粘贴出480，条数是一直在变化的，1~5000。可以实现么？谢谢

Answer 2

调试下面代码：
MyString = "首页 上一页 下一页 尾页 当前第1页 （共10页 10条） 往第页 每页显示条"
m = InStr(MyString, "（" )
n = InStr(MyString, "）")
//MessageBox m & "," & n
Strings = Mid(MyString, m + 1, n - m - 1)
Strings = Replace(Strings, " ", "", 1, -1, 1)
//MessageBox Strings
a = InStr(Strings, "共")
b = InStr(Strings, "页")
c = InStr(Strings, "条")
NewStringA = Mid(Strings, a + 1, b - a - 1)
NewStringB = Mid(Strings, b + 1, c - b - 1)
MessageBox NewStringA
MessageBox NewStringB

追问

谢谢你的回答。
不过我的意思是我复制的内容是：

首页
上一页 下一页
尾页 当前第444页 （共480页 480条）
往第页
每页显示条

这里面的条数是一直变化的，我把它复制后，再粘贴出来就只粘贴出480，而不是输出在弹窗里。可以实现么？谢谢

追答

我上面的代码是把你括号里面的数字提取出来，MyString那个只是一个例子字符串，如果你是其他数，例如（共152页 107条），那么NewStringA=152，NewStringB=107，你到底有没有调试和分析过我给你的代码，每一句你是否都懂了。（相关函数按键精灵软件有介绍），既然已经帮你提取这两个数了，剩下的难道自己就不会修改代码吗？再则，你起初的问题并没有提到要粘贴，你现在问怎样粘贴，等人家帮你写了代码，你又再问粘贴到哪怎么写。你自己不会修改和分析人家给你的代码，你是写不了脚本的，别人也很难帮你写，因为别人不清楚自己情况。
设置剪切板内容代码：Call Plugin.Sys.SetCLB("剪切板内容")
得到剪切板内容：Clipboard = Plugin.Sys.GetCLB()
用上面代码就可以把NewStringA，NewStringB的内容设置剪切板，然后你想粘贴到哪就继续写代码。

追问

抱歉，代码我不会写。我把我的想法和您说一下吧。我需用按键精灵每半小时提取一次数据，并且粘贴在表格里。我录制了一段操作，可以每半小时在网页里复制那一行文字，但是我只需要条数就可以了，其他的字段不需要。所以，我需要把您写的这段代码放在我录制的代码里就可以直接使用。我想向您确认一下，直接把这段代码放在我录制的里面就可以了么？