Discussion :

[Techadom]

Bonjour à tous,

Je fais appel à vos connaissances VBS car les miennes sont trés limitées.

J'ai un fichier crontab (programme qui permet de planifier l'exécution de scripts) dans lequel je souhaite récupérer des lignes, voici un exemple du contenu du fichier:



##Job1##
30 18 * * 1-5 D:\appli\env\Batch\EXE\toto.appli.Console.Batch.exe Processus.Toto

##Job2##
30 19 * * 1-5 D:\appli\env\Batch\EXE\toto.appli.Console.Batch.exe Processus.toto2

##Job3##
45 00 * * 2-6 D:\appli\env\Batch\EXE\toto.appli.Console.Batch.exe Processus.toto3

##Job4##
45 15 * * 6 D:\appli\env\Batch\EXE\toto.appli.Console.Batch.exe Rapport.PurgeRapportDonnee

##Job5##
00 16 * * 6 D:\appli\env\Batch\EXE\toto.appli.Console.Batch.exe Rapport.PurgeRapportPhysique

Dans mon script vbs je parcours ce fichier et je souhaite récupérer les lignes après le "EXE\"

Pour le moment la seule chose que j'ai fait et qui se rapproche un peu de mon souhait c'est de récupérer les lignes à partir d'une position de caractère avec la fonction Mid:

Jobline=crontab.ReadLine
temp = Mid(JobLigne,38)

Ce qui me permet de récupérer ceci:

toto.appli.Console.Batch.exe Processus.Toto
toto.appli.Console.Batch.exe Processus.toto2
to.appli.Console.Batch.exe Rapport.PurgeRapportDonnee
to.appli.Console.Batch.exe Rapport.PurgeRapportDonnee
to.appli.Console.Batch.exe Rapport.PurgeRapportPhysique

Mais ce n'est pas propre car sur les lignes n'ayant pas le même nombre de caractère au début, j'ai le "toto" qui est tronqué (les 3 dernières lignes).

Sauriez vous quelle fonction ou moyen je pourrais utiliser pour par exemple récupérer la ligne après "EXE\" ce qui me permettrait d'avoir toutes les lignes en commençant par toto ?

toto.appli.Console.Batch.exe Processus.Toto
toto.appli.Console.Batch.exe Processus.toto2
toto.appli.Console.Batch.exe Rapport.PurgeRapportDonnee
toto.appli.Console.Batch.exe Rapport.PurgeRapportDonnee
toto.appli.Console.Batch.exe Rapport.PurgeRapportPhysique

J'espère que vous me comprendrez ^^

Merci d'avance pour votre aide.

[pc75]

Bonjour à tous,

Je fais appel à vos connaissances VBS car les miennes sont trés limitées.

J'ai un fichier crontab (programme qui permet de planifier l'exécution de scripts) dans lequel je souhaite récupérer des lignes, voici un exemple du contenu du fichier:



##Job1##
30 18 * * 1-5 D:\appli\env\Batch\EXE\toto.appli.Console.Batch.exe Processus.Toto

##Job2##
30 19 * * 1-5 D:\appli\env\Batch\EXE\toto.appli.Console.Batch.exe Processus.toto2

##Job3##
45 00 * * 2-6 D:\appli\env\Batch\EXE\toto.appli.Console.Batch.exe Processus.toto3

##Job4##
45 15 * * 6 D:\appli\env\Batch\EXE\toto.appli.Console.Batch.exe Rapport.PurgeRapportDonnee

##Job5##
00 16 * * 6 D:\appli\env\Batch\EXE\toto.appli.Console.Batch.exe Rapport.PurgeRapportPhysique

Dans mon script vbs je parcours ce fichier et je souhaite récupérer les lignes après le "EXE\"

Pour le moment la seule chose que j'ai fait et qui se rapproche un peu de mon souhait c'est de récupérer les lignes à partir d'une position de caractère avec la fonction Mid:

Jobline=crontab.ReadLine
temp = Mid(JobLigne,38)

Ce qui me permet de récupérer ceci:

toto.appli.Console.Batch.exe Processus.Toto
toto.appli.Console.Batch.exe Processus.toto2
to.appli.Console.Batch.exe Rapport.PurgeRapportDonnee
to.appli.Console.Batch.exe Rapport.PurgeRapportDonnee
to.appli.Console.Batch.exe Rapport.PurgeRapportPhysique

