Aide pour un code
toxyco
-
toxyco Messages postés 7 Statut Membre -
toxyco Messages postés 7 Statut Membre -
Bonjour,
Pour mon stage mon tutuer me demande de faire un script dans bloc note pour que qu'on puisse le mettre sur des serveur et qu'il fasse automatiquement cete action .
x= exemple
Qu'il aille dans c:\xxxxx\xxx\xxxxxx\x et que les fichier qu'il y a dans x il les regarde un par un et supprime les fichiers contenant les mot "xxxxxx" .
Merci d'avance
Pour mon stage mon tutuer me demande de faire un script dans bloc note pour que qu'on puisse le mettre sur des serveur et qu'il fasse automatiquement cete action .
x= exemple
Qu'il aille dans c:\xxxxx\xxx\xxxxxx\x et que les fichier qu'il y a dans x il les regarde un par un et supprime les fichiers contenant les mot "xxxxxx" .
Merci d'avance
A voir également:
- Aide pour un code
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
9 réponses
oui et ?
ho j'ai compris, il faut qu'on le fasse à ta place...
ce site est là pour aider, pas pour faire les devoir à la place des autres.
si tu nous montres ce que tu as fait, ce que tu penses faire, ton algo, là où tu bloques, on pourras t'aider.
mais là, comme tu n'as rien fait, on ne peut pas t'aider.
https://www.google.fr/search?hl=fr&q=tutoriel+vbs+&meta=&gws_rd=ssl
ho j'ai compris, il faut qu'on le fasse à ta place...
ce site est là pour aider, pas pour faire les devoir à la place des autres.
si tu nous montres ce que tu as fait, ce que tu penses faire, ton algo, là où tu bloques, on pourras t'aider.
mais là, comme tu n'as rien fait, on ne peut pas t'aider.
https://www.google.fr/search?hl=fr&q=tutoriel+vbs+&meta=&gws_rd=ssl
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Oui non je voulais pas qu'on me le fasse mais qu'on m'orriente . merci pour le site j'essaye de le faire .
dim path
path = "c:\QUEUS\cro\rebut"
Const Texte = "na"
Const sChaine = "na"
'Instruction Dim:
Dim aPos() , iPos
'Instruction ReDim:
ReDim aPos(0)
'Fonction InStr:
iPos = InStr(1, Texte, sChaine)
'Instruction While...Wend:
While iPos <> 0
'Fonction UBound:
ReDim Preserve aPos(UBound(aPos) + 1)
aPos(UBound(aPos)) = iPos
iPos = InStr(iPos + 1, Texte, sChaine)
Wend
'Instruction If...Then...Else:
If UBound(aPos) > 0 Then
Dim i , Resultat
Resultat = "L'occurrence """ & sChaine & """ na " & UBound(aPos) & " fois " &_
"dans l'expression " na """" & Texte & """" na
'Instruction For...Next:
'Fonction CS :
'Fonction Len:
For i = 1 To UBound(aPos)
Resultat = Resultat na "Postion: " & CStr(aPos(i)) & "," & CStr(aPos(i)) + Len(sChaine)
Next
Else
Resultat = "L'occurrence """ & sChaine & """ n'a pas été trouvée dans l'expression " na_
"""" & Texte & """"
End If
MsgBox Resultat
if resultat 1 = delete
path = "c:\QUEUS\cro\rebut"
Const Texte = "na"
Const sChaine = "na"
'Instruction Dim:
Dim aPos() , iPos
'Instruction ReDim:
ReDim aPos(0)
'Fonction InStr:
iPos = InStr(1, Texte, sChaine)
'Instruction While...Wend:
While iPos <> 0
'Fonction UBound:
ReDim Preserve aPos(UBound(aPos) + 1)
aPos(UBound(aPos)) = iPos
iPos = InStr(iPos + 1, Texte, sChaine)
Wend
'Instruction If...Then...Else:
If UBound(aPos) > 0 Then
Dim i , Resultat
Resultat = "L'occurrence """ & sChaine & """ na " & UBound(aPos) & " fois " &_
"dans l'expression " na """" & Texte & """" na
'Instruction For...Next:
'Fonction CS :
'Fonction Len:
For i = 1 To UBound(aPos)
Resultat = Resultat na "Postion: " & CStr(aPos(i)) & "," & CStr(aPos(i)) + Len(sChaine)
Next
Else
Resultat = "L'occurrence """ & sChaine & """ n'a pas été trouvée dans l'expression " na_
"""" & Texte & """"
End If
MsgBox Resultat
if resultat 1 = delete
celui la et mieux masi marche pas
Dim stRep 'c:\xxxx\xxx\x
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:\tmp\fichier1.txt", ForReading)
Wscript.echo f.ReadAll
f.Close
pos = InStr(4, "na", "Juillet") 'renvoie 24
pos = InStr(27,"na", "Juillet") 'renvoie 0
File.Delete("c:\copyofmyfile.txt")
Console.WriteLine("Fichier c:\copyofmyfile.txt supprimé")
Dim stRep 'c:\xxxx\xxx\x
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:\tmp\fichier1.txt", ForReading)
Wscript.echo f.ReadAll
f.Close
pos = InStr(4, "na", "Juillet") 'renvoie 24
pos = InStr(27,"na", "Juillet") 'renvoie 0
File.Delete("c:\copyofmyfile.txt")
Console.WriteLine("Fichier c:\copyofmyfile.txt supprimé")
