51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3777|回复: 4
打印 上一主题 下一主题

[求助] Unicode 转UTF8

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-11-15 10:33:03 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
QTP里有没有函数或方法进行编码转换的?想把Unicode 转UTF8,没搞过,求9来了
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2007-11-15 14:10:19 | 只看该作者
'Utf8 转换为 Unicode
Public Function UTF8_Decode(ByVal s As String) As String

Dim lUtf8Size As Long
Dim sBuffer As String
Dim lBufferSize As Long
Dim lResult As Long
Dim b() As Byte

If LenB(s) Then
On Error GoTo EndFunction
b = StrConv(s, vbFromUnicode)
lUtf8Size = UBound(b) + 1
On Error GoTo 0
'Set buffer for longest possible string i.e. each byte is
'ANSI<=&HFF, thus 1 unicode(2 bytes)for every utf-8 character.
lBufferSize = lUtf8Size * 2
sBuffer = String$(lBufferSize, vbNullChar)
'Translate using code page 65001(UTF-8)
lResult = MultiByteToWideChar(CP_UTF8, 0, b(0), _
lUtf8Size, StrPtr(sBuffer), lBufferSize)
'Trim result to actual length
If lResult Then
UTF8_Decode = Left$(sBuffer, lResult)
'Debug.Print UTF8_Decode
End If
End If

EndFunction:

End Function



'Unicode转换为UTF-8.
Public Function UTF8_Encode(ByVal strUnicode As String) As String 'ByVal strUnicode As Byte
Dim TLen As Long

TLen = Len(strUnicode)
If TLen = 0 Then Exit Function

Dim lBufferSize As Long
Dim lResult As Long
Dim b() As Byte
'Set buffer for longest possible string.
lBufferSize = TLen * 3 + 1
ReDim b(lBufferSize - 1)
'Translate using code page 65001(UTF-8).
lResult = WideCharToMultiByte(CP_UTF8, 0, StrPtr(strUnicode), _
TLen, b(0), lBufferSize, vbNullString, 0)
'Trim result to actual length.
If lResult Then
lResult = lResult - 1
ReDim Preserve b(lResult)
UTF8_Encode = StrConv(b, vbUnicode)
End If

End Function
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2007-11-15 15:18:11 | 只看该作者
WideCharToMultiByte(CP_UTF8, 0, StrPtr(strUnicode), _
TLen, b(0), lBufferSize, vbNullString, 0)

WideCharToMultiByte,StrPtr 这两个函数QTP不认识,怎么处理,高手出来一下阿
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2007-11-16 10:24:47 | 只看该作者
不能沉啊,坚持到周末,看看有大黑们出手不, 只要能在QTP下进行转换的有效方法,我给分20分啊,
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2007-11-16 15:09:24 | 只看该作者
Function Unicode2Chr(byval str)
        Dim st, t, i
        For i = 1 To Len(str)/4
                t = Mid(str, 4*i-3, 4)
                t = Mid(t, 3) & Left(t, 2)
                t = ChrW(Hex2Dec(t))
                st = st & t
        Next
        Unicode2Chr = st
End Function

Function Hex2Dec(byval str)
        Dim i, j, k, result
        result = 0
        For i = 1 To Len(str)
                Select Case Mid(str, i, 1)
                        Case "F": j = 15
                        Case "E": j = 14
                        Case "D": j = 13
                        Case "C": j = 12
                        Case "B": j = 11
                        Case "A": j = 10
                        Case Else: If Mid(str, i, 1) <= "9" And Mid(str, i, 1) >= "0" Then j = CInt(Mid(str, i, 1))
                End Select
                For k = 1 To Len(str) - i
                        j = j * 16
                Next
                result = result + j
        Next
        Hex2Dec = result
End Function


自问自答
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-24 05:55 , Processed in 0.067744 second(s), 26 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表