Code marche pas need aide

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Code marche pas need aide

toxyco

Bonjour,

je voudrais que mon programme aille dans c:\QUEUS\cro\rebut et que les fichier qu'il y a dans x il les regarde un par un et supprime les fichiers contenant les mot "na" .

Petit code préalable que j'ai fait mais sans succèes j'ai besoin que vous me le conpléter .
Merci d'avance j'espère que vous m'aiderez

Code :

Dim stRep 'c:\QUEUS\cro\rebut
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject" )
stRep = "C:\Tmp"
If oFSO.FolderExists(stRep) Then
For each oFl in oFSO.GetFolder(stRep).Files
Wscript.Echo oFl.Name
Next
End If
Const ForReading = 1, ForWriting = 2
Dim oFso, f
Set oFso = CreateObject("Scripting.FileSystemObject" )
Set f = oFso.OpenTextFile("c:\QUEUS\cro\rebut", ForReading)
Wscript.echo f.ReadAll
f.Close
pos = InStr(0, "na" ) 'renvoie 24
pos = InStr(0,"na) 'renvoie 0
File.Delete("c:\QUEUS\cro\rebut" )
Console.WriteLine("Fichier c:\QUEUS\cro\rebut supprimé" )

Coordialement, .Toxyco.

Publicité

olivthill

C'est du VBS.
Ce code a l'air correct au point de vue de la syntaxe.

Pourquoi ça ne marche pas ? A quel endroit ? Où est le problème ?

Je devine qu'il faudrait tester si pos est 0 ou non, pour supprimer ou pas le fichier.

Si les fichiers contiennent des données binaires, cela ne marchera pas, car vous utilisez OpenTextFile, qui, comme son nom l'indique, ouvre des fichiers "textes", et pas des fichiers "binaires".

toxyco

Merci pour la reponse. J'ai pas mis en relation supprimer le fichier si la recherche est bonne .

Harkonnen

Modérateur
Un modo pour les bannir tous

Beaucoup de code inutile dans son code :
- lignes 5 à 9 : pourquoi afficher le nom de chaque fichier rencontré dans le répertoire ?
- ligne 12 : pourquoi recréer un second objet FileSystemObject alors qu'il en existe déjà un ?
- lignes 16 et 17 : rien compris... elle est où la chaine dans laquelle les occurences de "na" doivent être recherchées ? et pourquoi 2 lignes (dont une avec une erreur, la 17 : il manque une guillemet fermante)
Et la condition de suppression en cas d'occurence trouvée, elle est où ? Le File.Delete se fait inconditionnellement...

Bref, ce code a un gros problème d'algo. Je te suggère de tout refaire sur papier, et de bien séparer les différentes étapes du traitement parce que là, c'est n'importe quoi.

---------------
J'ai un string dans l'array (Paris Hilton)

toxyco

Je sait pas faire une suppression en cas d'occurence trouvée.

toxyco

J'ai fait les modification que tu ma dit il en manque quelque une mais je suis pas bon en bvs.

Code :

Dim stRep 'c:\QUEUS\cro\rebut
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject" )
stRep = "C:\Tmp"
End If
Const ForReading = 1, ForWriting = 2
Dim oFso, f
Set f = oFso.OpenTextFile("c:\QUEUS\cro\rebut", ForReading)
Wscript.echo f.ReadAll
f.Close
pos = InStr(0, "na" ) 'renvoie 24
pos = InStr(0,"na" ) 'renvoie 0
File.Delete("c:\QUEUS\cro\rebut" )
Console.WriteLine("Fichier c:\QUEUS\cro\rebut supprimé" )

Harkonnen

Modérateur
Un modo pour les bannir tous

A quel moment dans ton code tu demandes de supprimer le fichier si celui ci contient les lettres "na" ? Ce n'est pas une question d'être bon en VBS ou pas, mais une question d'algo : à la ligne 13, tu effaces un fichier (rebut), dont on se demande ce qu'il vient faire là (a t'il les lettres "na" dans son nom ? non. Alors pourquoi l'effacer ?). Mais tu n'associes aucune condition à cet effacement.
Reprends tout depuis le début, et décompose les différentes tâches de ton traitement.

---------------
J'ai un string dans l'array (Paris Hilton)

toxyco

C'est mieux ou pas ?

Code :

Dim stRep 'c:\QUEUS\cro\rebut
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject" )
stRep = "C:\QUEUS\cro\rebut"
End If
Const ForReading = 1,
Dim oFso, f
Set f = oFso.OpenTextFile("c:\QUEUS\cro\rebut", ForReading)
Wscript.echo f.ReadAll
f.Close
pos = InStr(0, "na" ) 'renvoie 24
pos = InStr(0,"na" ) 'renvoie 0
If UCase = "na" then AFile.Delete

Message édité par toxyco le 11-06-2010 à 12:16:24

Harkonnen

Modérateur
Un modo pour les bannir tous

Tu fais n'importe quoi, tu ne déclares rien, tu marches à l'aveuglette... la ligne 13 ne ressemble à rien du tout

---------------
J'ai un string dans l'array (Paris Hilton)

toxyco

éclaire moi stp ....

Publicité

Harkonnen

Modérateur
Un modo pour les bannir tous

- UCase est une fonction, et toi tu l'utilises comme variable : http://msdn.microsoft.com/en-us/li [...] S.85).aspx
- AFile, c'est quoi ? Tu ne déclares cette variable nulle part...
- Les lignes 11 et 12 sont identiques et totalement inutiles (le seul truc à garder c'est InStr, qui te permet effectivement de rechercher une occurence d'une chaine dans une autre, mais que tu emploies n'importe comment)
- et j'en passe....

---------------
J'ai un string dans l'array (Paris Hilton)

SuppotDeSaTante

Aka dje69r

Hello

Comme le dit Harkonnen, pose ton algorithme calmement.

Pas obligé de faire un truc super compliqué. Moi de ce que j'en ai compris, tu veux supprimer les fichiers qui se trouvent dans le dossier <rebut> si leur nom contient "na"

C'est tres simple a poser

Pour chaque fichier dans <rebut>
Si "na" est dans le nom alors on supprime le fichier
Fin si
Suivant

Donc ton script en VBS ne devrait pas faire 13 lignes mais 6/7 a tout casser.
Tu prends l'algo ennoncé juste avant, et tu le transcris en VBS. Et si tu as bien declaré tes variables ca roule tout seul.

---------------
Soyez malin, louez entre voisins !

toxyco

oui mais pour faire sa faut que mon algo contienne

aille dans rebut l'ouvre, le li et recherche dedans et apres suprime si na est dedans sa fait pas 6/7 ligne nn ?

toxyco

j'i fait sa qui marche il va chercher et ouvre le fichier.

Code :

Dim stRep
stRep="c:\QUEUS\cro\rebut"
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject" )
If oFSO.FolderExists(stRep) Then
For each oFl in oFSO.GetFolder(stRep).Files
Wscript.Echo oFl.Name
Set WshShell = WScript.CreateObject("WScript.Shell" )
Next
end if

SuppotDeSaTante

Aka dje69r

Déjà si tu ecrivais en français c'est clair que ca aiderait...

Citation :

il les regarde un par un et supprime les fichiers contenant les mot "na"

Moi j'avais compris dans le nom du fichier. Rien a voir avec ma remarque du dessus.

Declare tes variables sinon en vbs ca tournera pas, mais en gros ca donnerait ca

Code :

Sub test()
RepertoireSource = "c:\QUEUS\cro\rebut" 'on defini le repertoire source
Set objFSO = CreateObject("Scripting.FileSystemObject" ) 'creation des objet FSO
Set objDossier = objFSO.GetFolder(RepertoireSource) 'On recupere le dossier
If (objDossier.Files.Count > 0) Then 's'il le dossier contient des fichiers
For Each objFichier In objDossier.Files 'pour chaque fichiers dans le dossier
Set Txt = objFSO.GetFile(objFichier.Path).OpenAsTextStream(1) 'on ouvre le fichier en lecture
If Txt.AtEndOfStream = False Then 's'il n'est pas vide (vu qu'on utilise ReadAll
If InStr(1, Txt.ReadAll, "na" ) <> 0 Then 'Si le fichier contient "na"
Set Txt = Nothing 'On enleve la reference sinon on peut pas supprimer le fichier vu qu'il est ouvert
objFSO.deletefile objFichier.Path, True 'on supprime le fichier
End If
End If
Next
End If
End Sub

Message cité 2 fois
Message édité par SuppotDeSaTante le 11-06-2010 à 15:50:58

---------------
Soyez malin, louez entre voisins !

Harkonnen

Modérateur
Un modo pour les bannir tous

SuppotDeSaTante a écrit :

Déjà si tu ecrivais en français c'est clair que ca aiderait...

Citation :

il les regarde un par un et supprime les fichiers contenant les mot "na"

Moi j'avais compris dans le nom du fichier. Rien a voir avec ma remarque du dessus.

mais bondieu, j'avais compris la même chose [:mlc]

Message édité par Harkonnen le 11-06-2010 à 15:56:18

---------------
J'ai un string dans l'array (Paris Hilton)

toxyco

Merci de ton aide . j'ai essayer le code il ne supprime pas mais il marche bien et s'exécute .

SuppotDeSaTante

Aka dje69r

Poste ton code

---------------
Soyez malin, louez entre voisins !

toxyco

Code :

Sub test()
RepertoireSource = "c:\QUEUS\cro\rebut"
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objDossier = objFSO.GetFolder(RepertoireSource)
If (objDossier.Files.Count > 0) Then
For Each objFichier In objDossier.Files
Set Txt = objFSO.GetFile(objFichier.Path).OpenAsTextStream(1)
If Txt.AtEndOfStream = False Then
If InStr(1, Txt.ReadAll, "na" ) <> 0 Then
Set Txt = Nothing
objFSO.deletefile objFichier.Path, True
End If
End If
Next
End If
End Sub
wscript.echo "FIN"

SuppotDeSaTante

Aka dje69r

SuppotDeSaTante a écrit :

Declare tes variables sinon en vbs ca tournera pas, mais en gros ca donnerait ca

Je suis de bonne humeur et tu as l'air d'en chier :
Tu colles ca dans un fichier .vbs

Code :

Dim RepertoireSource,objFSO,objDossier,Txt
RepertoireSource = "c:\QUEUS\cro\rebut"
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objDossier = objFSO.GetFolder(RepertoireSource)
If (objDossier.Files.Count > 0) Then
For Each objFichier In objDossier.Files
Set Txt = objFSO.GetFile(objFichier.Path).OpenAsTextStream(1)
If Txt.AtEndOfStream = False Then
If InStr(1, Txt.ReadAll, "na" ) <> 0 Then
Set Txt = Nothing
objFSO.deletefile objFichier.Path, True
End If
End If
Next
End If
msgbox "Fin"

Message édité par SuppotDeSaTante le 14-06-2010 à 16:36:29

---------------
Soyez malin, louez entre voisins !

toxyco

Merci beacoup .... = )

Publicité

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Code marche pas need aide

Sujets relatifs
Problème code PHP insertion données form dans DB	Code javascript ne fonctionne pas sur firefox
ereg... Presque bon... besoin d'aide SVP	Est ce que ce bout de code génère une allocation ?
Besoin d'aide en C	vba html code source
Aide pour un slideshow (flash surement) avec changement background	Transformer un code hors ligne en mode en ligne
Problème dans les code HTML et CSS
Plus de sujets relatifs à : Code marche pas need aide

Page générée en 0.105 secondes