7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
weiweiplay 2005-09-07
- 打赏
- 举报
Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Public Const CP_UTF8 = 65001
Public Function UTF8_Decode(bUTF8() As Byte) As String
Dim lRet As Long
Dim lLen As Long
Dim lBufferSize As Long
Dim sBuffer As String
Dim bBuffer() As Byte
lLen = UBound(bUTF8) + 1
If lLen = 0 Then Exit Function
lBufferSize = lLen * 2
sBuffer = String$(lBufferSize, Chr(0))
lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(bUTF8(0)), lLen, StrPtr(sBuffer), lBufferSize)
If lRet <> 0 Then
sBuffer = Left(sBuffer, lRet)
End If
UTF8_Decode = sBuffer
End Function
Public Const CP_UTF8 = 65001
Public Function UTF8_Decode(bUTF8() As Byte) As String
Dim lRet As Long
Dim lLen As Long
Dim lBufferSize As Long
Dim sBuffer As String
Dim bBuffer() As Byte
lLen = UBound(bUTF8) + 1
If lLen = 0 Then Exit Function
lBufferSize = lLen * 2
sBuffer = String$(lBufferSize, Chr(0))
lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(bUTF8(0)), lLen, StrPtr(sBuffer), lBufferSize)
If lRet <> 0 Then
sBuffer = Left(sBuffer, lRet)
End If
UTF8_Decode = sBuffer
End Function
VBDN 2005-09-06
- 打赏
- 举报
'下面操作将把Asscii格式的文件kk.txt转换为以Unicode格式的文件nn.txt
Private Sub Command1_Click()
Dim FSO As New FileSystemObject
Dim f As TextStream
Dim s As String
Set f = FSO.OpenTextFile("C:\Documents and Settings\xtgl\桌面\kk.txt")
s = f.ReadAll
f.Close
s = StrConv(s, vbUnicode)
Set f = FSO.CreateTextFile("C:\Documents and Settings\xtgl\桌面\nn.txt")
f.Write s
f.Close
Debug.Print "ok"
End Sub
Private Sub Command1_Click()
Dim FSO As New FileSystemObject
Dim f As TextStream
Dim s As String
Set f = FSO.OpenTextFile("C:\Documents and Settings\xtgl\桌面\kk.txt")
s = f.ReadAll
f.Close
s = StrConv(s, vbUnicode)
Set f = FSO.CreateTextFile("C:\Documents and Settings\xtgl\桌面\nn.txt")
f.Write s
f.Close
Debug.Print "ok"
End Sub
VBDN 2005-09-06
- 打赏
- 举报
/关注/
SetMeFree 2005-09-06
- 打赏
- 举报
知道ASCII和UNICODE 有什么不同吗?看一下相关方面的资料,看过后很简单就能搞定
FrankWang 2005-09-05
- 打赏
- 举报
把ascii的文件转换到unicode的文件，有代码最好啦，
