[Résolu2x]Comment supprimer toute une ligne contenant mot spécifique ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu2x]Comment supprimer toute une ligne contenant mot spécifique ?

elojar

Bonjour,
je suis au boulot et j'ai un travail asez récurent à faire. J'ai un fichier .txt et je dois le trier. A noter que certaines lignes, que je dois supprimer, apparaissent souvent. Je souhaiterais supprimer une ligne entière contenant un mot spéficique (quelque soit ce qu'il y a avant et apres sur la meme ligne)

J'ai regardé dans Word et StarOffice8 mais je n'ai rien trouvé, ni sur google d'ailleurs.

Quelqu'un aurait une idée de comment faire la manip ?

Merci !

Message édité par elojar le 24-11-2005 à 09:38:33

Publicité

olivthill

:hello:
Voici un petit script qui fait cela :

Code :

' Supprime toutes les lignes qui contiennent un mot clef
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f_in, f_out
mot_clef = "titi"
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f_in = fso.OpenTextFile("toto.txt", ForReading)
Set f_out = fso.OpenTextFile("toto_tmp.txt", ForWriting, true)
Do Until f_in.AtEndOfStream
une_ligne = f_in.ReadLine
token_pos = Instr(une_ligne, mot_clef)
If (token_pos = 0) Then
' Recopie la ligne si elle ne contient pas le mot clef
f_out.WriteLine une_ligne
End If
Loop
f_in.Close
f_out.Close
' Remplace toto.txt par le nouveau fichier toto_tmp_.txt
fso.DeleteFile "toto.txt", true
fso.MoveFile "toto_tmp.txt", "toto.txt"

- Copier ces lignes dans un fichier que l'on nommera par exemple delline.vbs.
- Changer le contenu du mot_clef et le nom du fichier.
- Lancer ce script en cliquant dessus à partir de Windows Explorer, ou bien, dans une fenêtre de commande en tappant cscript.exe delline.vbs.

olivthill

En fait, il y a une manip plus simple :

Code :

FIND /V titi toto.txt >new_toto.txt

ou bien sous Unix

Code :

grep -v titi toto.txt >new_toto.txt

elojar

Ouch ca fait mal !
J'ai fais le script ca marche tres bien. Pour la 2e manip j'ai pas essayé j'ai pas trop compris comment il fallait faire mais la 1ere me plait tres bien ^^

Merci chef !

elojar

C'est encore moi ^^
Etant donné que tu as l'air assez bon en la matière en testant un peu je me rend compte que je pourrais améliorer le système pour encore plus d'automatisation.

Imagine que j'ai plusieurs .txt dans le meme dossier. Je voudrais que la modification précédente s'effectue pour tous les .txt en meme temps, c'est possible ?
Et deuxièment, imagine que je veuilles faire cette manip pour plusieurs chaines de caractères différentes. Est-ce possible de faire tout dans un seul script ou dois-je executer un script différent à chaque fois ?

Je suis difficile je sais mais bon si je peux gagner encore un peu de temps et moins m'abimer les yeux sur l'écran je suis pas contre

En tout cas merci pour l'aide !

elojar

T'es plus là mon ami olivthill ? ^^
Tu me dira c'est le week-end ca presse pas mais si j'avais la soluce pour lundi ce serait impec :bounce:

olivthill

Excuses-moi, je m'étais caché parce que je préfère éviter de donner des programmes que je n'ai pas testés, et je n'avais tellement le temps de le faire.

Mais, maintenant, c'est bon, voici un nouveau script qui traite tous les fichiers ."txt" du répertoire courant. Pour chaque fichier, les lignes sont supprimées quand elles contiennent au moins l'un des trois mots clef "toto", "titi", "tutu". S'il y a d'autres mots à filtrer, il faut dupliquer la ligne 25.

Code :

' Boucle sur tous le fichiers ".txt" du répertoire courant
' et supprime toutes les lignes qui contiennent un mot clef
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f, fc, f_in, f_out
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.GetFolder("." )
Set fc = f.Files
For Each f1 in fc
If (fso.GetExtensionName(f1) = "txt" ) Then
old_fic_nom = f1.name
new_fic_nom = fso.GetBaseName(f1) & ".txt_tmp"
Set f_in = fso.OpenTextFile(old_fic_nom, ForReading)
Set f_out = fso.OpenTextFile(new_fic_nom, ForWriting, true)
Do Until f_in.AtEndOfStream
une_ligne = f_in.ReadLine
If (Instr(une_ligne, "toto" ) = 0 _
and InStr(une_ligne, "titi" ) = 0 _
and InStr(une_ligne, "tutu" ) = 0) Then
' Recopie la ligne si elle ne contient pas les mots clefs
f_out.WriteLine une_ligne
End If
Loop
f_in.Close
f_out.Close
' Remplace l'ancien fichier par le nouveau
fso.DeleteFile old_fic_nom, true
fso.MoveFile new_fic_nom, old_fic_nom
End If
Next

Message édité par olivthill le 27-11-2005 à 23:02:25

elojar

Merci beaucoup olivthill tu peux pas savoir comment ca va me rendre service :jap: :jap: :jap:

akwell

hello,

je sais que je remonte un vieux topic

mais je cherche l'inverse,
je souhaite garder uniquement les lignes qui gardent un mot clé

merci

Z_cool

HFR profile rating:⭐⭐⭐⭐

olivthill a écrit : a écrit :

ou bien sous Unix

µIl existe un GREP sous windows.

perso; je l'utilise tout les jours

---------------
#mais-chut ᓚᘏᗢ

Publicité

Z_cool

HFR profile rating:⭐⭐⭐⭐

http://gnuwin32.sourceforge.net/packages/grep.htm

---------------
#mais-chut ᓚᘏᗢ

FORUM HardWare.fr

Windows & Software

Logiciels

[Résolu2x]Comment supprimer toute une ligne contenant mot spécifique ?

Sujets relatifs
c'est quoi ce truc ou comment le supprimer ??	Restauration WIN XP en ligne de commande ?
partition supprimer	comment supprimer complètement BitDefender ?
connextion a partir autre ligne	connextion a partir autre ligne
probleme de capacité pour ma ligne chez free	supprimer les licence wma
supprimer les licences wma	Deux FAI sur la même ligne de telephone
Plus de sujets relatifs à : [Résolu2x]Comment supprimer toute une ligne contenant mot spécifique ?

Page générée en 0.057 secondes