1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| function fEncod_process(obj)
affichage = obj
if instr(1,affichage,"encoding",1)>0 then
affichage=replace(affichage,"UTF-16","ISO-8859-1")
affichage=replace(affichage,"UTF-8","ISO-8859-1")
elseif instr(1,affichage,"ENCODING",1)>0 then
affichage=replace(affichage,"UTF-16","ISO-8859-1")
affichage=replace(affichage,"UTF-8","ISO-8859-1")
elseif instr(1,affichage,"version='1.0'",1)>0 then
affichage=replace(affichage,"<?xml version='1.0'?>","<?xml version='1.0' encoding='ISO-8859-1' ?>")
else
affichage=replace(affichage,"<?xml version=""1.0""?>","<?xml version='1.0' encoding='ISO-8859-1' ?>")
end if
fEncod_process = affichage
end function |
Partager