Public Function TranslateStringUsingTable( _ ByVal vLine As Variant _ , ByVal vTable As Variant _ ) As Variant
Assuming Dim TransTable As String TransTable = Space$(64) + "acbdefghijklmnopqrstuvwxyz" for example TranslateStringUsingTable("ABCDEFabcdef", TransTable) = "abcdefabcdef"See also:
TranslateString Function TranslateStringUsingCharacterPairs FunctionvLine: The string in which characters are to be translated. Function returns Null if vLine is Null or cannot be fixed up to a String (Behavior #1).
vTable: The string containing the replacement/translation for each character. Each character within vTable is the replacement for the character whose ASCII value is its position within vTable - 1. For example, the first character within vTable is the translation for the character with ASCII value 0 (Chr$(0)), the second character within vTable is the translation for the character with ASCII value 1 (Chr$(2)), etc. Function returns Null if vTable is Null or cannot be fixed up to a String (Behavior #2).
If the string vTable does not contain a translation for a character, then the character will remain un-translated (Behavior #3).
Note: Function performs Binary comparisons (to determine if characters match) by virtue of the algorithm used (Behavior #4).
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.