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

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

Path	csiph.com!aioe.org!.POSTED!not-for-mail
From	"Sauro" <vicchi@crsscala.it>
Newsgroups	it.comp.lang.visual-basic
Subject	Re: [OT] file XML e caratteri "speciali"
Date	Wed, 18 May 2016 23:06:58 +0200
Organization	Aioe.org NNTP Server
Lines	60
Message-ID	<nhilhe$1a5b$1@gioia.aioe.org> (permalink)
References	<nh337m$1iol$1@gioia.aioe.org> <1qbss6cykyztt$.z3peezv1lchx.dlg@40tude.net> <nhho7e$1ooa$1@gioia.aioe.org> <0kqojb1ahtpju1ra8dh2fn5mjlorle7tbh@4ax.com>
NNTP-Posting-Host	tQu4DD9AKW1ioicGjEgBrg.user.gioia.aioe.org
X-Complaints-To	abuse@aioe.org
X-Notice	Filtered by postfilter v. 0.8.2
X-Newsreader	Microsoft Outlook Express 6.00.2900.5931
X-MSMail-Priority	Normal
X-RFC2646	Format=Flowed; Original
X-Priority	3
X-MimeOLE	Produced By Microsoft MimeOLE V6.00.2900.6157
Xref	csiph.com it.comp.lang.visual-basic:18810

Show key headers only | View raw

"SB"  ha scritto nel messaggio
>>
>>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
>
> In pratica vai a sostiture al carattere il valore ASCII
>
> Potresti generalizzare la funzione:
>
> Function Testo_XML (ByVal Ch As String) As String
>
>   Testo_XML = Replace(Testo_XML, Ch, Chr(38) & "#" & Cstr (Asc(Ch)) &";" )
>
> End Function
>
> Testo1 = Testo_XML(Testo1, "ù")
>
>
> Non l'ho provata, è solo per darti uno spunto

Scusa Stefano ma forse non hai centrato il problema
al di là del fatto che la mia funzione possa essere
scritta meglio.

1) XML rifiuta un certo numero di caratteri che, se presenti,
     vanno "mascherati" nel modo che abbiamo visto

2) Il carattere ° (gradi) non fa parte di questa serie di caratteri

3) Usando nel progetto vb6 il riferimento:
Microsoft XML, v6.0
e quindi:
Public xDOC As MSXML2.DOMDocument
Set xDOC = New MSXML2.DOMDocument
If xDOC.Load(XMLnomeFile) Then
    'Va bene
Else
    'Da errore se è presente il carattere ° nel file
End If

4) come si spiega?


Ciao Stefano
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