OVH Cloud OVH Cloud

Insérer fichier texte...(mumu)

3 réponses
Avatar
Doft
Merci mumu pour votre r=E9ponse!

Encore un petit probl=E8me concernant l'insertion du texte=20
d'un fichier dans un champs m=E9mo.

Dans mon fichier texte j'ai des saut de=20
lignes...j'aimerais que le texte apparaisse =E9galement avec=20
des sauts de ligne une fois ins=E9r=E9 dans mon champ m=E9mo...

J'ai essay=E9 de rajouter un chr(10) mais ceci me fais un=20
symbole bizzare et non un saut de ligne


Open "C:\aaa.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, LeTexte
TexteInserer =3D TexteInserer + LeTexte + Chr(10)
Loop

Quelqu'un a-til une solution?

Merci=20
Doft

3 réponses

Avatar
Raymond
Bonjour.

insérer chr(13) & chr(10)
TexteInserer & LeTexte & chr(13) & chr(10)

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventionssur MPFA


"Doft" a écrit dans le message de
news:097601c3a52e$cf3d8520$
Merci mumu pour votre réponse!

Encore un petit problème concernant l'insertion du texte
d'un fichier dans un champs mémo.

Dans mon fichier texte j'ai des saut de
lignes...j'aimerais que le texte apparaisse également avec
des sauts de ligne une fois inséré dans mon champ mémo...

J'ai essayé de rajouter un chr(10) mais ceci me fais un
symbole bizzare et non un saut de ligne


Open "C:aaa.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, LeTexte
TexteInserer = TexteInserer + LeTexte + Chr(10)
Loop

Quelqu'un a-til une solution?

Merci
Doft
Avatar
Doft
Merci beaucoup!!! tout est OK!!!
Avatar
mumu
;) Raymond a repondu avant moi
mumu



-----Message d'origine-----
Merci mumu pour votre réponse!

Encore un petit problème concernant l'insertion du texte
d'un fichier dans un champs mémo.

Dans mon fichier texte j'ai des saut de
lignes...j'aimerais que le texte apparaisse également
avec

des sauts de ligne une fois inséré dans mon champ mémo...

J'ai essayé de rajouter un chr(10) mais ceci me fais un
symbole bizzare et non un saut de ligne


Open "C:aaa.txt" For Input As #1

Do While Not EOF(1)
Line Input #1, LeTexte
TexteInserer = TexteInserer + LeTexte + Chr(10)
Loop

Quelqu'un a-til une solution?

Merci
Doft
.