Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #18806

Re: [OT] file XML e caratteri "speciali"

Show all headers | View raw

"Andrea (Work)" ha scritto nel messaggio.

>> Per l'home banking ho dovuto familiarizzare coi file XML
>> che non conoscevo.
>>
>> Ho capito come trattare le vocali accentate e gli altri caratteri
>> rifiutati da XML come <>&"
>>
>> Mi trovo in difficoltà col carattere ° molto usato (1° rata,
>> 2° rata, eccetera).
>> Non viene dichiarato come carattere da rifiutare ma quando
>> è presente genera errore.
>>
>> Qualcuno ha forse incontrato e risolto questo problema?
>
> Nella mia esperienza si usa qualcosa del genere:
> &  &#38;
> <  &#60;
>>  &#62;
> "  &#34;
> '  &#39;
>
> Per cui
> Azienda Rossi & Figli Srl
> <Nome>Azienda Rossi &#38; Figli Srl</Nome>

Sono d'accordo con te Andrea.
Infatti uso la seguente funzione che gira bene:

Public Function Testo_XML(ByVal T As String) As String
T = Replace(T, "&", "&amp;")
T = Replace(T, "<", "&lt;")
T = Replace(T, ">", "&gt;")
T = Replace(T, Chr$(34), "&quot;")
T = Replace(T, "'", "&apos;")
T = Replace(T, "à", "&#224;")
T = Replace(T, "é", "&#233;")
T = Replace(T, "è", "&#232;")
T = Replace(T, "ì", "&#236;")
T = Replace(T, "ò", "&#242;")
T = Replace(T, "ù", "&#249;")
Testo_XML = T
End Function

Io nel mio progetto VB6 uso il riferimento:
Microsoft XML, v6.0
e quindi:
Public xDOC As MSXML2.DOMDocument
Set xDOC = New MSXML2.DOMDocument
xDOC.validateOnParse = False
'
If xDOC.Load(XMLnomeFile) Then
    'Va bene
Else
   ' The document failed to load.
   Dim strErrText As String
   Dim xPE As MSXML2.IXMLDOMParseError
   ' Obtain the ParseError object
   Set xPE = xDOC.parseError
   With xPE
      strErrText = "Your XML Document failed to load" & _
        "due the following error." & vbCrLf & _
        "Error #: " & .errorCode & ": " & xPE.reason & _
        "Line #: " & .Line & vbCrLf & _
        "Line Position: " & .linepos & vbCrLf & _
        "Position In File: " & .filepos & vbCrLf & _
        "Source Text: " & .srcText & vbCrLf & _
        "Document URL: " & .url
    End With
    MsgBox strErrText, vbExclamation
End If

Il problema nasce appunto quanto è presente
il carattere ° (gradi).
In questo caso il LOAD genera errore e fa riferimento
alla riga in cui è presente il carattere °

Ciao Andrea e grazie.
Sauro 

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

[OT] file XML e caratteri "speciali" "Sauro" <vicchi@crsscala.it> - 2016-05-13 01:22 +0200
  Re: [OT] file XML e caratteri "speciali" "Andrea (Work)" <andrea.isworkDELETEME@gmail.invalid> - 2016-05-18 10:18 +0200
    Re: [OT] file XML e caratteri "speciali" "Sauro" <vicchi@crsscala.it> - 2016-05-18 14:46 +0200
      Re: [OT] file XML e caratteri "speciali" SB <stNOOObenevSPAM@tin.it> - 2016-05-18 15:38 +0200
        Re: [OT] file XML e caratteri "speciali" "Sauro" <vicchi@crsscala.it> - 2016-05-18 23:06 +0200
          Re: [OT] file XML e caratteri "speciali" SB <stNOOObenevSPAM@tin.it> - 2016-05-19 09:13 +0200
            Re: [OT] file XML e caratteri "speciali" "Sauro" <vicchi@crsscala.it> - 2016-05-19 09:23 +0200
            Re: [OT] file XML e caratteri "speciali" "Sauro" <vicchi@crsscala.it> - 2016-05-20 11:12 +0200
    Re: [OT] file XML e caratteri "speciali" "Sauro" <vicchi@crsscala.it> - 2016-05-18 14:53 +0200

csiph-web