函數C to T和T to C

寫了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))
Next
TtoC = "Chr(" & Join(c, ")+Chr(") & ")"
End If
End Function

Private Sub Text1_Change()
Text2 = CtoT(Text1)
End Sub

Private Sub Text2_Change()
'Text1 = TtoC(Text2)
'2個不能同時用呀.呵呵,不然2個文字框就來回倒了.
'你可以添加一個text3來得到呵
'在1裡輸入的內容CHR到3
'在2裡輸入的,ASC到3
End Sub