Ouvrir un fichier txt à partir un bouton de comande

zazsze Messages postés 54 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 15 août 2007 - 30 déc. 2002 à 23:40
cs_psycho Messages postés 232 Date d'inscription samedi 11 mai 2002 Statut Membre Dernière intervention 27 octobre 2007 - 30 déc. 2002 à 23:55
J'ai créé une feuille FORM sur laquelle j'ai placé un bouton de commande et une TEXTBOX. Je voudrai qu'en cliquant sur ce bouton, mon fichier texte (c:\note.txt) s'ouvre dans ma TEXTBOX. Pouvez-vous me dire quelles sont les lignes de commande à écrire. Merci

1 réponse

cs_psycho Messages postés 232 Date d'inscription samedi 11 mai 2002 Statut Membre Dernière intervention 27 octobre 2007
30 déc. 2002 à 23:55
alors pour ca, il faut faire:
dim ligne as string
open "c:\note.txt" for input as #1
do while not eof(1)
line input #1,ligne
textbox.text=textbox.text & ligne
loop
close #1

open ouvre le fichier(close ben, il le ferme), et on attribue au fichier ouvert un numero(regarde l aide pour plus d info)
eof correspond au end of file(fin de fichier)
line input permet d obtenir la ligne du fichier lu
on concatene ligne a ligne ...et le tour est joué!

voila
++
psycho :-p
0
Rejoignez-nous