nid69ita ha scritto:
Chissà se accettano un encoding diverso.
Io per tagliare la testa al toro, già con le fatture PA XML, descrioni di righe, ragioni sociali, etc. ammazzo i caratteri che possono dare fastidio, funzione alla Vb6, una robaccia così:
Function NoChrXML(p_Str As Variant) As Variant
NoChrXML = p_Str
If IsNull(p_Str) Then Exit Function
NoChrXML = Replace$(NoChrXML, "<", " ")
NoChrXML = Replace$(NoChrXML, ">", " ")
NoChrXML = Replace$(NoChrXML, "'", "")
NoChrXML = Replace$(NoChrXML, """", "")
NoChrXML = Replace$(NoChrXML, "&", " ")
NoChrXML = Replace$(NoChrXML, "À", "A")
NoChrXML = Replace$(NoChrXML, "É", "E")
NoChrXML = Replace$(NoChrXML, "Í", "I")
NoChrXML = Replace$(NoChrXML, "Ò", "O")
NoChrXML = Replace$(NoChrXML, "Ú", "U")
NoChrXML = Replace$(NoChrXML, "à", "a")
NoChrXML = Replace$(NoChrXML, "é", "e")
NoChrXML = Replace$(NoChrXML, "è", "e")
NoChrXML = Replace$(NoChrXML, "í", "i")
NoChrXML = Replace$(NoChrXML, "ì", "i")
NoChrXML = Replace$(NoChrXML, "ò", "o")
NoChrXML = Replace$(NoChrXML, "ó", "o")
NoChrXML = Replace$(NoChrXML, "ù", "u")
NoChrXML = Replace$(NoChrXML, "ú", "u")
NoChrXML = Replace$(NoChrXML, "§", " ")
NoChrXML = Replace$(NoChrXML, Chr$(13), "")
NoChrXML = Replace$(NoChrXML, Chr$(10), "")
Dim i As Integer, l As Integer
l = Len(NoChrXML)
For i = 1 To l ' se ascii >125, sostituisco con spazio
If Asc(Mid$(NoChrXML, i, 1)) > 125 Then
Mid$(NoChrXML, i, 1) = " "
End If
Next i
NoChrXML = UCase$(NoChrXML)
End Function
Potrebbe essere un'idea. Io ho optato per un'altra soluzione. Trasformo i caratteri "strani" in modo che non diano problemi in XML.
Ad es° sostituisco "ì" con "ì", "ç" con "ç" e così via. Aprendo il file XML così trasformato con il browser non mi restituisce errori. Speriamo che anche il software di controllo non si arrabbi.