FiveTech Support Forums

Dear All,

I would like to import data from Excel and some charactor is UTF8 (Myanmar), but it shows and ???? (asterisk).

Thanks in advance,

Dear Dutch,

Please post an example to review how you are doing it, thanks

Antonio Linares wrote: Dear Dutch,

Please post an example to review how you are doing it, thanks

#include 'FiveWin.ch'

Static aData

Function Main
local oRange, oError

cFileName := 'd:\jv.xlsx' 
	TRY 
	   oRange := GetExcelRange( cFileName )  
	   aData  := ArrTranspose( oRange:Value )
	   oRange:WorkSheet:Parent:Close()
	CATCH oError 
		MsgStop( 'Unable to Open thie file.', oError:Description )
	END

XBROWSER aData

return nil

Error: Unresolved external '_HB_FUN_HB_LANG_TIS' referenced from D:\FWH2304\SAMPLES\XLSTEST3.OBJ
Error: Unresolved external '_HB_FUN_HB_CODEPAGE_874' referenced from D:\FWH2304\SAMPLES\XLSTEST3.OBJ

karinha wrote: Try this,

Code: Select all Collapse

// C:\FWH\SAMPLES\DUTCH3.PRG

#include 'FiveWin.ch'

// Enter your country codes: TIS 620-2533
EXTERNAL HB_LANG_TIS, HB_CODEPAGE_PTISO, HB_CODEPAGE_874 //( Thailand? )

#ifNdef __XHARBOUR__     // Somente para HARBOUR, XHARBOUR nao tem isso ainda.
   REQUEST HB_CODEPAGE_UTF8
   REQUEST HB_CODEPAGE_UTF8EX
#endif

STATIC aData

FUNCTION Main()

   LOCAL oRange, oError, cFileName

   // Enter your country codes: TIS 620-2533
   #ifdef __XHARBOUR__

      HB_LANGSELECT( 'PT' )
      HB_SETCODEPAGE( "PT850" )
      HB_CDPSELECT( "PTISO" )
      HB_SETCODEPAGE( "UTF8" )

   #Else // HARBOUR

      HB_LANGSELECT( 'PT' )
      HB_SETCODEPAGE( "UTF8" )
      HB_CDPSELECT( "UTF8EX" )
      HB_SETCODEPAGE( "PT850" )
      HB_CDPSELECT( "PTISO" )

   #Endif

   cFileName := 'd:\jv.xlsx'

   IF FILE( cFileName )

      TRY

         oRange := GetExcelRange( cFileName )
         aData  := ArrTranspose( oRange:Value )

         oRange:WorkSheet:Parent:Close()

      CATCH oError

         MsgStop( 'Unable to Open thie file.', oError:Description )

      END

      XBROWSER aData

   ELSE

      ? "No file found in D:\"

   ENDIF

RETURN NIL

// FIN / END

Regars, saludos.

Dear Karinha,

Thanks for your kind help.

Dear Antonio,

I try as ChatGPT recommend by combile C++ code but not success. It's still unreadable.

Any recommendation.