急求 在cobol中 ascii和unicode的转换方法

来源：百度知道 编辑：UC知道 时间：2024/06/01 14:00:29
在线等啊， 需要ascii 和 unicode的相互转换方法
语言是 cobol（v3r4）
好的可以追分。
谢谢
哎呀， 你简单给我说下算法也比给我vb代码好啊，这我完全看不明白啊。。。。

VB Unicode 转 ASCII
Public Function Unicode2AscII(ByVal s As String)
On Error Resume Next
Dim i As Integer
Dim r As String
For i = 1 To Len(s) Step 4
r = r + ChrB("&H" & Mid(s, i + 2, 2)) & ChrB("&H" & Mid(s, i, 2))
Next
Unicode2AscII = r
End Function

'使用示例，添加一个CommandButton，名为Command1
'两个TextBox，名称分别为Text1和Text2，复制以下代码运行即可

Private Sub Form_Load()
Text1.Text = "mms%3a%2f%2fserver4.aeeboo.com%2faeeboowang%2fAeebooUploadFiles90001_100000%2fherewn%2f%u6211%u7684%u5973%u795e(Q%u7248)26.wmv%3fpxd%3d1167565477"
End Sub

Private Sub Command1_Click()
Dim s As String, k As Long, s2 As String
k = 1: s2 = Text1.Text
Do Until InStrRev(s2, "%") = 0
k = InStr(k, s2, "%")
s = Mid(s2, k + 1, 5)
If Left(s, 1) = "u" Then
s2 = Replace(s2, "%" & s, Unicode2AscII(Ri