PureBasic

Code : Tout sélectionner

#dst=1

chemin$="c:\Temp\1.txt"

If ReadFile(#dst, chemin$)
  While Eof(#dst) = 0           ; loop as long the 'end of file' isn't reached
    mot$=ReadString(#dst)
    mot$=LCase(mot$)
    
    If mot$="la"
      ;;;;;;;;;;;;;;;;;;;; retirer le mot "la"
    EndIf
    
  Wend
  CloseFile(#dst)
EndIf

Code : Tout sélectionner

#dst=1
#tmp=2

chemin$="c:\Temp\1.txt"
temp$="c:\temp\2.txt"

CreateFile(#tmp, temp$)

If ReadFile(#dst, chemin$)
  While Eof(#dst) = 0           ; loop as long the 'end of file' isn't reached
    mot$=ReadString(#dst)
    mot$=LCase(mot$)
    
    If mot$="la"
      ;;;;;;;;;;;;;;;;;;;; retirer le mot "la"
      Continue
    Else
      WriteStringN(#tmp, mot$)
    EndIf
    
  Wend
  CloseFile(#dst)
  CloseFile(#tmp)
  DeleteFile(chemin$)
  RenameFile(temp$, chemin$)
EndIf

Code : Tout sélectionner

#dst=1

chemin$="c:\Temp\1.txt"
NewList mots.s()

If ReadFile(#dst, chemin$)
  While Eof(#dst) = 0           ; loop as long the 'end of file' isn't reached
    mot$=ReadString(#dst)
    mot$=LCase(mot$)
    If mot$="la"
      ;;;;;;;;;;;;;;;;;;;; retirer le mot "la"
    Else
      AddElement(mots())
      mots() = mot$
    EndIf
  Wend
  CloseFile(#dst)
EndIf

If OpenFile(#dst, chemin$)
  ForEach mots()
    WriteStringN(#dst, mots())
  Next
EndIf