FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index mod_harbour mod harbour multilanguage form
Otto
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
mod harbour multilanguage form
Posted: Fri May 22, 2020 09:55 AM



Massimo Linossi
Posts: 512
Joined: Mon Oct 17, 2005 10:38 AM
Re: mod harbour multilanguage form
Posted: Fri May 22, 2020 05:10 PM

Otto,
very very nice.

Otto
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
Re: mod harbour multilanguage form
Posted: Fri May 22, 2020 06:56 PM
Hello Massimo,
I see that I have to extend my convertumlaute - Funktion for Italian.

Code (fw): Select all Collapse
function convertUmlaute( cVData )
    local ctest := ""
    local I := 0
    //for I := 1 to len(cVData)
    //? ( cVData + CRLF + substr(cVData,I,1) + "  #  "+ str( ASC ( substr(cVData,I,1)) ))
    //next
    
    cVData  :=  STRTRAN(cVData, chr(228), "ä"   )
    cVData  :=  STRTRAN(cVData, chr(132), "ä"   )
       
    cVData  :=  STRTRAN(cVData, chr(246), "ö"   )
    cVData  :=  STRTRAN(cVData, chr(148), "ö"   )
   
    cVData  :=  STRTRAN(cVData, chr(252), "ü"   )
    cVData  :=  STRTRAN(cVData, chr(129), "ü"   )
    
    cVData  :=  STRTRAN(cVData, chr(196), "Ä"   )
    cVData  :=  STRTRAN(cVData, chr(142), "Ä"   )
    
    cVData  :=  STRTRAN(cVData, chr(214), "Ö"   )
    cVData  :=  STRTRAN(cVData, chr(153), "Ö"   )
    
    cVData  :=  STRTRAN(cVData, chr(220), "&Ãœuml;" )
    cVData  :=  STRTRAN(cVData, chr(154), "&Ãœuml;" )
    
    cVData  :=  STRTRAN(cVData, chr(223), "ß" )
    cVData  :=  STRTRAN(cVData, chr(225), "ß" )


Best regards. I hope I see you soon.


Best regards,
Otto


Continue the discussion

Static archive · New replies & topics via GitHub Discussions