J'utilise la procédure suivant pour lire un fichier texte.
Dim MonFichier As FileStream = New FileStream(sFileName, FileMode.Open,
FileAccess.Read, FileShare.Read)
Dim MonLecteur As StreamReader = New StreamReader(MonFichier)
'on récupére les contrôles dans le tableau tabLigne
ligne = MonLecteur.ReadToEnd
Si je fais un debug.print ligne, je me rends compte que j'ai perdu tous les
caractères accentués !
Comment remédier à cela ??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques
Bonjour,
Si vous avez le même problème , sachez qu'il faut utiliser l'encodage UTF-7 ou Defaut pour voir les caractères accentués lors de la création du StreanReader :
Dim MonLecteur As StreamReader = New StreamReader(MonFichier, System.Text.Encoding.Default) ou Dim MonLecteur As StreamReader = New StreamReader(MonFichier, System.Text.Encoding.UTF7)
en tout cas cela a résolu le problème d'accents !
Jacques
"Jacques" a écrit dans le message de news:
Bonjour,
J'utilise la procédure suivant pour lire un fichier texte.
Dim MonFichier As FileStream = New FileStream(sFileName, FileMode.Open, FileAccess.Read, FileShare.Read) Dim MonLecteur As StreamReader = New StreamReader(MonFichier)
'on récupére les contrôles dans le tableau tabLigne ligne = MonLecteur.ReadToEnd
Si je fais un debug.print ligne, je me rends compte que j'ai perdu tous
les
caractères accentués ! Comment remédier à cela ??
Merci de vos réponses
Jacques
Bonjour,
Si vous avez le même problème , sachez qu'il faut utiliser l'encodage UTF-7
ou Defaut pour voir les caractères accentués
lors de la création du StreanReader :
Dim MonLecteur As StreamReader = New StreamReader(MonFichier,
System.Text.Encoding.Default)
ou
Dim MonLecteur As StreamReader = New StreamReader(MonFichier,
System.Text.Encoding.UTF7)
en tout cas cela a résolu le problème d'accents !
Jacques
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news:
uolLsSaFHHA.1248@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'utilise la procédure suivant pour lire un fichier texte.
Dim MonFichier As FileStream = New FileStream(sFileName, FileMode.Open,
FileAccess.Read, FileShare.Read)
Dim MonLecteur As StreamReader = New StreamReader(MonFichier)
'on récupére les contrôles dans le tableau tabLigne
ligne = MonLecteur.ReadToEnd
Si je fais un debug.print ligne, je me rends compte que j'ai perdu tous
Si vous avez le même problème , sachez qu'il faut utiliser l'encodage UTF-7 ou Defaut pour voir les caractères accentués lors de la création du StreanReader :
Dim MonLecteur As StreamReader = New StreamReader(MonFichier, System.Text.Encoding.Default) ou Dim MonLecteur As StreamReader = New StreamReader(MonFichier, System.Text.Encoding.UTF7)
en tout cas cela a résolu le problème d'accents !
Jacques
"Jacques" a écrit dans le message de news:
Bonjour,
J'utilise la procédure suivant pour lire un fichier texte.
Dim MonFichier As FileStream = New FileStream(sFileName, FileMode.Open, FileAccess.Read, FileShare.Read) Dim MonLecteur As StreamReader = New StreamReader(MonFichier)
'on récupére les contrôles dans le tableau tabLigne ligne = MonLecteur.ReadToEnd
Si je fais un debug.print ligne, je me rends compte que j'ai perdu tous
les
caractères accentués ! Comment remédier à cela ??
Merci de vos réponses
Jacques
Jacques
RE bonjour,
Cela n'a pas vraient résolu le problème ... :-(
J'ai encore des signes cabalistiques comme ceux-ci
Si vous avez le même problème , sachez qu'il faut utiliser l'encodage
UTF-7
ou Defaut pour voir les caractères accentués lors de la création du StreanReader :
Dim MonLecteur As StreamReader = New StreamReader(MonFichier, System.Text.Encoding.Default) ou Dim MonLecteur As StreamReader = New StreamReader(MonFichier, System.Text.Encoding.UTF7)
en tout cas cela a résolu le problème d'accents !
Jacques
"Jacques" a écrit dans le message de news:
> Bonjour, > > J'utilise la procédure suivant pour lire un fichier texte. > > Dim MonFichier As FileStream = New FileStream(sFileName, FileMode.Open, > FileAccess.Read, FileShare.Read) > Dim MonLecteur As StreamReader = New StreamReader(MonFichier) > > 'on récupére les contrôles dans le tableau tabLigne > ligne = MonLecteur.ReadToEnd > > Si je fais un debug.print ligne, je me rends compte que j'ai perdu tous les > caractères accentués ! > Comment remédier à cela ?? > > Merci de vos réponses > > > Jacques > >
RE bonjour,
Cela n'a pas vraient résolu le problème ... :-(
J'ai encore des signes cabalistiques comme ceux-ci
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news:
eqQKg3hFHHA.2268@TK2MSFTNGP06.phx.gbl...
Bonjour,
Si vous avez le même problème , sachez qu'il faut utiliser l'encodage
UTF-7
ou Defaut pour voir les caractères accentués
lors de la création du StreanReader :
Dim MonLecteur As StreamReader = New StreamReader(MonFichier,
System.Text.Encoding.Default)
ou
Dim MonLecteur As StreamReader = New StreamReader(MonFichier,
System.Text.Encoding.UTF7)
en tout cas cela a résolu le problème d'accents !
Jacques
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news:
uolLsSaFHHA.1248@TK2MSFTNGP03.phx.gbl...
> Bonjour,
>
> J'utilise la procédure suivant pour lire un fichier texte.
>
> Dim MonFichier As FileStream = New FileStream(sFileName, FileMode.Open,
> FileAccess.Read, FileShare.Read)
> Dim MonLecteur As StreamReader = New StreamReader(MonFichier)
>
> 'on récupére les contrôles dans le tableau tabLigne
> ligne = MonLecteur.ReadToEnd
>
> Si je fais un debug.print ligne, je me rends compte que j'ai perdu tous
les
> caractères accentués !
> Comment remédier à cela ??
>
> Merci de vos réponses
>
>
> Jacques
>
>
Si vous avez le même problème , sachez qu'il faut utiliser l'encodage
UTF-7
ou Defaut pour voir les caractères accentués lors de la création du StreanReader :
Dim MonLecteur As StreamReader = New StreamReader(MonFichier, System.Text.Encoding.Default) ou Dim MonLecteur As StreamReader = New StreamReader(MonFichier, System.Text.Encoding.UTF7)
en tout cas cela a résolu le problème d'accents !
Jacques
"Jacques" a écrit dans le message de news:
> Bonjour, > > J'utilise la procédure suivant pour lire un fichier texte. > > Dim MonFichier As FileStream = New FileStream(sFileName, FileMode.Open, > FileAccess.Read, FileShare.Read) > Dim MonLecteur As StreamReader = New StreamReader(MonFichier) > > 'on récupére les contrôles dans le tableau tabLigne > ligne = MonLecteur.ReadToEnd > > Si je fais un debug.print ligne, je me rends compte que j'ai perdu tous les > caractères accentués ! > Comment remédier à cela ?? > > Merci de vos réponses > > > Jacques > >
