vb chr()函数--求解决方法

来源：百度知道 编辑：UC知道 时间：2024/09/24 01:55:41
Chr(104)+Chr(116)+Chr(116)+Chr(112) 得到的结果是http
怎样写一个代码，将Chr(104)+Chr(116)+Chr(116)+Chr(112）或象这种格式的文本 填入Text1中就自动将结果http 显示在Text2中。
还有往Text2中填入http则在Text1显示Chr(104)+Chr(116)+Chr(116)+Chr(112)
我刚玩vb需要用到上面的知道的就请帮帮忙吧！
汗~！我都说了，刚玩VB不会，请写个代码吧！

写了2个函数CTOT和TTOC呵..

Function CtoT$(CCstr$)
Dim i%, j%, n%, m%, t()

If CCstr = "" Then Exit Function
If InStr(CCstr, "Chr(") = 0 Or InStr(CCstr, ")") = 0 Then Exit Function

CCstr = Replace(CCstr, "Chr", "")
CCstr = Replace(CCstr, "+", "")

i = Len(CCstr) - Len(Replace(CCstr, "(", ""))
j = Len(CCstr) - Len(Replace(CCstr, ")", ""))
n = IIf(i > j, j, i)
'以上是规范和格式化字符串

ReDim t(1 To n)
i = 1: j = 1
For m = 1 To n
i = InStr(j, CCstr, "(")
j = InStr(i + 1, CCstr, ")")
t(m) = Chr(Mid(CCstr, i + 1, j - i - 1))
Next
CtoT = Join(t, "")
End Function

Function TtoC$(TxtStr$)
Dim i%, n%, c()
n = Len(TxtStr)
If n <> 0 Then
ReDim c(1 To n)
For i = 1 To n
c(i) = Asc(Mid(TxtStr, i, 1))
N