Discussion :

[haronas]

Bonjour,

J'ai un fichier texte sous ce format par exemple (lignes aléatoires),
je souhaiterais récupérer à chaque fois les lignes de "RECUPERER" plus les 4 lignes après (il y en a un nombre aléatoire)
Et les noter toutes dans un nouveau fichier texte
Je ne vois pas comment faire

Merci

[umfred]

FileSystemObject + TextStream => lecture ligne par ligne (ReadLine)
https://learn.microsoft.com/en-us/of...extfile-method
https://learn.microsoft.com/en-us/of...eadline-method
Comment tu sais combien de lignes tu dois lire après "RECUPERER" ou quand tu dois arrêter de lire ?

[haronas]

Merci pour la réponse,

Le nombre de ligne après la chaine recherchée est toujours le même et il faut que je le récupère le nombre de fois ou il est dans le fichier
La seule chose qui n'est pas variable dans le fichier texte c'est le bloc de la chaine et les 4 lignes qui suivent. Mais ce bloc peut être présent n fois dans le fichier.
J'avais vu les fonctions InStr pour localiser la chaine et Mid pour récupérer la suite mais je n'arrive pas à les appliquer.

[hackoofr]

Pouvez-vous nous poster un exemple de fichier Input et le résultat attendu de l'output par copier-coller et non pas par capture d'écran

[haronas]

Bonjour,

Voilà les deux fichiers exemple
Input.txtResultat.txt

[umfred]

Instr ça donne l'indice de la chaine recherché dans la chaine globale
Mid ça permet d'extraire une chaine à partir d'une position (issu par exemple de InStr) et d'une certaine taille.

Mais comme tu as un fichier avec des lignes, autant lire par lignes avec les méthodes de TextStream (cf mes liens précédents)

[omen999]

bonjour,

le fichier resultat.txt

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
22
23
24
25
26
27
28
29
30
31
32
33
nop
Chaine
0xx
ACD
10
BTC
nop
nop
Chaine
0zz
ACD
10
BTC
Chaine
0ff
ACD
10
BTC
Chaine
0qq
ACD
10
BTC
nop
nop
nop
Chaine
0pp
ACD
10
BTC
nop
nop

le code vbs (dans le même répertoire que le fichier précédent)

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
Option explicit
Dim fso, file, sfile, tag, reg, matches, match
' lecture contenu fichier
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("Resultat.txt",1,false)
sfile = file.ReadAll
file.Close
' parsing regexp
Set reg = New RegExp 
tag = "Chaine"
reg.Pattern = tag  & "\r\n(.+\r\n){4}"
reg.Global = True
Set matches = reg.Execute(sfile)
Set file = fso.OpenTextFile("outparsing.txt",2,true)
For Each match In matches
  file.Write match.Value
Next
file.Close
Msgbox "Résultat du parsing dans 'outparsing.txt'"

ps : suppose que "Chaine" se termine par un CRLF standard comme la dernière capture du fichier