Voilà une solution. A toi de voir.
La procédure est appelée de la manière suivante :
SuppElem "C:\temp\test.txt", "toto"
Public Sub SuppElem(NomFic As String, ElemSupp As String)
'----- Déclaration des variables locales
Dim Ind As Long
Dim NumFicSrc As Long
Dim NumFicDest As Long
Dim NmFicDest As String
Dim Msg As String
Dim Cpteur As Long
'----- Initialisation des variables locales
Cpteur = 0
'----- Ouverture du fichier source
NumFicSrc = FreeFile
Open NomFic For Input As NumFicSrc
NumFicDest = FreeFile
Open "c:\temp\TmpFic.txt" For Output As NumFicDest
'----- Lecture du fichier source et stockage dans fichier destination
Do While Not EOF(NumFicSrc)
Line Input #NumFicSrc, Msg
If LCase(Trim$(Msg)) <> LCase(ElemSupp) Then
Print #NumFicDest, Msg
Else
Cpteur = Cpteur + 1
End If
Loop
'----- Fermeture des fichiers
Close NumFicSrc
Close NumFicDest
'----- Mise à jour des noms de fichiers
Kill NomFic
Name "c:\temp\TmpFic.txt" As NomFic
'----- Affichage de fin de travail
MsgBox ElemSupp & " supprimer " & Cpteur & " fois", vbInformation, "Fin de travail"
End Sub
|
@+