[Résolu] Retirer un mot d'un fichier

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
SPH
Messages : 4722
Inscription : mer. 09/nov./2005 9:53

[Résolu] Retirer un mot d'un fichier

Message par SPH »

Salut,

je seche sur un truc : comment retirer un mot d'une liste de mots contenu dans un fichier ?

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
Thx 8) 8O :idea:
Dernière modification par SPH le mar. 25/juin/2019 12:41, modifié 1 fois.
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Christophe
Messages : 43
Inscription : lun. 22/oct./2018 19:34
Localisation : Haisnes (62)

Re: Retirer un mot d'un fichier

Message par Christophe »

Bonjour SPH

Une methode simple consiste à réécrire ton fichier sans le "la"

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
Avatar de l’utilisateur
SPH
Messages : 4722
Inscription : mer. 09/nov./2005 9:53

Re: Retirer un mot d'un fichier

Message par SPH »

Merci 8)

C'etait fort simple en effet :idea:
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Avatar de l’utilisateur
Mindphazer
Messages : 635
Inscription : mer. 24/août/2005 10:42

Re: Retirer un mot d'un fichier

Message par Mindphazer »

Ou en passant par une liste :

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
Bureau : Win10 64bits
Maison : Macbook Pro M1 14" SSD 512 Go / Ram 16 Go - iPad Pro 32 Go (pour madame) - iPhone 15 Pro Max 256 Go
Avatar de l’utilisateur
SPH
Messages : 4722
Inscription : mer. 09/nov./2005 9:53

Re: Retirer un mot d'un fichier

Message par SPH »

Jamais fait mais interessant 8) :idea:
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Répondre