FiveTech Software tech support forums

... largo:=pdfend-pdfin resp:=substr(response,pdfin,largo+4) cFilename:="texto.pdf" * Grabo el Archivo PDF ferase(cfilename) oText:= TTxtFile():New( cfilename ) if oText:Open() oText:add(alltrim(resp)) endif oText:close()

Saludos Logré resolver mediante FUNCTION MEMOREADX(cFile) LOCAL oFile,cLinea,cMemo:="" DEFAULT cFile:="DATAPRO.INI" oFile:= TTxtFile():New(cFile, 0) WHILE !oFile:Eof() cLinea:=oFile:ReadLine() cMemo :=cMemo+IF(Empty(cMemo),"",CRLF)+cLinea oFile:Skip() ENDDO oFile:Close() ...

Prueba con oFile := TTxtFile():New( cFile )

nLines: = oFile:nTLines

Saludos

local cCSVFile := "purcbill.csv"
local cCsv

oFile := TTxtFile():New( cCSVFile )
oFile:GoTop()
Do while !oFile:Eof()
cCsv := cCsv + oFile:ReadLine()
oFile:Skip()
Enddo

Instead of the above six lines of code,

Code: Select all  Expand view

cCsv := MEMOREAD( cCsvFile )
 

... 39 TBUTTON 40 TBUTTONBMP 41 TSAY 42 TMULTIGET 43 TLISTBOX 44 HBFORMATCODE 45 CODEFORMAT 46 TCURSOR 47 TSCINTILLA 48 TSPLITTER 49 TFILE 50 TTXTFILE 51 TGROUP 52 TPANEL Memory Analysis =============== 693 Static variables Dynamic memory consume: Actual Value: 14745600 bytes Highest Value: ...

Carlos

Utilice el StrToutf8 pero no grabe asi el archivo, Voy a probarlo hoy, espero que salga bien

Gracias por el tip!!!!

Lubin

Hola Lubin, Has probado con la funcion de Harbour hb_strToUTF8() Yo lo hago de esta forma:    cXml := hb_strToUTF8( cXml )   cArchivo = cFilePath( GetModuleFileName( GetInstance() )) + "Xmls\archivo"+".xml"   Ferase(cArchivo)   oFile := TFi...

UTF8 - BOM(Byte order mark) no lo sé. Saludos.

Gracias Karinha. Si manejo el TXTFILE pero necesito que al generar el archivo, debe ser grabado en formato UTF8-NO BOM para enviarlo a una webservice de lo contario me lo rechaza. la verdad no tengo ni idea como lograrlo en FW haga una busqueda por TXTFILE. http://forums.fivetechsupport....

haga una busqueda por TXTFILE.

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=31456&p=182756&hilit=TXTFILE#p182756

Saludos.

Buen dia con todos

Alguna idea como crear este archivo texto con formato UTF8-SIN BOM, por favor,

Quizas creando el archivo y luego convertirlo, ?' o usando alguna función

Gracias por el salvavidas que puedan lanzar...

Lubin

Buenas noches

Estoy usando la clase TTxFile() y necesito crear un archivo texto de varias líneas pero debe ser con formato: UTF8- NO BOM

Como se puede hacer con esta clase o de que otro modo se puede crear usando Harbour

Gracias

Lubin

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

... Thank you for the suggestion, but unfortunately, it's slower. It took 64sec to read it. The 'append from' was 35sec. Hi, Did you try this ? oTxt:=TTxtFile():New("yourtxtfile.txt") wnbl:=oTxt:recCount() && number of line if wnbl>0 for wbcl = 1 to wnbl aadd(vtxt,oTxt:ReadLine()) ...

Hi, Did you try this ? oTxt:=TTxtFile():New("yourtxtfile.txt") wnbl:=oTxt:recCount() && number of line if wnbl>0 for wbcl = 1 to wnbl aadd(vtxt,oTxt:ReadLine()) oTxt:skip() next endif oTxt:end() * Try it . Philippe ...