'ユニコードエスケープをアンエスケープ
Function Deco(ByVal str)
Dim stArrayData As String() = Split(str, "\u")
Dim mes As String = stArrayData(0)
For i = 1 To UBound(stArrayData)
Dim code As String = Strings.Left(stArrayData(i), 4)
Dim left As String = Strings.Mid(stArrayData(i), 5)
Dim intData As Integer = Convert.ToInt32(code, 16)
mes = mes & ChrW(intData) & left
Next
Return mes
End Function
0 件のコメント:
コメントを投稿