fichiertexte

Question

bonjour, j'aimerai copier le contenu d'un fichier texte dans une textbox (en vb6) mai je c'est pas comment faire... 
merci

cs_CanisLupus · Answer

Salut
Si ton fichier n'est pas trop gros, tu peux utiliser :

Dim NumFic As Integer
NumFic = FreeFile

Text1.Multiline = True

Open TonFichier For Input As #1

Text1.Text = Input(LOF(1), #1)

Close #1


Cordialement, CanisLupus

cs_CanisLupus · Answer

Oups, error

Dim NumFic As Integer
NumFic = FreeFile

Text1.Multiline = True
Open "c:	emp\essai.txt" For Input As #NumFic 

Text1.Text = Input(LOF(1), #NumFic )

Close #NumFic 


Cordialement, CanisLupus

cs_zeboss · Answer

quand j'execute le prog il y a une erreur : "Impossible d'affecter à une propriété en lecture seule" (il me surligue : .MultiLine = )...

econs · Answer

Il faut que Text1  soit une TextBox, et à partir de là, Text1.MultiLine = True ne doit pas poser de problème ....

Manu

econs · Answer

Je viens de faire le test, et effectivement, tu ne peux pas le faire par code.

Il faut donc que tu sélectionnes ta TextBox sur ta feuille, que tu changes "à la main" la propriété MultiLine à True dans la fenêtre des propriétés, et ensuite, tu recopies le code de CanisLupus.


Dim NumFic As Integer
NumFic = FreeFile

Open "c:	emp\essai.txt" For Input As #NumFic

Text1.Text = Input(LOF(1), #NumFic )

Close #NumFic 


Manu

cs_zeboss · Answer

merci les gars c'est exacctement ce que je cherché  8-) ...
dsl g une autre question: la dans cet exemple on peut écrire le contenu que du fichier "c:	emp\essai.txt". comment on fait pour selectionner le fichier qu'on dans le disque dur?

Fichiertexte

6 réponses