FiveTech Software tech support forums

... Mantissa(<nFloat>)->nMantissa Max(<xExp1>,<xExp2>)->xLarger MaxCol()->nColumn MaxLine(<cText>)->nMaxLineLength MaxRow()->nRow MCol()->nMouseCol MDblClk([<nNewInterval>])->nMilliSeconds MDY([<dDate>])->cDate MemoEdit(<cString>,[<nTop>],[<nLeft>],[<nBottom>],[<nRight>],[<lEditMode>],[<cUserFunction>],[<nLineLength>],[<nTabSize>],[<TextBufferRow>],[<nTextBufferColumn>],[<nWindowRow>],[<nWindowColumn>])->cTextBuffer ...

... CPU time? When you say "splitting the input file" did you mean splitting the output file into multiple segments? I do see these: #define NMAXLINELENGTH (4096 * 3) #define NSPLIT_LINES 25000 Perhaps it is doing what it is told? James

... you. #define CFILENAME "TEST.CSV" #define CR CHR(13) #define LF CHR(10) #define LINEFEED CHR(13) + CHR(10) #define NCHARS 1 #define NMAXLINELENGTH (4096 * 3) #define NSPLIT_LINES 25000 #include "Common.ch" #include "FiveWin.ch" FUNCTION Main (cFile) #define nHandle ...

... ) ) EndIf If ! ::lNoHScroll If ! Empty( ::cAlias ) .and. ::lIsTxt nTxtWid := Max( 1, GetTextWidth( 0, "B", hFont ) ) nMin := 1 nMax := ::oTxtFile:nMaxLineLength - Int( nMaxWidth / nTxtWid ) ::oHScroll := TSBScrlBar():WinNew( nMin, nMax,, .F., Self ) Else nMin := Min( 1, Len( ::aColumns ) ) nMax ...

... solo ocupo 4 lineas. Saludos, [quote="fleal"]Mario, Para extraer los datos del XML oText := TTxtFile():New( "ARCHIVO.XML" ) oText:nMaxLineLength := 500 nRen := oText:RecCount() + 1 Cada uno de las lineas tiene un identificador único... por ejemplo: <Contact_ContactPerson>VERONICA ...

Mario, Para extraer los datos del XML oText := TTxtFile():New( "ARCHIVO.XML" ) oText:nMaxLineLength := 500 nRen := oText:RecCount() + 1 Cada uno de las lineas tiene un identificador único... por ejemplo: <Contact_ContactPerson>VERONICA MARTINEZ ALMENDAREZ</Contact_ContactPerson> ...

... gives an error with xHarbour builder // I changed this to RETU self // and now to check for open error // I check oFile:hFile for < 0 ENDIF ::nMaxLineLength := 1024 ::nLine := 1 ::nTLines := ::Count( CRLF ) ::nOffset := 0 ::ReadLine() RETURN Self

Al final lo he solucionado con la clase TTxtFile sólo para ciertos oIni con entradas muy grandes, utilizo:

LOCAL oIni := TTxtFile():New(::oIni:cIniFile)
oIni:nMaxLineLength := 3000
cState := oIni:GetValue( ::cSection, "Estado", "" )
oIni:End()

Bueno, pues listo.
Un saludo