 |
| 等 级：高级居民 |
| 经 验 值：569 |
| 魅 力 值：101 |
| 龙 币：2388 |
| 积 分：994.5 |
| 注册日期：2004-06-23 |
| |
|
|
|
请进
'国标码2312->字符串
Public Function GB2312ToChar(strIn As String) As String
Dim I As Integer
Dim L As Integer
Dim T() As Byte
Dim j As Integer
Dim k As Integer
I = Len(strIn) 2
strIn = Left(strIn, I * 2)
ReDim T(I - 1) As Byte
j = 1
If I Mod 2 <> 0 Then
k = I - 1
Else
k = I
End If
For L = 1 To k Step 2
T(L) = Val("&h" & Mid$(strIn, j * 4 - 1, 2))
T(L - 1) = Val("&h" & Mid$(strIn, j * 4 - 3, 2))
j = j + 1
Next
If I Mod 2 <> 0 Then
T(L - 1) = Val("&h" & Right(strIn, 2))
End If
GB2312ToChar = GB2312ToChar + StrConv(T, vbUnicode)
End Function
(此文由焦点在2005-08-18 15:16:18编辑过)
|
| |
|
|
2005-08-18 15:15:15
(空)