FiveTech Software tech support forums

After doing several tests, I came to the opinion that it is not a good idea to make our functions. It is better to depend on the standard Harbour function OemToAnsi() and then later convert to Utf8 if necessary.

May I ask about your oem.dbf? 1. Does this code display the text correctly or correctly in most of the cases? XBROWSER "name.dbf" SETUP ( oBrw:lOemAnsi := .t. ) or USE <name.dbf>XBROWSER ALIAS() SETUP ( oBrw:lOemAnsi := .t.  ) Does changing Codepages make...

That is just a list from 33 to 255.
I am looking for German OEM character codes, of "characters having accent"
Its ok. Please leave it.

hi, here are German Sign from 32 to 255 STRTOHEX( cSign ) = "20" ASC( cSign ) = 32 STRTOHEX( cSign ) = "21" ASC( cSign ) = 33 STRTOHEX( cSign ) = "22" ASC( cSign ) = 34 STRTOHEX( cSign ) = "23" ASC( cSign ) = 35 STRTOHEX( cSign ) = "24" ASC( cSign ) ...

hi, When you use these functions directly on your DBF, it fails. That should be expected. Reason: As I said earlier, converting only the 7 umlaut characters is NOT enough at all. This kind of conversion, we need to do for all accented characters of German language. That is the reason I requested you...

YES this "seems" to work, no Error in LOG :D but when try to open Excel Sheet i got Warning and all Type "C" are empty ... :shock: This is the test I made. #include "fivewin.ch"function Main()   local cOemHex  := "8494818E999AE1"   local cOemText, c, ...

... .AND. !EMPTY( cText2 )                        oXlsx:Say( nRow, nCol, cText2 )                     ENDIF                  CASE IsUTF8( xValue )                     fwlog "IsUTF8"                     oXlsx:Say( nRow, nCol, xValue )                  OTHERWISE  ...

hi, Suggested: OEM -> ANSI -> UTF8 So we can use: UTF16toUTF8( strToWide( UML_OEMTOANSI( fieldGet( n ) ) ) ) Please use UML_OEMTOANSI() but not OemToAnsi() YES this "seems" to work, no Error in LOG :D but when try to open Excel Sheet i got Warning and ...

Next point, in the next Version, FWH will be providing DBFTOXLSX using DrXlsx. This function will automatically take care of ANSI to UTF8 conversion.

We can also make all this in a single function.
For that can you provide me a list of ALL accented characters in German language?
Not only the 7 chars. We need all chars.
For example, there are other chars like: Ûúùõòóô, etc.

i like to get a working Excel Sheet with German "Umlaute" using DrXlsx Suggested: OEM -> ANSI -> UTF8 For ansi to utf8 UTF16toUTF8( strToWide( cAnsi ) ) So we can use: UTF16toUTF8( strToWide( UML_OEMTOANSI( fieldGet( n ) ) ) ) Please u...

hi, thx for your Sample i have try OemToAnsi() before and now also UML_OemToAnsi() ... but this is not the Problem i have disable *   hb_LangSelect( cLangCode )*   hb_cdpSelect( cCodepage )*   FW_SetUnicode( .T. )USE (cDBF)  // CODEPAGE cCodepage EXCLUSIVE now please ...

Another way to convert Umlaut OEM to ANSI and UTF8 #include "fivewin.ch"function Main()   local cOemHex  :=  "8494818E999AE1"   loCAL cOemText := HEXTOSTR( cOemHex )   local cAnsiText, cUtf8Text   cAnsiText   ...

I made a simple test by first creating a small dbf with 2 fields and 10 records all containing random OEM strings of Umlauts. This is the code:    field FLD1, FLD2   local aoem  := { "84", "94", "81", "8E", "99", "9A", "E1" &...

Code: Select all  Expand view

OemToAnsi( cOem ) --> cAnsi

seems to function perfectly and much simpler to use.

We can also convert from Ansi to Utf8 as explained earlier