Swap neighbouring double characters in a string
WordSwap( <[@]cString> [, <lSwapCharacters>] ) -> cSwappedString
<[@]cString>is the string that should be processed
[<lSwapCharacters>] specifies whether an additional swap should be done within the double characters Default: .F., no additional swap
<cSwappedString> a string where neighbouring double characters are swapped
The WordSwap() function loops through <cString> in steps of four characters and exchanges the double characters from the first and second position with the one from the third and forth position. Additionally the function can perform a swap of the both char of each double character.
By setting the CSETREF() switch to .T., one can omit the return value of this function, but one must then pass <cString> by reference.
? WordSwap( "1234567890" ) // "3412785690" ? WordSwap( "1234567890", .T. ) // "4321876590"
WordSwap( "1234567890" ) == "3412785690" WordSwap( "1234567890", .T. ) == "4321876590"
WordSwap() is compatible with CT3’s WordSwap().
Source is charswap.c, library is libct.