Path: csiph.com!aioe.org!.POSTED!not-for-mail
From: "Sauro" <vicchi@crsscala.it>
Newsgroups: it.comp.lang.visual-basic
Subject: Re: [ot] fatturazione elettronica
Date: Sun, 14 Oct 2018 16:09:11 +0200
Organization: Aioe.org NNTP Server
Lines: 55
Message-ID: <ppvim8$5ht$1@gioia.aioe.org>
References: <pp4iar$83s$1@gioia.aioe.org> <mfr6sekanb40$.u8n7c6ul1wxj.dlg@40tude.net> <ppg2u5$1gad$1@gioia.aioe.org> <1p24efg193wla.wxokkvf9xg7h$.dlg@40tude.net> <ppk9e8$570$1@gioia.aioe.org> <1fvvs6dcqhxbf$.17c14wu5gitj3$.dlg@40tude.net> <pputor$2d5p$1@adenine.netfront.net>
NNTP-Posting-Host: J+AoS2Bk9xmnPY6JVi++4Q.user.gioia.aioe.org
X-Complaints-To: abuse@aioe.org
X-Notice: Filtered by postfilter v. 0.8.3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.5931
X-Priority: 3
X-RFC2646: Format=Flowed; Response
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.6157
Xref: csiph.com it.comp.lang.visual-basic:19453

[cut]

> Quoto.
> In particolare faccio osservare che gli elementi XML "vuoti"
> non devono essere scritti.
> Es: il CAP non e' obbligatorio.
> Se il cap vale  20100  va scritto:
> <CAP>20100</CAP>
> ma se non e' presente, manca, non si puo' scrivere
> <CAP></CAP>.
> Questo complica abbastanza la tecnica del replace.

Questo non sarebbe un probleme insormontabile.
Premesso che io tengo il "File origine" indentato sarebbe
sufficiente ripassare il testo dopo che sono stati fatti
tutti i replace ed eliminare le righe che si trovano nella
situazione di cui sopra.

Ho un altro dubbio.
In fondo ho aggiunto una funzione che utilizzo per modificare
i caratteri rifiutati da xml (come per esempio & e °) che
potrebbero effettiuvamente essere utilizzati dagli utenti.
Però ho notato che se faccio visualizzare da explorer un
file xml, questo non mi sostituisce &#176; con ° come
mi sarei aspettato.

Voi che ne pensate?

Grazie e saluti.
Sauro


Public Function Testo_Modificato_per_XML(ByVal T As String) As String 
'Aggiunto da me per UTF-8
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;")
T = Replace(T, "°", "&#176;")
T = Replace(T, "£", "&#163;")
T = Replace(T, "?", "&#128;")
T = Replace(T, "ç", "&#231;")
T = Replace(T, "§", "&#167;")
Testo_Modificato_per_XML = T
End Function