Page 1 of 1

mod harbour multilanguage form

Posted: Fri May 22, 2020 9:55 am
by Otto
Image
Image
Image
Image

Re: mod harbour multilanguage form

Posted: Fri May 22, 2020 5:10 pm
by Massimo Linossi
Otto,
very very nice.

Re: mod harbour multilanguage form

Posted: Fri May 22, 2020 6:56 pm
by Otto
Hello Massimo,
I see that I have to extend my convertumlaute - Funktion for Italian.

Code: Select all

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


Image