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 (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
