如果你有IE,把这个存成.htm 可以方便的转换.



所有跟贴·加跟贴·新语丝科技论坛

送交者: 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

 





所有跟贴:


加跟贴

笔名: 密码(可选项): 注册笔名请按这里

标题:

内容(可选项):

URL(可选项):
URL标题(可选项):
图像(可选项):


所有跟贴·加跟贴·新语丝科技论坛