送交者: bluesea 于 2004-12-22, 19:36:16:

回答: 帮我做一做啦，老大 由 松鼠 于 2004-12-22, 16:09:35:

程序用VBscript 做的,主要是Vbscript 在ACII转换上比JavaScript 容易.

Sub CClick()
a = Split(Text1.value, "chr(")

For i = LBound(a) To UBound(a)
b = b + tihuan(a(i))
Next
text2.innerText = b
End Sub

Function tihuan(a)
Dim b
Dim c
b = InStr(a, ")")

If b = 0 Then
tihuan = a
Else
c = Mid(a, 1, b - 1)
tihuan = Chr(CInt(c)) + Mid(a, b + 1, Len(a) - b)
End If
End Function

• Thank you very much. - 松鼠 (0 bytes) 2004-12-23, 00:30:44
• 昏了 - bluesea (138 bytes) 2004-12-22, 19:42:24

加跟贴