Const ForWriting = 2 strFileName = "chemin du fichier" strCheck1 = "variable à supprimer" strCheck2 = "variable à supprimer" strCheck3 = "variable à supprimer" strCheck4 = "variable à supprimer" strCheck5 = "variable à supprimer" dim all 'variable qui va contenir le nouveau contenu du fichier all = "" 'lire un fichier ligne par ligne Set test = CreateObject("Scripting.FileSystemObject") Set vbfrance = test.OpenTextFile(strFileName) Do While Not vbfrance.AtEndOfStream ligne = vbfrance.Readline if (instr (ligne , strCheck1)) <= 0 then all = all & ligne & vbcrlf elseif (instr (ligne , strCheck2)) <= 0 then all = all & ligne & vbcrlf elseif (instr (ligne , strCheck3)) <= 0 then all = all & ligne & vbcrlf elseif (instr (ligne , strCheck4)) <= 0 then all = all & ligne & vbcrlf elseif (instr (ligne , strCheck5)) <= 0 then all = all & ligne & vbcrlf end if Loop 'on ferme le fichier vbfrance.close 'on enregistre notre nouveau contenu sans les lignes supprimer Set test2 = CreateObject("Scripting.FileSystemObject") Set vbfrance2 = test2.OpenTextFile(strFileName, ForWriting,true) vbfrance2.write(all) vbfrance2.close
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDo While Not vbfrance.AtEndOfStream ligne = vbfrance.Readline if (instr (ligne , strCheck1)) <= 0 and _ (instr (ligne , strCheck2)) <= 0 and _ (instr (ligne , strCheck3)) <= 0 and _ (instr (ligne , strCheck4)) <= 0 and _ (instr (ligne , strCheck5)) <= 0 then all = all & ligne & vbcrlf end if Loop