Discussion :

[Ramdoulou]

Bonsoir

Alors voilà j'ai encore un ptit soucis pour une application.
J'ai une base de donnée .txt où se trouvent des données sous le format d'un chemin + fichier (C:\toto.dll).
Donc a chaque enregistrement, l'application saute une ligne dans la bdd, et rajoute un enregistrement exemple :
C:\toto.dll
C:\123.dll

J'aimerai enfaite que lorsque je clique sur un bouton, que l'application copie un par un les fichiers dont les chemins sont engregistrés dans la bdd et les colle dans un autre repertoire que je définirai moi même.

Pour cela, il faut que je sache comment passer de la ligne 1 (C:\toto.dll) à la ligne 2.

Donc pour que ça se fasse en boucle, il me semble qu'on utilisera soit un timer soit une variable en string...?

Voili voilou, merci d'avance =)

[SfJ5Rpw8]

b'soir,

je suis pas sur d'avoir tout compris.... une lecture ligne à ligne (Line Input #...) de ton fichier texte ne te suffit pas ..?

[Ramdoulou]

Ben ce que je veux réellement enfaite c'est pouvoir récupérer les différentes lignes du fichiers txt en gros.

Line Input ? Comment l'utiliser ? =o

[SfJ5Rpw8]

voilà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim f As Integer
Dim stF As String
f = FreeFile
Open "d:\tmp\scores.txt" For Input As #f
While Not EOF(f)
  Line Input #f, stF
  Debug.Print "Traite Fichier : " & stF
Wend
Close #f

[Ramdoulou]

Merci mais j'ai un ptit probleme

j'ai mis ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim f As Integer
Dim stF As String
f = FreeFile
Open App.Path & "\bdd.dll" For Input As #f
While Not EOF(f)
  Line Input #f, stF
  Debug.Print "Traite Fichier : " & stF
Wend
Close #f
 
tst.Text = tst.Text & vbCrLf & stF

dans un timer.
Mais je n'obtiens que la derniere ligne du fichier txt...=s

[ucfoutu]

Hé bé ...
Tu ne connais apparemment pas le rôle de debug.print !!!!!
allez...remplace donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print "Traite Fichier : " & stF

par ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tst.Text = tst.Text & vbCrLf & stF

et ote cette ligne de là où tu l'a mise !!!

[SfJ5Rpw8]

....

j'ai mis ce code :
....dans un timer.
..

c'est quoi cette histoire de timer ?

[Ramdoulou]

Ok merci bien, donc maintenant que je peux récupérer ça, j'aimerai pouvoir récupérer ligne par ligne pour enfaite faire des étapes.
Par exemple :

Affichage de la 1ere ligne ===> Action à executer
Ensuite
Affichage de la 2eme ligne ===> Action à executer

Et ainsi de suite, c'est ça enfaite que je veux faire...

[SfJ5Rpw8]

et bien il suffit de te placer dans ta boucle remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print "Traite Fichier : " & stF

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

traiteFichier stF

et plus loin crée ta procédure traiteFichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sub TraiteFichier (stF as string)
Debug.Print "Traite Fichier : " & stF
Filecopy stf.....
 
end sub

[Ramdoulou]

Super =D
Merci beaucoup !