1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Sub supprimeligne (FichierSource, FichierDest, NomValeur)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fichier_lecture_1, fichier_lecture_2, fichier_ecriture_1, fichier_ecriture_2
Dim fso, fso1
Dim compteur
Dim chaine, machaine
fichier_lecture_1 = WScript.Arguments(0)
fichier_ecriture_1 = WScript.Arguments(1)
mot_cherche = WScript.Arguments(3)
compteur = 0
Set fso = CreateObject("Scripting.FileSystemObject")
Set fso1 = CreateObject("Scripting.FileSystemObject")
set fichier_lecture_2 = fso.opentextfile(fichier_lecture_1, 1, true)
set fichier_ecriture_2 = fso1.opentextfile(fichier_ecriture_1, 2, true)
' Copie ligne à ligne du fichier source sans la ligne contenant le mot recherche vers un fichier destination
do until fichier_lecture_2.atendofstream
chaine = fichier_lecture_2.readline()
machaine = chaine
if instr(1, chaine, mot_cherche) > 0 then
compteur = compteur + 1
machaine = fichier_lecture_2.readline()
end if
fichier_ecriture_2.writeline machaine
loop
fichier_lecture_2.close
fichier_ecriture_2.close
' Suppression du fichier source puis renommage du fichier destination avec le nom du fichier origine
fso.deletefile fichier_lecture_1
fso.movefile fichier_ecriture_1, fichier_lecture_1
set fichier_lecture_2 = nothing
set fso = nothing
set fichier_ecriture_2 = nothing
set fso1 = nothing
wscript.echo "mot trouvé " & compteur & " fois !!"
end sub |
Partager