以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  怎么把16进制的unicode码转成字符串？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149429)

--  作者：jjun2002cn --  发布时间：2020/5/1 11:47:00 --  怎么把16进制的unicode码转成字符串？ 我原来的数据库里面都是unicode码保存的信息 我现在想要读取出来，修改以后在回写回去！ custom,58,2,,,,,,address,,zipcode,,webaddress,,Account,,TaxNo,,tel1,,fax,,tel2,,fax2,,name1,%u5F20%u603B,name1email,,name1class,,name1call,,name1birth,,name1sexlist,%u7537,name1tel,,name1address,,name1mobil,,name1home,,name2,,name2email,,name2class,,name2call,,name2birth,,name2sexlist,%u7537,name2tel,,name2address,,name2mobil,,name2home,

--  作者：有点酸 --  发布时间：2020/5/1 20:07:00 --   Dim Vals() As String = "fax2,,name1,%u5F20%u603B,name1email,,name1class,,name1call,,name1birth,,name1sexlist,%u7537".Split("%") Dim newVals As String For Each val As String In vals     If val.StartsWith("u") Then         val = Chrw(HexToDec(val.SubString(1,4))) & val.SubString(5)     End If     newvals = newvals & val Next output.show(newvals)