Remplazos de Funciones FlineCount() y HB_ReadLine() de Xharbour para Harbour

[Martin Del Angel]

Hola equipo de Xailer:
Algún remplazo que sepan de estas 2 funciones que estan en xhb.lib
Flinecount() y Hb_Readline()
Quiero evitar el uso de xhb.lib , por eso busco su remplazo con Harbour.
Saludos...

[jfgimenez]

Martin,
> Algún remplazo que sepan de estas 2 funciones que estan en xhb.lib
>
> Flinecount() y Hb_Readline()
>
> Quiero evitar el uso de xhb.lib , por eso busco su remplazo con Harbour.
La verdad es que nunca he usado esas funciones, pero me parece que son
parecidas (que no iguales) a MLCount() y MemoLine() respectivamente. Yo
las cambiarí­a por estas últimas, que son las estándar desde la época de
Clipper, aunque tengas que hacer algunos ajustes en el código.
La otra opción es coger los fuentes de esas funciones de la librerí­a
xharbour y añadirlos a tu proyecto.
Un saludo,
José F. Giménez

[Martin Del Angel]

On 12/18/2012 2:28 AM, Jose F. Gimenez wrote:
> Martin,
>
>> Algún remplazo que sepan de estas 2 funciones que estan en xhb.lib
>>
>> Flinecount() y Hb_Readline()
>>
>> Quiero evitar el uso de xhb.lib , por eso busco su remplazo con Harbour.
>
> La verdad es que nunca he usado esas funciones, pero me parece que son
> parecidas (que no iguales) a MLCount() y MemoLine() respectivamente. Yo
> las cambiarí­a por estas últimas, que son las estándar desde la época de
> Clipper, aunque tengas que hacer algunos ajustes en el código.
>
> La otra opción es coger los fuentes de esas funciones de la librerí­a
> xharbour y añadirlos a tu proyecto.
>
>
> Un saludo,
>
> José F. Giménez
Gracias José:
Encontre esto y me funciono muy bien:
PROCEDURE Main
LOCAL cFile := "Textfile.txt"
LOCAL aLines, nLine := 0, nCount
LOCAL nFile
nFile := HB_FUse( cFile )
nCount := HB_FLastRec() + 1 <==== numero de lineas en el archivo
aLines := Array( nCount )
DO WHILE ++nLine <= nCount
aLines[ nLine ] := HB_FReadAndSkip() <==== para leer linea
ENDDO
HB_FUse()
AEval( aLines, {|cLine| QOut( cLine ) } )
RETURN
Incluyendo la libreria hbmisc.lib
Saludos....

[dezac]

Martin,
del ejemplo parece que quieres cargar un archivo de texto a un array. Si es
así­ prueba esto:
FUNCTION FileToArray( cFile, cLineSep )
LOCAL cText := MemoRead( cFile )
DEFAULT cLineSep TO CRLF
RETURN HB_ATokens( cText, cLineSep )
No lo he probado y quizás necesite algún ajuste, pero si lo haces así­
podrás prescindir de hbmisc o cualquier otra librerí­a externa.
Saludos,
José Lalí­n

[Martin Del Angel]

On 12/18/2012 1:51 PM, José Lalí­n wrote:
> Martin,
>
> del ejemplo parece que quieres cargar un archivo de texto a un array. Si
> es así­ prueba esto:
>
> FUNCTION FileToArray( cFile, cLineSep )
>
> LOCAL cText := MemoRead( cFile )
>
> DEFAULT cLineSep TO CRLF
>
> RETURN HB_ATokens( cText, cLineSep )
>
> No lo he probado y quizás necesite algún ajuste, pero si lo haces así­
> podrás prescindir de hbmisc o cualquier otra librerí­a externa.
>
> Saludos,
> José Lalí­n
>
Lo Pruebo y te cuento , muchas gracias a los Joses.
Saludos...
P.D. A ver cuando se animan a venir a México a que nos ilustren también
a los del este lado del charco.

[Martin Del Angel]

On 12/18/2012 10:46 PM, Martin Del Angel wrote:
> On 12/18/2012 1:51 PM, José Lalí­n wrote:
>> Martin,
>>
>> del ejemplo parece que quieres cargar un archivo de texto a un array. Si
>> es así­ prueba esto:
>>
>> FUNCTION FileToArray( cFile, cLineSep )
>>
>> LOCAL cText := MemoRead( cFile )
>>
>> DEFAULT cLineSep TO CRLF
>>
>> RETURN HB_ATokens( cText, cLineSep )
>>
>> No lo he probado y quizás necesite algún ajuste, pero si lo haces así­
>> podrás prescindir de hbmisc o cualquier otra librerí­a externa.
>>
>> Saludos,
>> José Lalí­n
>>
>
> Lo Pruebo y te cuento , muchas gracias a los Joses.
>
>
> Saludos...
>
>
> P.D. A ver cuando se animan a venir a México a que nos ilustren también
> a los del este lado del charco.
Gracias Muchas Gracias, funcionó de maravilla
Saludos....

[dezac]

Martin,
> P.D. A ver cuando se animan a venir a México a que nos ilustren también a
> los del este lado del charco.
Desde hace tiempo tengo una cita pendiente con un marlin o con un sábalo
(cualquiera de los dos me vale), así­ que quizás haya que sacar tiempo de
donde sea y cruzar el charco. Para trabajar digo
Saludos,
José Lalí­n

[Martin Del Angel]

On 12/19/2012 11:15 AM, José Lalí­n wrote:
> Martin,
>
>> P.D. A ver cuando se animan a venir a México a que nos ilustren también a
>> los del este lado del charco.
>
> Desde hace tiempo tengo una cita pendiente con un marlin o con un sábalo
> (cualquiera de los dos me vale), así­ que quizás haya que sacar tiempo de
> donde sea y cruzar el charco. Para trabajar digo
>
> Saludos,
> José Lalí­n
>
Hola José:
Le voy a comentar a Rene Flores para organizar algo en México , en
cuanto haya la primera oportunidad.
Saludos....