REPLLEFT()

[triumvirato]

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!

[Antonio Linares]

David,

Bienvenido a los foros

La función que comentas, asi como la mayoría de las funciones de Ca-Tools, está incluidas tanto en Harbour como en xHarbour, en la sección de contribuciones (hbct: Harbour Ca-Tools).

Esa librería no la proporcionamos con la distribución estandard de Harbour/xHarbour (ya que no incluimos todas las contribuciones), pero podemos construirla y enviártela

[triumvirato]

Antonio,

Gracias por la bienvenida y por la respuesta... estaría interesado en ella...

Saludos!

[Antonio Linares]

David,

Aqui tienes la versión para xHarbour:
http://rapidshare.com/files/125188265/ct.lib.html

La versión de Harbour está dando fallos al construirla. Hay que revisar su fichero make.

[triumvirato]

Mil Gracias Antonio!

Cambiaré de compilador... no es problema. Mucho menos ahora al principio.

Saludos!