Bonjour,

j'ai un fichier nommé quartz.cfg qui contient ce genre de chose :
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 besoin de récupérer la ligne qui commence par "00" (ici ligne 17)
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"



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
merci pour l'aide