[VBS] recherche d'une chaine de caractere dans different fichiers

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBS] recherche d'une chaine de caractere dans different fichiers

guiotv2

Bonjour,

Je recherchais un petit soft pour faire une recherche de chaine de caractere dans une liste de fichiers, j'avais creer un post mais je n'ai pas trouve mon bonheur, j'ai donc essayer de me faire un vbs.

http://forum.hardware.fr/forum2.ph [...] w=0&nojs=0

Je réexplique mon soucit :

Citation :

Je recherche un soft qui me permettrais de faire une recherche de chaine de caractere a l'interieur de fichier qui sont lisiblent en notepad (ce sont des fichier Lotus Notes : desktop5.dsk et desktop6.ndk), ces fichiers sont dans differents repertoires.

Exemple d'arborescence :

je veux que la recherche se fasse que dans les deux fichiers citees.

Code :

Option explicit
dim strline
Dim ObjFSO
Dim ObjFile
dim strline2
Dim ObjFSO2
Dim ObjFile2
dim ObjFileRapport
dim ObjRapport
dim rapport
dim chaine_recherche
dim resultat_scan
dim liste
Const ForWriting = 2
const ForReading = 1
chaine_recherche = "M:\" 'Chaine de caractere a chercher dans les desktops
rapport = "rapport.txt" 'Fichier rapport des scans des desktops
liste = "liste.txt" 'Fichier ou se trouve toutes les lignes des chemins des fichier desktop, ex : X:\GUIOTVI1\NOSYNC\Notes\Data\desktop5.DSK
Set ObjRapport = CreateObject("Scripting.FileSystemObject" )
Set ObjFileRapport = ObjRapport.CreateTextFile(rapport,ForWriting)
ObjFileRapport.Writeline "Rapport des users qui utilise une archive sur le S2024 - Date : " & Now
ObjFileRapport.WriteBlankLines(2)
ObjFileRapport.close
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile(liste,1)
strLine = objFile.ReadLine
wscript.echo strLine
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
Set objFile2 = objFSO.OpenTextFile(strLine,ForReading)
strLine2 = objFile2.ReadLine
wscript.echo strLine2
Do Until objFile2.AtEndOfStream
strLine2 = objFile2.ReadLine
resultat_scan = instr(1,strLine2,chaine_recherche)
wscript.echo resultat_scan
If resultat_scan = 0 Then
ObjFileRapport.Writeline strLine & ";NON;0"
ObjFileRapport.close
wscript.echo "Pas de M:\"
Else
ObjFileRapport.Writeline strLine & ";OUI;" & resultat_scan
ObjFileRapport.close
wscript.echo "Y a un M:\"
End If
Loop
Loop
wscript.echo "Rapport S2024 fini."

Je precise que je ne suis pas devellopeur et ne maitrise pas beaucoup vbs

Quand je lance le vbs voici ce qui en resulte :
- le fichier rapport.txt est bien creer et la ligne "Rapport des users qui [...]" est bien ecrite, mais rien d'autre en dessous...
- j'ai un popup avec la ligne dans le fichier texte qui s'affiche (c:\test\desktop6.dnk)
- j'ai un popup disant que le rapport est fini aussi

En gros j'ai l'impression que mon script ne fais rien a partir du moment ou je commence ma premiere boucle...

Help !!! :cry:

---------------
Canon EOS 7D - Canon 17-55 f2.8 IS - Canon L 70-200 f4 - Flash Nissim 622

Publicité

jcdumas

Moi j'enléverai les close de ton fichier rapport.
Tu ouvres, le fichier au début et tu ne le fermes qu'à la fin.

olivthill

Grâce à vos wscript.echo, vous devriez voir par où le programme passe. S'il le faut, mettez en plus, par exemple, après chaque readline, c'est indispensable pour debugguer les programmes en VBS.

A première vue, mais je peux me tromper, je soupçonne que les fichiers à explorer n'ont pas le bon format. En gros, il existe trois formats : 1. fichier texte ordinaire, 2. fichier texte unicode, 3. fichier binaire. Le mode d'ouverture et de lecture de fichier que vous avez choisi n'est valable que pour le premier format. Il faudrait faire l'essai de votre programme avec un jeu de tests que vous maitrisez totalement, par exemple avec des fichiers que vous avez créés vous-même avec notepad (le bloc-notes), plutôt qu'avec ces fichiers dont le format est peut-être spécial.

Edit : Et la remarque de jcdumas est très juste.

Message édité par olivthill le 21-06-2007 à 22:52:00

guiotv2

@olivthill : tu me vouvoie ? :'( je suis pas si vieux !
Sinon tu as completement raison ce sont les tests que j'ai fais (sur un fichier .txt que j'ai fais) et il fonctionne bien (enfin pas le script au dessus car j'ai fais des modif depuis)...
Merci !

---------------
Canon EOS 7D - Canon 17-55 f2.8 IS - Canon L 70-200 f4 - Flash Nissim 622

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBS] recherche d'une chaine de caractere dans different fichiers

Sujets relatifs
Comment reconnaitre le caractère TAB en PHP ?	Moteur de recherche
Insertion image Excel à la place d'un caractére	Supprimer une ligne dans WORD / EXCEL selon caractere
Recherche un pro du flash pour une petite modif	Comment créer dynamiquement un tableau HTML dans un script VBS ?
Empecher le téléchargement direct de fichiers	[c++]copie d'une chaine de caractere[Resolu]
Comment gérer un formulaire dynamique de recherche
Plus de sujets relatifs à : [VBS] recherche d'une chaine de caractere dans different fichiers

Page générée en 0.054 secondes