Discussion :

[paco69]

Bonjour à tous,

J'ai besoin de faire un script vb qui va, dans une boucle:
- lire un fichier log.
- vérifier si 2 mots sont présents; si les 2 sont présents, résultat: ok; si un des 2 mots est manquant, résultat: ko.
- dans tous les cas, écriture du résultat dans un fichier texte, avec comme syntaxe: nom_serveur;résultat

Je le fais dans le but de me simplifier la vie, dans le cadre d'une vérification concernant 900 machines, par tranche de 150 à 200 machines par session.

Si quelqu'un peut me donner des débuts de piste, sachant que je ne sais pas s'il faut que j'utilise StreamReading ou OpenAsTextStream pour la lecture du fichier, à la base, selon la methode utilisée (s'il en existe une) pour localiser les 2 mots importants.

Merci d'avance,

paco

[sloshy]

Sorry, double poste !

[sloshy]

Bonjour,
Je ne pourrais pas t'aider en VB mais je pense qu'un simple fichier bach suffis, non?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
@echo off
rem Recherche de la premiere chaine de caractère dans le fichier
rem Si la recherche à aboutie:
    rem Recherche de la deuxieme chaine de caractère dans le fichier
    rem Si la recherche à aboutie:
        rem Ecrire OK dans le rapport
    rem Sinon:
        rem Ecrire KO dans le rapport
rem Sinon
Ecrire KO dans le rapport

Tu peux faire la recherche grace à findstr, les conditions avec if et else et pour écrire dans un fichier c'est echo tachaine > fichier_destination
un seul > pour crée le fichier (ou écraser le fichier existant)
deux > (>>) pour ajouter à la fin du fichier ^^

[paco69]

Effectivement, avec FINDSTR, il me trouve les mots que je veux, c'est bien plus simple.
Par contre pour le reste, j'ai du mal.
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
@echo off
for /F "tokens=1,2,3 delims=;" %%i in (liste.txt) do set nommag=%%j&call 

:BOUCLE %%i %%k
set /A compteur=0
set /A nbpbrezo=0
set nommag=
goto :EOF

:BOUCLE
if findstr "mot1 mot2" == "mot1 mot2" srv(num_serveur).log
echo srv(num_serveur);ok >> analyse.log
else echo (num_serveur);ko >> analyse.log
:FIN

Je dois avoir pleins d'erreurs...
Au passage, existe t'il un soft comme visual basic 2005 express pour le batch?

Merci bien,


paco

[koKoTis]

Au passage, existe t'il un soft comme visual basic 2005 express pour le batch?

http://www.astase.com/produits/powerbatch/

Le code que tu a écri fonctionne ?

[paco69]

Merci pour le lien

Non, le script ne marche pas du tout. Je ne sais pas ou regarder pour trouver les erreurs, certainement des erreurs de syntaxe.

[paco69]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
@echo off
set mot1=titi
set mot2=toto

if findstr "%mot1% %mot2%" srv(num_srv).log (
echo (num_srv);ok >> analyse.log
) else ( echo (num_srv);ko >> analyse.log
)

J'ai quoi comme erreur??