How to read a unicode TXT file

[Jack]

Hi,
What is the instruction to open a Unicode TXT file .

Thanks for your help .

[nageswaragunupudi]

MemoRead() or any other file read function of (x)Harbour can read Unicode (utf-8) text file.

For display and edit Unicode text set FW_SetUnicode( .T. ). MemoEdit() and GET MEMO can edit and save Unicode text.

Code: Select all  Expand view

  local cUnicodeText

   FW_SetUnicode( .t. )

   cUnicodeText   := MEMOREAD( "unicode.txt" )

   MEMOEDIT( cUnicodeText )
 

[goosfancito]

Buen dia.
este codigo al ejecutarlo no me visualiza bien las lineas. no me aparecen las ñ

Code: Select all  Expand view

 hF := ttxtFile():new( cFilePath( exename() ) + "doc\1.txt" )
   FW_SetUnicode( .T. )
   hf := MemoRead( cFilePath( exename() ) + "doc\1.txt"  )

[nageswaragunupudi]

1.txt may not be containing UTF8 text.

[goosfancito]

me pasa que esta linea me la transforma en 2 lineas:

Code: Select all  Expand view

Shampoo Anti Age con Acido Hialuronico Cab. Dañados por el paso del tiempo 1 Lt C/valv

hasta cuando lo muestro en un xbrowse

Code: Select all  Expand view

hf := memoread( cFilePath( exename() ) + "doc\1.txt" )

   FOR x = 1 TO MLCount( hf )
      cLinea:= MemoLine( hf,,x,.t.)
      AAdd(a, cLinea)
   NEXT

   XBROWSER a

[nageswaragunupudi]

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oDlg, oFont, oBrw, cText

   cText := "Shampoo Anti Age con Acido Hialuronico Cab. Dañados por el paso del tiempo 1 Lt C/valv"

   ? cText

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-20
   DEFINE DIALOG oDlg SIZE 560,200 PIXEL TRUEPIXEL FONT oFont

   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE { cText } ;
      COLUMNS 1 HEADERS "TEXT" COLSIZES 500 ;
      LINES NOBORDER

   WITH OBJECT oBrw
      :nRowHeight    := 60
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil
 

[Enrico Maria Giordano]

me pasa que esta linea me la transforma en 2 lineas:

Code: Select all  Expand view

Shampoo Anti Age con Acido Hialuronico Cab. Dañados por el paso del tiempo 1 Lt C/valv

hasta cuando lo muestro en un xbrowse

Code: Select all  Expand view

hf := memoread( cFilePath( exename() ) + "doc\1.txt" )

   FOR x = 1 TO MLCount( hf )
      cLinea:= MemoLine( hf,,x,.t.)
      AAdd(a, cLinea)
   NEXT

   XBROWSER a

Look at the second parameter of MLCount() and MemoLine. Set a proper value.

EMG