Newsgroup: it.comp.appl.access
Titolo: Lettura caratteri accentati e apostrofo

Ciao a tutti,
Ho una problematica sicuramente banale che non risolvo.
In campo testo che chiamerò "Descrizione", quando vengono inserite delle parole con gli accenti o con l'apostrofo durante l'elaborazione in VBA mi vengono segnalati degli errori di "non riconoscimento"  caratteri.
Se non sbaglio la funzione Chr dovrebbe risolvere i miei problemi, non saprei però come applicarla con l'abbinamento dei vari codici Ascii alla mia "stringhetta" di codice che vi giro :
 Print #1, "<Descrizione>" & MioRS!descrizione & "</Descrizione>";
Aspetto dei vostri preziosi consigli in merito
Grazie in anticipo
Dino

 
prova con: 
 Print #1, "<Descrizione>" & chr(34) & MioRS!descrizione & chr(34) "</Descrizione>"; 


Grazie mille, provo e ti faccio sapere.
Il chr(34) "dovrebbbe" in generale coprire apostrofo, caratteri accentati e similari?
Grazie ancora


è praticamente il doppio apice, la stringa ivi contenuta viene importata insieme a tutti gli apici singoli (che sono i tradizionali delimitatori di testo)
per gli accenti non credo tu abbia problemi, la rogna è sempre l'apice singolo
m


Grazie ancora per la risposta,
a dir la verità ho avuto molte “rogne” anche con il carattere che rappresenta il grado °, so che c’è un carattere Ascii associabile alla funzione Chr (forse il 39 ma no sono sicuro), ma qualora volessi evitare problematiche anche con questo carattere come potrei aggiungerlo????
Altra domanda si potrebbe sopperire a queste problematiche anche con la funzione REPLACE???
Grazie ancora per i “preziosi” consigli” e soprattutto per la pazienza nel rispondermi
Dino



credo tu stia affrontando il problema delle stringhe nella fattura 
elettronica
dove molti caratteri non sono accettati
 
io ho risolto creandomi una tabella con due colonne
carattere non ammesso (col1) e
sostituisci con (col2)
 
popolata tipo
col1	col2
© 	&#169;
&	&amp;
Ø	&#216;
 
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
 
 
 
 
 
 
 
 
 
 
 


Grazie mille BFS per la risposta "Molto" dettagliata", hai colpito nel segno, trattasi di fattura elettronica.
Provo e ti faccio sapere.
Grazie ancora


Buongiorno a tutti e scusate per il ritardo nella risposta, ma ho avuto come dire, problematiche di "logistica".
Ho provato la soluzione di Ciroteo (che ringrazio) e funziona perfettamente, ovviamente solo con caratteri apici e doppi apici.
Ho implementato la soluzione di BFS (che ringrazio) che devo ancora "sistemare", ma son sicuro che funzionerà perfettamente.
quindi per seguire le regole del forum, possiamo ritenere chiuso (con soddisfazione) questo post.
Grazie ancora e Buon Natale atutti