标题: 特殊字符的输出问题
[打印本页]
作者: zxlxsqzy
时间: 2008-6-2 09:50
标题: 特殊字符的输出问题
我想生成一个文件,里面的内容是
从10000开始到随便一个数比如11000
输出的格式这样
先输出10000,然后输出空格 再按住ALT键,再输10000,然后空格 再输入10001,空格,按住ALT键输10001.......依次类推
请问我应该怎么办?
作者: zxlxsqzy
时间: 2008-6-2 15:17
没人回答吗?
不一定用批处理 用VBS也可以呀
5555
作者: WANKOILZ
时间: 2008-6-2 19:04
不知道为什么：用sendkeys模拟alt+10000不能 输出特殊符号。哪位知道这是怎么回事。把下面的%换成+(代表shift)却可以正常执行：
on error resume next
set fso=createobject("scripting.filesystemobject")
set myfile=fso.createtextfile("chr.txt",true)
set oshell=createobject("wscript.shell")
oshell.run("chr.txt")
wscript.sleep 200
oshell.oppactivate "chr.txt"
oshell.sendkeys "%("&"10000"&")"
oshell.sendkeys "+("&"10000"&")"
Last edited by WANKOILZ on 2008-6-2 at 07:17 PM ]
作者: slore
时间: 2008-6-2 19:31
因为不支持……小键盘的输入……
alt的那种字符？自己直接处理汉字编码转换过来不是更快麽？。。。
作者: WANKOILZ
时间: 2008-6-2 19:43
因为不支持……小键盘的输入……
非常感谢楼上.
"自己直接处理汉字编码转换过来不是更快麽？。。。 "这个不太了解，麻烦给个思路，再次感谢。
作者: zxlxsqzy
时间: 2008-6-2 19:58
得不到正确的结果呀:
我得到的结果是这样的
!))))
.....
作者: slore
时间: 2008-6-2 20:09
!))))是对的。
1点shift是!
0点shift是)
msgobox Chr(10000)
作者: WANKOILZ
时间: 2008-6-3 12:34
呵呵，楼上笔误：msgbox chr(10000)
原来chr的数字可以这么大。那LZ的问题就简单了，数字范围可以自己修改：
set fso=createobject("scripting.filesystemobject")
set myfile=fso.createtextfile("chr.txt",true)
for i=10000 to 40000
myfile.write(i&space(1)&chr(i)&space(1))
next
Last edited by WANKOILZ on 2008-6-3 at 12:35 PM ]