Codepage, hb_Translate(), OEM <-> ANSI

[mol]

if substr(cText_Path, -1) <> "\"
cText_Path += "\"
endif

[jozef]

Hi Jimmy,
I started to move from ANSI version to UNICODE version of HMG. Your convert program is very usefull.
Thank you,
Jozef

[AUGE_OHR]

hi,

here full Source of App

CONVERT_Source.ZIP

(23.99 KiB) Downloaded 14 times

[franco]

You could put it ahead of the extra procedure.

Code: Select all

  cDir := GetFolder( cTitle, TRIM( cInitPath ),, lNewFolderButton )
   IF !EMPTY( cDir )
       IF RAT( "\", cDir ) <> LEN(cDir)
                 cDir += "\"
       ENDIF
      ExportDbf.Text_Path.value := cDir                                //+ "\"  // add "\"
   ENDIF