mod harbour multilanguage form
Posted: Fri May 22, 2020 9:55 am
FiveTech Software tech support forums
www.FiveTechSoft.com
https://fivetechsoft.com/forums/
mod harbour multilanguage form
Page 1 of 1
Re: mod harbour multilanguage form
Posted: Fri May 22, 2020 5:10 pm
Otto,
very very nice.
very very nice.
Re: mod harbour multilanguage form
Posted: Fri May 22, 2020 6:56 pm
Hello Massimo,
I see that I have to extend my convertumlaute - Funktion for Italian.
Best regards. I hope I see you soon.
Best regards,
Otto
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,
Otto