专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
Dim f Dim L1, R1 As Integer Dim InputStr As String InputStr = \"汉\" f = Hex(Asc(InputStr)) L1 = CInt(\"&H\" + Mid(f, 1, 2)) R1 = CInt(\"&H\" + Mid(f, 3, 2)) [阅读全文] [PDF]
dim barr(1) as byte dim sme as string barr(0) = 206 barr(1) = 210 sme = strconv(barr, vbunicode) 此方式还可用于com口通讯时汉字的还原。 另外还有一种还原方法: dim sme as string dim putcode as string putcode = \"ced2\" sme = chr(\"&h\" + putcode) [阅读全文] [PDF]
dim f dim l1, r1 as integer dim inputstr as string inputstr = \"汉\" f = hex(asc(inputstr)) l1 = cint(\"&h\" + mid(f, 1, 2)) r1 = cint(\"&h\" + mid(f, 3, 2)) [阅读全文] [PDF]
1 共3条 分1页