按键精灵 变量问题

Question

-----------------------------------------------------------------------------------------------------
For 2 //循环两次

//获取剪贴板信息

Clipboard = Plugin.Sys.GetCLB()
Delay 20
MsgBox "复制得到的内容：" & Clipboard

//剪贴板上的文字去除=======================================

//复制序列号的代码你自己写吧,假设这儿字符串赋给了x,下面是个例子,过滤掉中文和空格,你适当修改下,有问题就追问好了
x=Clipboard//字符串包含数字,空格,符号,大小写字母,汉字
n = Len(x)
i = 1
For n
y = Mid(x, i, 1)//获取每一个字符
m = Asc(y)//查询字符的asc码
If m >0 and m<>32 Then //汉字的asc都小于0,空格的asc是32,此时不录入z
z=z & y
End If
i=i+1
Next
MessageBox a//输出过滤后的字符串

Next //循环结束
-------------------------------------------------------------------------------------------------------------------

复制两次内容，第第二次输出内容会叠加之前的内容在前面

像：

第一痴复制
得到的内容： 你好kkkk
输出内容： kkkk
原因代码已经去除文字，所以只显示字母
第二次复制 你好么uu 输出内容： kkkkuu

有什么办法让第一次和第二次复制提取的内容不叠加进来,而是覆盖前一次提取的内容
改成
第一次复制：你好kkkk
输出：kkkk
第二次扶持你好uu
输出;uu

哪位大仙为小弟解惑一下

Answer 1

我的代码如下

For 2  '循环两次

    z="" '新的一行，每一次循环之前，把输出的内容清空一下

    '获取剪贴板信息

    Clipboard = Plugin.Sys.GetCLB()
    Delay 20
    MsgBox "复制得到的内容：" & Clipboard

    '剪贴板上的文字去除=======================================

    '复制序列号的代码你自己写吧,假设这儿字符串赋给了x,下面是个例子,过滤掉中文和空格,你适当修改下,有问题就追问好了
    x=Clipboard '字符串包含数字,空格,符号,大小写字母,汉字
    n = Len(x)
    i = 1
    For n
        y = Mid(x, i, 1)'获取每一个字符
        m = Asc(y)'查询字符的asc码
        If m >0 and m<>32 Then '汉字的asc都小于0,空格的asc是32,此时不录入z
            z=z & y
        End If
        i=i+1
    Next
    MessageBox z '输出过滤后的字符串

Next  '循环结束

3行，添加一句清空

25行，输出的是z，而不是a，这个应该是你打印错误

希望对你有帮助 ^o^