Public Function MorseCodeDecode( _ ByVal vValue As Variant _ ) As Variant
MorseCodeDecode("... --- ...") = "SOS" MorseCodeDecode("... --- ... ... --- ...") = "SOS SOS" MorseCodeDecode("... ...") = "S S" ' #3Note: The conversion from Morse code back to ANSI Windows characters is not perfect as each run of two or more spaces is converted into a single space, as in example #3.
MorseCodeEncode FunctionvValue: String containing the Morse Code dots and dashes (represented by period and hyphen characters respectively) which is to be decoded. Function returns Null if vValue is Null or cannot be fixed up to a String.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.