Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Problema caratteri speciali su xml

59 views
Skip to first unread message

Sabrina Levanti

unread,
Dec 18, 2020, 4:41:55 AM12/18/20
to
Buongiorno a tutti,
sono finalmente riuscita a creare la fattura elettronica in xlm dal mio gestionale, fatto come progetto adp svilupato con access 2003 collegato a un db SQL server 2008.
Su fatture dove non ci sono caratteri speciali nessun problema, il problema nasce quando su una fattura nel campo descrizione l'utente mi scrive ° simbolo di grado.
Nell'xml viene xB0 e chiaramente il sistema rigetta la fattura.
Qualcuno ha avuto lo stesso problema?
Ho provato con varie soluzioni ma l'unica che funziona è rimuovere i caratteri speciali, ma non mi piace.
Grazie per chi vorrà darmi un suggerimento

BFS

unread,
Dec 18, 2020, 4:48:33 AM12/18/20
to
devi ovviamente sostituire tutti caratteri non consentiti nel xml

cercati la discussione con oggetto
Lettura caratteri accentati e apostrofo

di qualche giorno fa
come scritto in quella discussione io faccio così:

io ho risolto creandomi una tabella con due colonne
carattere non ammesso (col1) e
sostituisci con (col2)

popolata tipo
col1 col2
© ©
& &
Ø Ø

all'avvio del programma me la carico in una matrice chiamata
xmlNonConsentiti(col1,col2)

in fase di creazione del file, quando scrivo una stringa eseguo una
serie di replace di tutti i caratteri trovati appartenenti alla matrice


ho creato a tale scopo una funzione che qui te la semplifico

Private Function Pulisci(testo As String) As String
Dim I As Integer
For I = 0 To 50

testo = Replace(testo, xmlNonConsentiti(I, 0), xmlNonConsentiti(I, 1))
Next I

Pulisci = testo
End Function


quindi quando vado a scrivere stringhe nel l'xml faccio cosi :

Print #1, "<Nome>" & Pulisci(......)) & "</Nome>"


la tabella dei caratteri non consentiti è gia compilata ma può
gestirsela l'operatore aggiungendo altri simboli a piacere

ciao
BFS

Sabrina Levanti

unread,
Dec 18, 2020, 5:23:26 AM12/18/20
to
Ciao grazie per la risposta, ho provato ma forse sbaglio qualcosa perchè scrivendo:
desc1 = Replace(RTrim(rec![DESCRIZIONE]), "°", Me!Testo112)
Print #3, " <Descrizione>" & desc1 & "</Descrizione>"

Dove nel campo Testo 112 ho inserito il valore: &#176;
ottengo nella stringa
Curve 45&#176;

Grazie forse sbaglio nel formato del testo da sostituire?

BFS

unread,
Dec 18, 2020, 5:52:13 AM12/18/20
to
Il 18/12/2020 11:23, Sabrina Levanti ha scritto:
> Il giorno venerdì 18 dicembre 2020 alle 10:48:33 UTC+1 BFS ha scritto:

> Curve 45&#176;
>

giusto
se apri il file con il notepad dovresti trovarti
<Descrizione> Curve 45&#176; </Descrizione>
se apri il file xml con un browser dovresti trovarti Curve 45°

ciao

BFS

unread,
Dec 18, 2020, 5:56:05 AM12/18/20
to

Sabrina Levanti

unread,
Dec 18, 2020, 6:13:09 AM12/18/20
to
Grazie perfetto ho capito.
0 new messages