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

2025-04-29 07:08:49

推荐回答（2个）

回答1：

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

回答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