lire fichier text

Question

vlad2i si tu lit ceci
tu peux m'aider aussi dans le sans contraire svp
pour lire le fichier 
Open "c:\agenda electronique\agenda_database.txt" For Input As #1
i = 0
Do Until EOF(1)
ReDim Preserve lecteur(i)
Line Input #1, lecteur(i)
i = i + 1
Loop
comment faire pour qu'il lise les lignes 
si dans mon fichier text il y a par exemple

toto
tototo
totototo
petiflamand
ect

vlad2i · Answer

Je te lis... je te lis :)

Ce que tu veux, c'est lire des lignes ?

Avec ta méthode me semble-t-il ca marche, non ?

Chaque ligne est dans lecteur(numéroligne)
dans ton exemple, lecteur(0) toto; lecteur(1) tototo 
non ?

Vlad

petiflamand · Answer

oui sa marche mais quand il lit il prend 35 caractere
et nom le nombre de caractere quen forma les mots

vlad2i · Answer

Alors, dans ce cas, tu peux essayer ce code :

Dim Lignes() As String

Open "Monfichier.txt" For Input Access Read as #1

I = 0

While not eof(1)

     redim preserve (lignes (I))
     line input #1, lignes(I)

Wend

Close #1

Dans ce cas là, tu n'auras pas les 35 caractères, mais juste ceux contenus dans la ligne

petiflamand · Answer

ok vlad2I sa marche

j suis arriver j'ai encore une question si tu peu mexpliquer comment marche
le crollbar avec un exemple svp
et puis j'arrette de t'ennuyer
Merci d'avance

vlad2i · Answer

Tu ne m'ennuyes jamais :p

le scrollbar, avec un exemple .. OK

tu places un scrollbar, tu met ses propriétés Value, Min et Max aux valeurs que tu veux (par exemple, et respectivement : 0, 0, 100)

puis, dans l'évenement

Private Sub ScrollBar1_Change()
    Me.Caption = ScrollBar1.Value
End Sub

le titre de ta form sera du nombre choisi dans le scrollbar (entre 0 et 100)

Je pense que ca répond à ta question :)

Lire fichier text

5 réponses

Discussions similaires