字符串转ascII码 与 回转

 

'字符串转ascII码,转换后的ascII码以";"连接

Function getAscII(str)

k = Len(str)

For i = 1 To k

getAscII = getAscII & Asc(Mid(str,i,1))&";"

Next

If Len(getAscII)>2 then

getAscII = Left(getAscII,Len(getAscII)-1)

End if

End Function

 

'ascII码回转成字符串

Function ascIIToStr(str)

ascIIToStr = ""

tStr = Split(str,";")

For i = 0 To UBound(tStr)

ascIIToStr = ascIIToStr & Chr(tStr(i))

next

End function