Analyse fichier, manipulation de chaine de caractères.

Version imprimable

26/03/2014, 08h42
Techadom

Analyse fichier, manipulation de chaine de caractères.

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.
26/03/2014, 11h36
pc75

Citation:

Envoyé par 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.

Bonjour,

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

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:

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

26/03/2014, 15h36
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.

:salut:

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

Code:

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

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:

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 ? ^^

27/03/2014, 18h40
l_autodidacte

Citation:

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.
27/03/2014, 19h49
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
27/03/2014, 19h59
ProgElecT

Salut
Pour information, Aide sur l'utilisation des boutons
27/03/2014, 21h22
Techadom

Merci ProgElecT