OVH Cloud OVH Cloud

Insérer contenu fichier texte

2 réponses
Avatar
Doft
Bonjour,

J'aimerais pouvoir r=E9cup=E9rer le contenu d'un fichier texte=20
puis l'ins=E9rer dans un champs M=E9mo d'un formulaire...tout=20
cela par un click sur un bouton du formulaire.

J'ai r=E9cup=E9rer la fonction "ouverture document" de
http://access.seneque.free.fr/ouverture_document.htm

La fonction me donne le chemin d'acc=E8s et le nom du=20
fichier dans une bo=EEte de dialogue...
Comment r=E9cup=E9rer le texte du fichier et l'inscrire dans=20
un champs par la suite??

Merci beaucoup!

Doft

2 réponses

Avatar
mumu
bonjour,

Open "adresse de ton fichier texte" For Input As #1
Do While Not EOF(1)
Line Input #1, chX
ici tu stock ta ligne (chX) quelque part
soit dans un tableau mais faut le construire avant
soit dans une table

Loop
ensuite tu as tout ton fichier dans la table ou le tableau
il te reste a le renvoyer dans ton champ memo

ou alors tu as aussi la fonction
TransferText
qui stock directement tout ton texte dans une table
faut lui donner les parametres d'importation avant (la
structure de ton texte)

voila je sais pas si j'ai été bien claire
mumu

-----Message d'origine-----
Bonjour,

J'aimerais pouvoir récupérer le contenu d'un fichier
texte

puis l'insérer dans un champs Mémo d'un
formulaire...tout

cela par un click sur un bouton du formulaire.

J'ai récupérer la fonction "ouverture document" de
http://access.seneque.free.fr/ouverture_document.htm

La fonction me donne le chemin d'accès et le nom du
fichier dans une boîte de dialogue...
Comment récupérer le texte du fichier et l'inscrire dans
un champs par la suite??

Merci beaucoup!

Doft
.



Avatar
Doft
Merci!!
Cela fonctionne à merveille...
Mais ne saurais-tu pas comment faire pour qu'il
reconnaisse également les sauts de ligne?
J'ai essayé ceci:

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

Mais le Chr(10) me fait des caractères bizarres dans mon
champs mémo mais ne fait pas de retour à la ligne...

Merci!!

DOft