[vb6.0/vba]유니코드를 일반 문자열로 변환시켜주는 vb6.0/vba 사용자 함수
하나를하더라도최선을
2020-04-10 01:54:04
31,619
0
0
API를 사용하거나 웹 파싱을 하다보면 유니코드 부호로 변환되어 저장이 돼 있는 경우가 종종 있습니다.
Function UnicodeToString(Text As String) As String
Dim V As Variant, str As String
Dim T As String, tem As String, ret As String
On Error Resume Next
For Each V In Split(Text, "\u")
If Len(V) >= 4 Then
tem = Right(V, Len(V) - 4)
str = ToString(Left(V, 4))
ret = ret & str & tem
Else
ret = ret & V
End If
Next
UnicodeToString = ret
End Function
Function ToString(Text As String) As String
On Error GoTo ErrPass
ToString = ChrW("&H" & Text)
Exit Function
ErrPass:
ToString = Text
End Function
ex:)