domino Unicode解码 与编码

Unicode

Function UnicodeToString(strUnicode As String) As String 	
%REM
输入参数：strUnicode为Unicode
输出参数：ret_strData转换为字符串
%END REM
	On Error Goto er
	'Messagebox "strUnicode参数如：" &" 100;111;99;105;100;61;68;66;51;70;69;68;53;48;54;48;57;50;68;52;57;55;52;56;50;53;55;70;56;55;48;48;50;52;70;51;68;53;"
	Messagebox "strUnicode参数：" & strUnicode
	UnicodeToString=""
	If strUnicode=""  Then
		UnicodeToString=""
		Exit Function
	End If
	
	While Not str
	Messagebox "UnicodeToString 处理结果：" & UnicodeToString
	'Messagebox "UnicodeToString 处理结果如：" & "docid=DB3FED506092D49748257F870024F3D"
	Exit Function
er:	
	
	Msgbox "错误类型:::"&Cstr(Error())+"   错误行数:::"&Cstr(Erl())+ " in of CAwebqueryOpen"
End FunctionUnicode=""
		tmpco