mod harbour multilanguage form

[Otto]

[Massimo Linossi]

Otto,
very very nice.

[Otto]

Hello Massimo,
I see that I have to extend my convertumlaute - Funktion for Italian.

Code: Select all  Expand view  RUN

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