FiveTech Software tech support forums

Code: Select all | Expand

   local cUnicodeText

   FW_SetUnicode( .t. )

   cUnicodeText   := MEMOREAD( "unicode.txt" )

   MEMOEDIT( cUnicodeText )
 

Code: Select all | Expand

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

Code: Select all | Expand

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

Code: Select all | Expand

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

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

   XBROWSER a

Code: Select all | Expand

#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