这篇文章主要讲解了“Ascii_7to8和Decode7Bit函数有哪些”,文中的讲解内容简单清晰,易于学习与理解,下面请大家跟着小编的思路慢慢深入,一起来研究和学习“Ascii_7to8和Decode7Bit函数有哪些”吧!
Shared Function Decode7Bit(ByVal str7BitCode As String) As String Dim Inv7BitCode As String = InvertHexString(str7BitCode) Dim Binary As String Dim Result As String Dim i As Integer For i = 0 To Inv7BitCode.Length - 1 Step 2 Binary += ByteToBinary(CByte(Val("&H" & Inv7BitCode.Substring(i, 2)))) Next Dim Temp As Integer For i = 1 To Binary.Length 7 Temp = BinaryToInt(Binary.Substring(Binary.Length - i * 7, 7)) If Temp = 0 Then Temp = 64 Result = Result + ASCII_7to8(Temp) 'OLD >>>> 'Result = Result + ChrW(Temp) Next Return (Result) End Function #Region " ASCII_7to8 " Shared ASCII_7to8() As String = { _ "@", _ "£", _ "$", _ "¥", _ "è", _ "é", _ "ù", _ "ì", _ "ò", _ "Ç", _ vbLf, _ "Ø", _ "ø", _ vbCr, _ "Å", _ "å", _ "Δ", _ "_", _ "Φ", _ "Γ", _ "Λ", _ "Ω", _ "Π", _ "Ψ", _ "Σ", _ "Θ", _ "Ξ", _ "1", _ "Æ", _ "æ", _ "ß", _ "É", _ " ", _ "!", _ Chr(34), _ "#", _ "¤", _ "%", _ "&", _ "'", _ "(", _ ")", _ "*", _ "+", _ ",", _ "-", _ ".", _ "/", _ "0", _ "1", _ "2", _ "3", _ "4", _ "5", _ "6", _ "7", _ "8", _ "9", _ ":", _ ";", _ "<", _ "=", _ ">", _ "?", _ "¡", _ "A", _ "B", _ "C", _ "D", _ "E", _ "F", _ "G", _ "H", _ "I", _ "J", _ "K", _ "L", _ "M", _ "N", _ "O", _ "P", _ "Q", _ "R", _ "S", _ "T", _ "U", _ "V", _ "W", _ "X", _ "Y", _ "Z", _ "Ä", _ "Ö", _ "Ñ", _ "Ü", _ "§", _ "¿", _ "a", _ "b", _ "c", _ "d", _ "e", _ "f", _ "g", _ "h", _ "i", _ "j", _ "k", _ "l", _ "m", _ "n", _ "o", _ "p", _ "q", _ "r", _ "s", _ "t", _ "u", _ "v", _ "w", _ "x", _ "y", _ "z", _ "ä", _ "ö", _ "ñ", _ "ü", _ "à" _ } #End Region
感谢各位的阅读,以上就是“Ascii_7to8和Decode7Bit函数有哪些”的内容了,经过本文的学习后,相信大家对Ascii_7to8和Decode7Bit函数有哪些这一问题有了更深刻的体会,具体使用情况还需要大家实践验证。这里是亿速云,小编将为大家推送更多相关知识点的文章,欢迎关注!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。