VB中的GBK編碼

2021-06-09 07:11:33 字數 1460 閱讀 6823

option explicit

function formatnametomac(val as string) as string

dim i as integer

dim str as string

str = ""

for i = 1 to len(val)

if clng("&h" & hex(asc(mid(val, i, 1)))) < 127 then

str = str & numtostrhex(asc(mid(val, i, 1)), 1)

else

str = str & numtostrhex(asc(mid(val, i, 1)), 2)

end if

next

for i = 1 to len(str) step 2

formatnametomac = formatnametomac & "%" & mid$(str, i, 2)

next

'formatnametomac = ""

'for i = 1 to len(str) step 4

'if len(mid(str, i, 4)) = 4 then

' formatnametomac = formatnametomac & h_to_l(mid(str, i, 4))

'else

' formatnametomac = formatnametomac & mid(str, i, 4)

'end if

'next

end function

function numtostrhex(byval num as long, byval bytlen as integer) as string

dim str as string

dim strreturn as string

dim i as integer

dim ilen as integer

str = cstr(hex(num))

ilen = bytlen * 2

strreturn = ""

if len(str) >= ilen then

strreturn = right(str, ilen)

else

for i = len(str) to ilen - 1

strreturn = strreturn & "0"

next

strreturn = strreturn & str

end if

numtostrhex = strreturn

end function

function h_to_l(val as string) as string

h_to_l = right(val, 2) & left(val, 2)

end function

ubuntu安裝GBK編碼

1 新增gbk編碼 sudo vim var lib locales supported.d local en us.utf 8 utf 8 zh cn.utf 8 utf 8 zh cn.gbk gbk zh cn.gb2312 gb2312 zh cn.gb18030 gb18030 前2個是預...

iOS編碼 如何建立gbk編碼

原文摘自 如果網頁編碼是utf 8的,可以這麼轉換為字串 如果網頁是gbk 或者gb2312 用utf8轉換的話,pagesource返回nil。這時需要使用gbk編碼做轉換,但是nsstringencoding不含gbk,怎麼辦?用另乙個方法處理一下 為什麼可以這麼處理?在nsstring.h 按...

python解析gbk編碼的xml

python解析xml,由於某些協會規定的原因,只能解析utf8和utf16的格式,而gbk和gb2312等解析的時候都會報錯,但是對於某些匯出的xml格式文件,很多都是gbk編碼的,那麼提供一種處理方式 先將xml解析成utf8格式,然後替代第一行的encoding格式,然後儲存乙個新檔案,提供後...