Ascii_7to8和Decode7Bit函数有哪些

这篇文章主要讲解了"Ascii_7to8和Decode7Bit函数有哪些"，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习"Ascii_7to8和Decode7Bit函数有哪些"吧！

Shared Function Decode7Bit(ByVal str7BitCode As String) As StringDim Inv7BitCode As String = InvertHexString(str7BitCode)Dim Binary As StringDim Result As StringDim i As IntegerFor i = 0 To Inv7BitCode.Length - 1 Step 2Binary += ByteToBinary(CByte(Val("&H" & Inv7BitCode.Substring(i, 2))))NextDim Temp As IntegerFor i = 1 To Binary.Length  7Temp = BinaryToInt(Binary.Substring(Binary.Length - i * 7, 7))If Temp = 0 Then Temp = 64Result = Result + ASCII_7to8(Temp) 'OLD >>>> 'Result = Result + ChrW(Temp)NextReturn (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函数有哪些这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是，小编将为大家推送更多相关知识点的文章，欢迎关注！