FiveTech Software tech support forums

... ) So from Linux to Windows you may do: local aLines := hb_ATokens( cText, LF ) and then create the text: cText := "" AEval( aLines, { | cLine | cText += cLine + CRLF } )

Marc,

I think it can be used for the needed fielsize infos
but 3 unknown functions

aHeader = strtoarr(cLine)
cdeli = MsgSelect( { ";",","} )
builddbf(aHeader,aFieldcount,cDbf)

regards
Uwe

How ?

oFile := TTxtFile():New( cFileName ) << File is Unix Code or UTF-8 not BOM

Do While !oFile:Eof()
cLine := oFile:ReadLine() // << here is the problem
? cLine
oFile:Skip()
Enddo

... con fwrite (menos) se mantienen practicamente iguales. ¿ No será muy costoso, en tiempo, casi como un fwrite() un bucle concatenario del estilo cLine+= cText ? Si le pones un buffer tan grande, entonces la concatenación empieza a complicar el asunto. Piensa en esta situación: tenemos un cBuffer ...

... 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

... cLine>])->oError ErrorBlock([<bErrorHandler>])->bCurrentErrorHandler ErrorLevel([<nNewReturnCode>])->nCurrentReturnCode ErrorNew([<cSubSystem>],[<nGenCode>],[<nSubCode>],[<cOperation>],[<cDescription>],{<aArgs>],[<cModuleName>],[<cProcName>],[<nProcLine>])->oError ...

... oTxtFile := TTxtFile():New( cFileCSV, 0 ) oTxtFile:Skip() //skip the first line of the header while !oTxtFile:lEoF() ?StrToken( oTxtFile:cLine, 1, ";" ) ?StrToken( oTxtFile:cLine, 2, ";" ) ?StrToken( oTxtFile:cLine, <n>, ";" ) oTxtFile:Skip() ENDDO ...

... oTxtFile := TTxtFile():New( cFileCSV, 0 ) oTxtFile:Skip() //skip the first line of the header while !oTxtFile:lEoF() ?StrToken( oTxtFile:cLine, 1, ";" ) ?StrToken( oTxtFile:cLine, 2, ";" ) ?StrToken( oTxtFile:cLine, <n>, ";" ) oTxtFile:Skip() ENDDO ...

... I am doing wrong? //----------------------------------------------------------------------------- function _AesRead( oSay ) local lEof := .F. , ; cLine := "" , ; cFolder := "" , ; cOrg := "" , ; cDst := "" , ; cTmp := "" , ; nTmp := 0 , ; n001 ...

... en el item raiz (0) y del primer nivel del item (1), para poder obtener la ubicación desde de origen del recurso con la función StrToken(oTxtFile:cLine, 3) desde el archivo.RC New BITMAP "Z:\FWH\bitmaps\32x32\new.bmp" New2 BITMAP "Z:\FWH\bitmaps\16x16\new.bmp" Dialog BITMAP ...

... // box trace cTitle:= "Ciclo operazioni" @ 100, 05 XBROWSE oBrwTesto OF oDlgCicloMater ; SIZE 220,80 PIXEL ; COLUMNS "cLine"; OBJECT oText; FOOTERS NOBORDER WITH OBJECT oBrwTesto:cLine :bFooter:= {|| "Linea = " + LTrim( Str( oText:RecNo() ) ) + " ...

... ], * [ <nLineNumber>=1 ], * [ <nTabSize>=4 ], [ <lWrap>=.T. ], * [ <cEOL>|<acEOLs> ] ) -> <cLine> */ So it seems as it does not support the same parameters as xHarbour. We could compare xHarbour and Harbour and propose to enhance such function ...

... else MsgInfo(::inetErrorCode( ::SocketCon )) ENDIF ::ReadHeaders() - always return .f. METHOD ReadHeaders( lClear ) CLASS TIPClientHTTP cLine := ::inetRecvLine( ::SocketCon, @nPos, 500 ) cLine is always empty IF Empty( cLine ) // In case of timeout or error on receiving RETURN .F. ENDIF ...

... ? "value * pow =", VALUE * pow WAIT ? VALUE2 // generate RTE /*** testpp.prg ***/ REQUEST __PP_STDRULES REQUEST __WAIT PROC Main() local cLine, pPP, oErr pPP := __PP_INIT() BEGIN SEQUENCE WITH {|oErr| BREAK( oErr ) } FOR EACH cLine IN hb_ATokens( StrTran( __PP_Process( pPP, ; hb_MemoRead( ...

... CONSOLE" nxLen := 50 nxLineas := MlCount( ::oQry:FieldGet("comentarios"), nxLen ) pRen := 3.80 + 00.20 for x := 1 to nxLineas cLine := MemoLine( ::oQry:FieldGet("comentarios"), nxLen, x ) oPrn:cmSay( pRen, 14.30, cLine, oFnt[5] ) pRen += 00.20 next saludos paco