如何编写批量　将　文本的中的ＡＳＣＩＩ　替换成　字符串　呢？找了很久‘‘没找到‘大家帮帮忙啊！

文本的中的ＡＳＣＩＩ　??你列出一段吧.

比如：60,115,99,114,105,112,116,32,108,97,110,103,117,97,103,101,61,这么一段ＡＳＣＩＩ码．对照ＡＳＣＩＩ替换成字符串：　６０　是　＜　１１５　是　s９９　是　c１１４　是　r

Dim i%, aa$, bb$, sPrivate Sub Form_Load() aa = "60,115,99,114,105,112,116,32,108,97,110,103,117,97,103,101,61" bb = "" s = Split(aa, ",") For i = 0 To UBound(s) bb = bb & Chr(s(i)) Next i MsgBox bbEnd Sub

非常感谢！但是　这个ＡＳＣＩＩ码　不是固定的‘‘　想编写是把文本里的ＡＳＣＩＩ码批量转换成　字符串　的工具．　改怎么写呢？

文本里的ＡＳＣＩＩ码肯定都有一个特定的符来分隔的,有可能是< > % #等等,你可以把逗号改为分隔符

Private Sub Command1_Click()Dim i%, aa$, bb$, s aa = " + text1.text + " bb = "" s = Split(aa, ",") For i = 0 To UBound(s) bb = bb & Chr(s(i)) Next i MsgBox bbEnd Sub都是，号符来分隔的以上方法为什么不行呢？　在　text1.text　中加入ＡＳＣＩＩ码来转换

你的aa是用 " + " 分隔的s = Split(aa, " + ") 或s=split(aa,"+ ")

Dim i%, aa$, bb$, s Private Sub Form_Load() aa= "60,115,99,114,105,112,116,32,108,97,110,103,117,97,103,101,61" bb = "" s = Split(aa, ",") For i = 0 To UBound(s) bb = bb & Chr(s(i)) Next i MsgBox bb End Sub 在以上代码中　将aa= "60,115,99,114,105,112,116,32,108,97,110,103,117,97,103,101,61" 　这个固定值变成动态．也就是说　在　text1.text 输入60,115,99,114,105,112,116,32,108,97,110,103,117,97,103,101,61这段ＡＳＣＩＩ，码来转换字符串．或输入更多的　ＡＳＣＩＩ码　来转换．

该如何编写？Dim i%, aa$, bb$, s Private Sub Form_Load() aa= "text1.text" bb = "" s = Split(aa, ",") For i = 0 To UBound(s) bb = bb & Chr(s(i)) Next i MsgBox bb End Sub 我改成了这样　但是这　 bb = bb & Chr(s(i))　句出了问题～

晕倒,那你就直接添加Text1控件在上面输入啊'添加 Text1 Command1Dim i%, bb$, s Private Sub Command1_Click() bb = "" s = Split(text1.text, ",") For i = 0 To UBound(s) bb = bb & Chr(s(i)) Next i MsgBox bb End Sub

晕‘‘　我怎么没想到‘‘　太感谢了！　终于弄好了！

对了‘‘　如果字符串　转换成　ＡＳＣＩＩ码　怎么写？

该如何编写？ Dim i%, aa$, bb$, s Private Sub Form_Load() aa= "text1.text" ←这什么意思? 你是要用这个控件啊还是要这个字符串?这里应该是这样的吧?aa= Text1.Text bb = "" s = Split(aa, ",") For i = 0 To UBound(s) bb = bb & Chr(s(i)) Next i MsgBox bb End Sub

晕倒我14F的帖不见了,懒得再写了

'添加 Command1, 再不见就不写了.Dim i&, jj&, aa$, bb$, hPrivate Sub Command1_Click() aa = "如何编写批量将文本的中的ＡＳＣＩＩ替换成字符串呢？" bb = "" For i = 1 To Len(aa) h = Hex(Asc(Mid(aa, i, 1))) jj = Val("&H" + Mid(h, 1, 2)) * 256 + Val("&H" + Mid(h, 3, 2)) bb = bb & CStr(jj) & "," Next i MsgBox Mid(bb, 1, Len(bb) - 1)End Sub

非常感谢！