Bonjour,
j'ai un fichier nommé quartz.cfg qui contient ce genre de chose :
J'ai besoin de récupérer la ligne qui commence par "00" (ici ligne 17)
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
34
35
36
37
38
39 ! ! Fichier de configuration ! ! Définition du POSTE ! ! 00 O Poste^.Idt ! 01 M Poste^.Code ! 02 S4 Poste^.Abv ! 03 S12 Poste^.Nom ! 04 D Poste^.HeureOuv ! 05 D Poste^.HeureFin ! 06 S30 Poste^.NomReseau ! 00 0 7 01 S4 BI7 02 S12 Serveur 03 S30 Bureau du Grand Chambellan ... 06 S20 MCULBILLA0606 07 S40 SOK:10.10.0.3|2050 ! ! Configuration matérielle ! ! 11 S10 CodeChiffres ! 21 S12 Device billetterie 11 S10 à&é"'(-è_ç 21 S20 COM1:57600,N,8,1 !21 S12 test 22 S8 IER520 !26 S #SPC V6;#SPC C10;$STR B57600 D8 PN S0;#SPZ L1500;#SPA MH D-12;#SPZ Y20; 51 S Recette séance,seance,recette 51 S Recette calendrier,calendrier,rece_kld 801 S HUP
J'ai déjà réussi a faire ce script mais il ne fait que repérer les lignes qui contiennent "00" et moi j'ai besoin de récupérer la ligne qui commence par "00"
merci pour l'aide
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 Const ForReading = 1 Dim strSearchFor strSearchFor = "00" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("c:\sirius\Quartz.cfg", ForReading) do until objTextFile.AtEndOfStream strLine = objTextFile.ReadLine() If InStr(1, strLine, strSearchFor) <> 0 then Wscript.Echo "ligne trouvee" Wscript.Echo strLine Else Wscript.Echo "ligne non trouvee" End If loop objTextFile.Close
Partager