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

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
复制代码