FiveTech Software tech support forums

Buenos días para todos,

En estos días, tuve la necesidad de importar información desde un archivo plano csv separados por punto y coma, pero tengo problemas con el temas de las ñ y las tildes, cuando abro el archivo en block de notas, se ve perfectamente:



En la aplicación, específicamente en un xbrowse, también se ve de manera correcta:



Pero en la base de datos, no se visualiza correctamente:



El problema radica en que al momento de hacer una búsqueda que incluya estos caracteres retorna falso.

El código de la busqueda:

Code: Select all  Expand view

*******************************
*HACEMOS EL FILTRO DEL RECORSET
*******************************
METHOD hacefiltro(cBrw,vGbus,oGbus) CLASS cBusc
IF Empty(vGbus)
    ::oRsBar:Filter := ""
ELSE
  ::oRsBar:Filter := ::hCampos["codigo"]+" LIKE '%" + alltrim(vGbus) + "%' OR "+::hCampos["nombre"]+" LIKE '%"+alltrim(vGbus)+"%'"
  IF ::oRsBar:EOF .and. ::oRsBar:BOF
    MsgStop( oLamcla:mBusc,oLamcla:mDato)
    ::oRsBar:Filter := ""
    oGbus:setfocus()
  ENDIF
ENDIF
::oRsBar:REQUERY()
cBrw:Refresh()
RETURN NIL
 

Cuando el CSV lo abres con el notepad, y le dices "Guardar como", qué te indica en la "codificación", UTF8?

hb_utf8tostr() não funciona?

Aqui, funcionou bem.

Tente / Intente:

Code: Select all  Expand view

   HB_SETCODEPAGE( "UTF8" )

   mxBairro := HB_OemToAnsi( HB_UTF8ToStr( mxBairro ))
   mxEndere := AllTrim( HB_OemToAnsi( HB_UTF8ToStr( mxEndere )) )
   mCidade  := HB_OemToAnsi( HB_UTF8ToStr( mCidade ))
 

Regards, saludos.