Hola Carlos y compañía,
Recordaba que escribiste algo al respecto.
Finalmente lo he encontrado en https://groups.google.com/forum/?fromgr ... qenCOHAAAJ
Pero veo que tu clase TBuffer publicada es un prototipo
¿ La llegaste a terminar ?
Es que necesito bajar el numero de FWrite() sin fragmentar la memoria.
Saludos.
Carlos,
¿ Se podría usar Stuff() para reemplazar a una posible InsertTheString() ?
¿ Fragmentará también la memoria Stuff() ?
Editado:
Pues sí, parece que viendo el código de Stuff() https://github.com/vszakats/harbour-cor ... tl/stuff.c, también daría problemas de fragmentación porque lo que hace Stuff() es crear una nueva cadena a partir del parámetro cadena.
Por tanto, viendo el (mal) funcionamiento de Stuff(), se podría decir que Harbour necesita una funcion que verdaderamente reemplace en una cadena existente, y no que cree una cadena nueva, provocando así problemas de fragmentación de memoria.
#include "hbclass.ch"
CLASS TBuffer
DATA nSize INIT 4096
DATA cBuffer
DATA nCurLen
DATA bProcess
METHOD New( nLen ) CONSTRUCTOR
METHOD Out( cText )
METHOD End() DESTRUCTOR
ENDCLASS
METHOD New( nLen, bProcess ) CLASS TClassA
IF ValType( nLen ) == 'N'
::nSize:= nLen
ENDIF
::cBuffer:=""
::nCurLen:= 0
::bProcess:= bProcess
RETURN Self
METHOD Out( cText )
IF ::nCurLen + Len( cText ) > ::nSize
::bProcess:Eval( ::cBuffer, ::nCurLen )
::nCurLen:= 0
::cBuffer:= ""
ENDIF
::cBuffer+= cText
::nCurLen+= Len(cText)
RETURN Self
METHOD End()
IF ::nCurLen > 0
::bProcess:Eval( ::cBuffer, ::nCurLen )
ENDIF
RETURN NILHola Carlos,
Agradezco enormemente tu respuesta.
Lo monté concatenando en una variable, que viene a ser como la TBuffer.
Mi sorpresa fue cuando después de ponerle un buffer de 60.000 los tiempos de grabación con fwrite (menos) se mantienen practicamente iguales.
¿ No será muy costoso, en tiempo, casi como un fwrite() un bucle concatenario del estilo cLine+= cText ?
El proceso finalizó y no hubo un gpf de memoria y no tuve que recurrir al colector de memoria.
Saludos
hmpaquito wrote:
Mi sorpresa fue cuando después de ponerle un buffer de 60.000 los tiempos de grabación con fwrite (menos) se mantienen practicamente iguales.
¿ No será muy costoso, en tiempo, casi como un fwrite() un bucle concatenario del estilo cLine+= cText ?
Carlos,
Gracias por la explicacion.
Pondré un buffer más pequeño para intentar guardar un equilibrio entre tamaño de buffer y numero de fwrites.
Volveré por aquí a informar del resultado.
Saludos
PD 1. ¿ No seria más rapido crear el fichero en memoria y tratarlo con fwrite ?
PD 2. El txt que creo, ahora mismo, tiene ~ 130 mb y tarda 4 h.
PD 1. ¿ No seria más rapido crear el fichero en memoria y tratarlo con fwrite ?
PD 2. El txt que creo, ahora mismo, tiene ~ 130 mb y tarda 4 h.
xmanuel wrote:
Segú lo que sea te podré ayudar
#Define nBUFFER_SIZE 4096
nH:= FCreate("Clientes.Txt")
cLin:= ""
SELECT Clientes
GO TOP
DO WHILE !Eof()
// Aqui es donde se deteriora la memoria, especialmente con buffer de gran tamaño.
cLin+= FIELD-> Codigo+ ";"+ FIELD-> Nombre+ ";"+ FIELD-> Direccion+ ";"+ FIELD-> Poblacion+ ";"+ FIELD-> Provincia+ ";"+ FIELD-> Observaciones+ CRLF
If Len(cLin) >= nBUFFER_SIZE
FWrite(nH, cLin)
cLin:= ""
ENDIF
SKIP
ENDDO
FWrite(nH, cLin)
FClose(nH)mibuffer := creaBuffer()
SELECT Clientes
GO TOP
DO WHILE !Eof()
escribeEnBuffer( mibuffer, FIELD-> Codigo )
escribeEnBuffer( mibuffer, ";" )
escribeEnBuffer( mibuffer, FIELD-> Nombre)
escribeEnBuffer( mibuffer, ";" )
escribeEnBuffer( mibuffer, FIELD-> Direccion)
escribeEnBuffer( mibuffer, ";" )
escribeEnBuffer( mibuffer, FIELD-> Poblacion)
escribeEnBuffer( mibuffer, ";" )
escribeEnBuffer( mibuffer, FIELD-> Provincia)
escribeEnBuffer( mibuffer, ";" )
escribeEnBuffer( mibuffer, FIELD-> Observaciones)
escribeEnBuffer( mibuffer, CRLF )
SKIP
ENDDO
freeBuffer( mibuffer )Buenos días Manuel,
Me encantaría si pudieras dar una solución a este problema.
Al menos yo, necesitaría que funcionara con xHarbour.
Agradecido.
Saludos
xmanuel wrote:
La idea es crea un buffer de memoria fijo que escriba en el fichero de destino cuando se llene.
Y de eso se tiene que encargar el propio gestor del buffer.
El ancho del buffer yo lo pondría lo más grande posible (lo que permita FWrite())
xmanuel wrote:
Si me dejais hasta el fin de semana lo hago
hmpaquito wrote:Pondré un buffer más pequeño para intentar guardar un equilibrio entre tamaño de buffer y numero de fwrites.
Volveré por aquí a informar del resultado.
Jajaja...
Este fin de semana veremos si eso que hace Paquito en 4 horas pasa a minutos... como mucho 
Atentos a las pantallas...
PD: Si no doy señales de vida es que se me ha olvidado, solo tenéis que recordármelo, ok?
The txt that I believe, right now, has ~ 130 mb and takes 4 h.
DBF2TEXT( bWhile, bFor, aFields, cDelim, hFile, cSep, nCount, cdp )04-05-2018 18:46 142,527,000 customer.txt
1 File(s) 142,527,000 bytes USE CUSTOMER
hFile := FCreate( "customer.txt" )
? "start"
nSecs := SECONDS()
for n := 1 to 2200
CUSTOMER->( DBGOTOP() )
CUSTOMER->( DBF2TEXT( nil, nil, nil, nil, hFile, ";", -1 ) )
next
FClose( hFile )
? SECONDS() - nSecs