Discussion :

[Ted37]

Bonjour,

J'ai un problème (normal, si je viens vers vous ;-)).
J'ai n fixhiers txt dans un répertoire et je veux récupérer seulement 3 lignes de ces fichiers txt (toujours placer au même endroit).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Open resultat For Output As #1
 
Do While Not EOF(1)
 
    Line Input #1, laligne
    position_nom = InStr(1, laligne, "Files: (", vbTextCompare)
    If position_nom > 0 Then
    T = Mid(laligne, position_pixel + 2, 14)
    position_lowerleft = InStr(1, laligne, "Lower Left (", vbTextCompare)
    T1 = Mid(laligne, position_lowerleft + 30, 31)
    position_upperright = InStr(1, laligne, "Upper Right (", vbTextCompare)
    T2 = Mid(laligne, position_upperright + 31, 30)
 
    Exit Do
    End If
 
Loop
 
 
Close #1

Je sais qu'un code de ce type est capable de récupérer les valeurs d'un fichier, mais comment lui dire d'écrire dans un fichier résultat pour chaque fichier txt rencontré.

d'avance merci, en espérant avoir été clair

[PPz78]

Il faut :
- créer une nouvelle feuille
- lui donner un nom
- copier les info ad hoc dans le fichier
- les sauver
- passer au fichier texte suivant.

Et l'affaire est dans le sac