自制可打印字符ansi编码表

batman · 发表于 2011-5-24 02:27:22

Set fso = CreateObject("scripting.filesystemobject")
myarray = Array("0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f")
vbstr = "编码(10)" & Chr(9) & "编码(16)" & Chr(9) & "字符" & vbCrLf
vbstr = vbstr & "8" & Chr(9) & "0x08" & Chr(9) & "[" & Chr(8) & "]" & vbCrLf
vbstr = vbstr & "9" & Chr(9) & "0x09" & Chr(9) & "[" & Chr(9) & "]" & vbCrLf
For i = 32 To 126
a = myarray(Int(i / 16)): b = myarray(i - a * 16)
vbstr = vbstr & i & Chr(9) & "0x" & a & b & Chr(9) & "[" & Chr(i) & "]" & vbCrLf
Next
fso.OpenTextFile("ansi.txt", 2, 1).Write vbstr
Set fso = Nothing

复制代码

ppmath · 发表于 2011-5-24 08:12:54

不知怎么用，。。。。

batman · 发表于 2011-5-24 16:56:16

知道看生成的ansi.txt就可以了

zz100001 · 发表于 2011-5-24 17:51:51

vbstr = vbstr & Right(1000 + i, 3) & vbTab & "0x" & Hex(i) & vbTab & "[" & Chr(i) & "]" & vbCrLf

wankoilz · 发表于 2011-5-26 13:20:49

Right(1000 + i, 3)
这样也行啊...

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[技术讨论] 自制可打印字符ansi编码表