Ouvrir un fichier text

Signaler
Messages postés
23
Date d'inscription
samedi 22 septembre 2001
Statut
Membre
Dernière intervention
22 novembre 2008
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
J'éssaye de créer un editeur de texte comme le bloc note de windows mais avec plus de fonctions. J'arrive sans problème à enregistrer dans un fichier mais pas à en ouvrir un pour le copier dans un objet "Text" car comme je le fait, il met tout à la suite sans mise à la ligne.
Commant faire. SVP

Jim462

4 réponses

Messages postés
62
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
27 avril 2003

regarde si ton textbox est multiline et both pour les scroll bar
0
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Il faut également que tu charge ton fichier ligne par ligne avec
Line Input

DARK SIDIOUS
0
Messages postés
94
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
16 avril 2004

il faut que tu lise ton fichier text comme ceci:

dim tout as string
dim lecture as string

open "tonfichier.txt" for input as #1

while not eof(1) 'tant que ce n'est pas la fin du fichier

line input #1, lecture 'on lit la ligne

tout= tout & lecture & vbcrlf ' puis on met tout dans la variable tout et on rajoutte vbcrlf pout le retour a la ligne.

wend

close #1

text1.text=tout

ce n'es pas plus copliqué que ca.
a++
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Ou bien :

Dim c As String * 1
Open "c:\essai.txt" For Random As #1 Len = 1
For i = 1 To LOF(1)
Get 1, i, c
Text1.Text = Text1.Text & c
Next i
Close 1

Les Chr(10) et Chr(13) sont pris en compte (retours à la ligne) si ta TextBox est avec MultiLine = True
0