qui supprime une ligne compléte avec le mot que je voudré suprimer.
Private Sub ReadWriteFile3(wordtodelete As String) Dim strg As String Dim allstr As String Dim nfile As Integer nfile = FreeFile allstr = "" Open "E:\ReadFile\BLABLA.TXT" For Input As #nfile Do While Not EOF(nfile) Line Input #nfile, strg If strg <> wordtodelete Then allstr = allstr + strg + vbCrLf End If Loop Close #nfile nfile = FreeFile Open "E:\ReadFile\BLABLA.TXT" For Output As #nfile Print #nfile, allstr Close #nfile End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIf InStr(strg, wordtodelete) = 0 Then allstr = allstr + strg + vbCrLf End If