将 ASSCII 码 转为 字符

来源：百度知道 编辑：UC知道 时间：2024/09/24 04:30:14
在Text1中有一段ASSCII码:81,81,58,49,50,51,52,53,54,55,13,10,100,102

有逗号隔开每个ASSCII码的。

我想点下按钮就可以把上面的ASSCII码批量的转回字符，Chr这个函数可以转换，但怎样写代码可以把上面的所有都转换呢。

这个是代码，不会用再hi我

Dim s As String
s = Text1.Text
Dim a() As String
a = Split(s, ",")
Dim ele As Variant
s = ""
For Each ele In a
s = s + Chr(Val(ele))
Next
MsgBox s

Private Sub Command1_Click()
Dim a(0 To 6) As Integer
a(0) = 102
a(1) = 101
a(2) = 81
a(3) = 58
a(4) = 49
a(5) = 50
a(6) = 51
For i = 0 To 6
Text1.Text = Text1.Text & " " & Chr(a(i))
Next i
End Sub
自己弄吧 自己修改下 可以做N个字符的操作

好像有那么一句命令吧，去网上查查，可以实现的，我以前学qbasic时候就可以。