Mais ce n'est pas propre car sur les lignes n'ayant pas le même nombre de caractère au début, j'ai le "toto" qui est tronqué (les 3 dernières lignes).

Sauriez vous quelle fonction ou moyen je pourrais utiliser pour par exemple récupérer la ligne après "EXE\" ce qui me permettrait d'avoir toutes les lignes en commençant par toto ?

toto.appli.Console.Batch.exe Processus.Toto
toto.appli.Console.Batch.exe Processus.toto2
toto.appli.Console.Batch.exe Rapport.PurgeRapportDonnee
toto.appli.Console.Batch.exe Rapport.PurgeRapportDonnee
toto.appli.Console.Batch.exe Rapport.PurgeRapportPhysique

J'espère que vous me comprendrez ^^

Merci d'avance pour votre aide.

Bonjour,

La fonction inStr() te renvoie la position d'une sous-chaine dans une chaine.

[tsuji]

Supposons vous avez déjà un TextStream chrontab bien-tempéré. Je peux vous proposer une méthode regexp que je préfère mieux de beaucoup.

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
'que chrontab soit l'objet TextStream déjà établi
s=chrontab.readall
crontab.close
set crontab=nothing
 
set rx=new regexp
with rx
    .global=true
    .multiline=true
    .ignorecase=false
    .pattern="(\\EXE\\)(.*?)$"
end with
 
set cm=rx.execute(s)
 
for each m in cm
    'ceci montre ce que vous cherchez 
    wscript.echo m.submatches(1)
next

[Techadom]

Merci pour vos réponses.

La fonction inStr() renvoie une position, c'est pas vraiment ce que je veux faire.

L'expression régulière semble être la bonne piste mais je n'ai pas tout compris
Je vais creuser dans ce sens pour intégrer ça à mon script, merci.

[l_autodidacte]

Peut-être que ce listng répond à ta demande :

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
Option Explicit
 
  Const ForReading = 1
    Dim fso, Fich, tx, Ret, NomFichier, intPos
 
     NomFichier = "C:\Temp\Source.txt"
     Set fso = CreateObject("Scripting.FileSystemObject")
     Set Fich = fso.OpenTextFile(NomFichier, ForReading, False)
     Ret = ""
 
     While Not Fich.AtEndOfStream
        tx =Fich.ReadLine
        intPos = InStr(1,tx,"\EXE\") 
        If intPos > 0 Then 
           Ret = Ret & Mid(tx,intPos +5) & vbNewLine
        End If
     WEnd
     MsgBox Ret

[Techadom]

Merci l_autodidacte

Ton code renvoie exactement ce que je voudrais obtenir, mais maintenant il faut que je l'adapte à mon script parce que jusqu'à présent la partie analyse de mon fichier crontab était faite comme ceci:

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
i = 0
Do While Not crontab.AtEndOfStream 
    jobligne = crontab.ReadLine
    If (Right(jobligne, 3) = "vbs" or Right(jobligne, 3) = "bat" or InStr(JobLigne,".exe"))  Then
 
        ReDim Preserve listejob(i)
        temp = Mid(JobLigne,38)
        ListeJob(i) = Replace(temp,".vbs","")
        ListeJob(i) = Replace(temp,".bat","")
 
 
        i = i + 1
    End If
Loop
crontab.Close

P.S: Comment fait-on pour insérer une fenêtre de code dans un message ? ^^

[l_autodidacte]

Comment fait-on pour insérer une fenêtre de code dans un message ?

J'avoue n'avoir rien compris à cette question.
Essaie d'expliquer un peu.

[Techadom]

C'était une question hors-sujet
Je me demandais comment faisait-on, lorsqu'on écrit un message sur le forum, pour publier les lignes de code, tu sais avec le formatage spéciale (numéro de lignes, fenêtre avec ascenseur, fond bleu,..) mais apparemment ça se fait automatiquement. Bref c'était nase comme question désolé lol

[ProgElecT]

Salut
Pour information, Aide sur l'utilisation des boutons

[Techadom]

Merci ProgElecT