Private Function DecodeUnicode(ByVal strUnicode As String) As String
Dim GBCode As String
Dim i, j As Integer
Dim c() As String
ReDim c(strUnicode.Length / 4) For j = 0 To strUnicode.Length \ 4 - 1
Dim d() As Char = strUnicode.ToCharArray(j * 4, 4)
c(j) = "&H" & CType(d, String)
c(j) = ChrW(Val(c(j)))
GBCode += c(j)
Next
Return GBCode
End Function
Dim GBCode As String
Dim i, j As Integer
Dim c() As String
ReDim c(strUnicode.Length / 4) For j = 0 To strUnicode.Length \ 4 - 1
Dim d() As Char = strUnicode.ToCharArray(j * 4, 4)
c(j) = "&H" & CType(d, String)
c(j) = ChrW(Val(c(j)))
GBCode += c(j)
Next
Return GBCode
End Function
解决方案 »
- [求助]C#中多线程中窗体的操作
- URL图片路径字符串怎么转换成二进制?
- winfrom界面动态加载用户控件后,控件怎么跟主界面传值
- SQL语句问题
- 请帮忙看下这个winform分页控件
- DevExpress.XtraTreeList.TreeLis 节点排序
- 怎样才能做到:高内聚低耦合
- 用C#如何读取WORD文档里表格的内容并导出到EXCEL表里?
- 请问asp。net中的脚本c#调用进程激活应用程序为何不行????
- 大家用了这么久的C#,现在感觉怎么样了?
- microsoft enterprise library 中的security application block谁用过?
- 急急急!在线等!窗体控制线程问题!
{
string GBCode;
int i;
int j;
string[][0] c;
for (int j = 0; j <= strUnicode.Length / 4 - 1; j++) {
char[][0] d = strUnicode.ToCharArray(j * 4, 4);
c(j) = "&H" + ((string)(d));
c(j) = ChrW(Val(c(j)));
GBCode += c(j);
}
return GBCode;
}
char[][0] d = strUnicode.ToCharArray(j * 4, 4);
定议出错呀!
string[,0] c;
char[,0] d = strUnicode.ToCharArray(j * 4, 4);
{
string GBCode=string.Empty;
int j;
string[] c;
c=new string[strUnicode.Length / 4]; for(j = 0;j<strUnicode.Length / 4 - 1;j++)
{
char[] d = strUnicode.ToCharArray(j * 4, 4);
c[j] = "0X" + this.CharArrayToString(d);
c[j] =((char)Convert.ToInt32(c[j],16)).ToString();
GBCode += c[j];
} return GBCode;
}private string CharArrayToString(char[] c)
{
string strReturn=string.Empty; foreach(char charThis in c)
{
strReturn+=charThis.ToString();
} return strReturn;
}
return strb.ToString();