Lo primero presentarme, soy nuevo por estos lares. Adqurir铆 recientemente la herramienta FiveWin Harbour y estoy comenzando a migrar "tutelado" mi aplicaci贸n hecha en Clipper, por lo que a buen seguro, solicitar茅 ayuda al foro, ayuda que espero alg煤n d铆a pueda devolver!
La primera me la he llevado en la frente con esta funci贸n de las Ca-Tools.
Funciona de la siguiente manera: (extra铆do de las NG)
REPLLEFT()
Exchanges particular characters at the beginning of a string
Syntax
REPLLEFT(<cString>,<cReplacecharacter|
nReplacecharacter>,[<cSearchCharacter|
nSearchCharacter>]) --> cString
Arguments
<cString> [@] Designates the string that is processed.
<cReplacecharacter|nReplacecharacter> Designates the character that replaces the character in <cSearchCharacter|nSearchCharacter> at the beginning of the <cString>.
<cSearchCharacter|nSearchCharacter> Designates the character at the beginning of <cString> that is replaced by <cReplacecharacter| nReplacecharacter>. The default value is a space, CHR(32).
Returns
The processed <cString> is returned.
Description
REPLLEFT() can be used to exchange all leading characters in a string
for any other selected character.
Note
. The return value of this function can be suppressed by
implementing CSETREF() to save space in working memory.
Examples
. Replace the leading spaces with zeros:
? REPLLEFT(" 1234", "0") // "001234"
. Replace the leading zeros with spaces:
? REPLLEFT("001234", " ", "0") // " 1234"
. Replace only the leading spaces:
? REPLLEFT(" 1 ", "0") // "001 "
Me gustar铆a saber si esta funci贸n (o alguna similar) est谩 recogida en FiveWin. No he encontrado nada parecido.
Saludos y GRACIAS!
