Save csv file in utf8 with BOM

[Giovany Vecchi]

The characters are in the utf8 standard, but when I import it into a third-party system, it says that the file is not utf8.

Does anyone have a solution?

Code: Select all  Expand view  RUN

Method N_SignoCepLayout_BuildAll(f_cFileCvsSalva)
   Local lc_cFileCvsConteudo := ""

   ::N_SignoCepLayout_CabecalhoBuild()

   lc_cFileCvsConteudo     := ::cCabecalhoCampos + CRLF
   lc_cFileCvsConteudo     += ::cTxtOcorrenciasAll

   hb_MemoWrit(f_cFileCvsSalva,hb_StrToUTF8(lc_cFileCvsConteudo))

Return Nil
 

[cnavarro]

What characters do you add in the header?
Please, try

Code: Select all  Expand view  RUN

.../...
   lc_cFileCvsConteudo     := ::cCabecalhoCampos //+ CRLF
   lc_cFileCvsConteudo     += hb_StrToUTF8(::cTxtOcorrenciasAll)

   hb_MemoWrit(f_cFileCvsSalva,lc_cFileCvsConteudo)

 

[Giovany Vecchi]

Hello Cristobar. I already solved it by applying the header to utf8 BOM

Code: Select all  Expand view  RUN

Method N_SignoCepLayout_BuildAll(f_cFileCvsSalva)
   Local lc_cFileCvsConteudo := ""
   Local lc_cUtf8Header := ""

   ::N_SignoCepLayout_CabecalhoBuild()

   lc_cFileCvsConteudo     := ::cCabecalhoCampos + CRLF
   lc_cFileCvsConteudo     += ::cTxtOcorrenciasAll

   lc_cUtf8Header := chr(239)+chr(187)+chr(191) //Header utf8 with BOM

   hb_MemoWrit(f_cFileCvsSalva,lc_cUtf8Header+hb_StrToUTF8(lc_cFileCvsConteudo))

Return Nil