Aller au contenu

  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

Tri des filtres Thunderbird [RESOLU]

leminou

Par leminou
dans Programmation

 Partager

Messages recommandés

leminou Mega Power Extrem Member

leminou

Posté(e)
Posté(e) (modifié)

Bonjour à tous,

 

Je m'arrache les quelques cheveux qui me reste :P à essayer de trier par nom les filtres de Thunderbird.

 

Avec Excel, il n'y a pas moyen, vu que le nombre de champs est irrégulier et/ou répétitif.

 

Si vous connaissez un logiciel ou un moyen voire une piste (je ne suis pas programmeur :P ) pour trier ces filtres :P

 

Voici une partie des filtres...

REM Local Folder #####
version="8"
logging="yes"
name="onedirect.com"
enabled="yes"
type="1"
action="Delete"
action="Delete from Pop3 server"
condition="OR (from,contains,@onedirect.com)"
name="postmaster@parlonsphoto.com"
enabled="yes"
type="1"
action="Delete"
action="Delete from Pop3 server"
condition="OR (subject,contains,Promo) OR (from,contains,postmaster@parlonsphoto.com)"
name="custserv@corel.com"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="AND (from,is,custserv@corel.com)"
name="info@synapse-fr.com"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,is,info@synapse-fr.com)"
name="suivi-livraison@fia-net.fr"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,is,suivi-livraison@fia-net.fr)"
name="neuf_assistance@mailingstats.com"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/A%20garder/Courrier%209"
condition="OR (from,is,neuf_assistance@mailingstats.com)"
name="sovep@tiscali.fr"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,is,sovep@tiscali.fr)"
REM
REM Utilisateur
version="8"
logging="yes"
name="Onedirect"
enabled="yes"
type="1"
action="Delete"
action="Delete from Pop3 server"
condition="OR (from,contains,Onedirect)"
name="webmaster@"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,contains,webmaster@)"
name="Retour de message"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (subject,contains,Re "
name="neuf@mailingstats.com"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/A%20garder/Courrier%209"
condition="OR (from,contains,neuf@mailingstats.com)"
name="parlonsphoto.com"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,contains,parlonsphoto.com) OR (from,ends with,parlonsphoto.com)"
name="forum@lesnumeriques.com"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (subject,contains,forum@lesnumeriques.com)"
name="webmaster@sosinternautes.org"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,contains,sosinternautes.org) OR (from,contains,webmaster@sosinternautes.org)"
name="gpspassion@free.fr"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (subject,contains,gpspassion@free.fr)"
name="forum@forum-auto.com"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,contains,forum@forum-auto.com)"
name="fax@alliancemca.net"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,contains,fax@alliancemca.net)"
name="pp@assiste.com"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,contains,pp@assiste.com)"
name="Forums Knoppix-fr"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,contains,Forums Knoppix-fr)"
name="forum@n9ws.com"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,contains,forum@n9ws.com)"
name="support@fujifilm.fr"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,contains,support@fujifilm.fr)"
name="offert"
enabled="yes"
type="1"
action="JunkScore"
actionValue="100"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Junk"
action="Delete from Pop3 server"
action="Delete"
condition="OR (subject,contains,offert)"
name="eoRezo.com"
enabled="yes"
type="1"
action="Delete"
action="Delete from Pop3 server"
condition="OR (from,contains,eoRezo)"
name="téléphonie"
enabled="yes"
type="1"
action="JunkScore"
actionValue="100"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Junk"
action="Delete from Pop3 server"
action="Delete"
condition="OR (subject,contains,pack téléphonie)"
name="Gagné"
enabled="yes"
type="1"
action="JunkScore"
actionValue="100"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Junk"
action="Delete from Pop3 server"
action="Delete"
condition="OR (subject,contains,gagné)"
name="Grand jeu"
enabled="yes"
type="1"
action="JunkScore"
actionValue="100"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Junk"
action="Delete from Pop3 server"
action="Delete"
condition="OR (subject,contains,Grand jeu) OR (from,contains,surinvitation@surinvitation.com)"
name="sujet contient gratuit"
enabled="yes"
type="1"
action="JunkScore"
actionValue="100"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Junk"
action="Delete from Pop3 server"
action="Delete"
condition="OR (subject,contains,gratuit)"
name="eBay"
enabled="yes"
type="1"
action="Delete"
action="Delete from Pop3 server"
condition="OR (from,contains,eBay) OR (subject,contains,mettre en vente)"
name="2xmoinscher.com Bons plans"
enabled="yes"
type="1"
action="Delete from Pop3 server"
action="Delete"
condition="OR (subject,contains,Bons plans) OR (from,contains,2xMonisCher.com)"
name="reponse@mailing.ibase.fr"
enabled="yes"
type="1"
action="Delete"
action="Delete from Pop3 server"
condition="OR (from,contains,reponse@mailing.ibase.fr)"

 

Merci de vos réponses

Modifié par leminou
Lien vers le commentaire
Partager sur d’autres sites

KewlCat Devil Member !

KewlCat

Posté(e)
Posté(e)
Si vous connaissez un logiciel ou un moyen voire une piste (je ne suis pas programmeur)
Je t'aurais bien indiqué une piste qui utilise awk avec une règle qui "déclenche" sur chaque ligne /^name=/, qui stocke le reste des paramètres de la règle dans un buffer, et qui te recrache tout correctement trié par ordre alphabétique de "name", mais ton "je ne suis pas programmeur" me fait redouter une réaction allergique à cet outil de ta part... (d'autant plus que, si ça se trouve, pour faire plus simple il faudra passer par un fichier temporaire, un | sort et un autre script awk pour redonner la forme initiale.... bref, un truc de dingue)

Je vais attendre de voir si d'autres peuvent t'aider plus simplement ;-)

Lien vers le commentaire
Partager sur d’autres sites
leminou Mega Power Extrem Member

leminou

Posté(e)
  • Auteur
Posté(e)

Bonjour KewlCat, et merci de ta réponse,

 

Tu as bien compris mon niveau de programmeur :P

 

J'ai peut-être une idée, Lancer Word, importer le fichier en txt, faire un rechercher "name" et remplacer par "chr13+name"

 

("name" sera précédé de deux retour chariots)

 

Suivi d'un rechercher "chr13" remplacer par "" ce qui devrait me donner les champs de chaque enregistrement en ligne ?

 

Reste plus qu'a trier et remettre en forme... :P

 

Je vais faire un essai, @ +

Lien vers le commentaire
Partager sur d’autres sites
leminou Mega Power Extrem Member

leminou

Posté(e)
  • Auteur
Posté(e)

Re-bonjour à tous,

 

J'ai trouvé la solution en passant par Word :P

 

Je confirme mes explications dans le message au dessus, mais, dans un ordre différent.

 

Dans un premier temps, il faut mettre en ligne tous les champs... rechercher "^PNom_du_champ" remplacer par "Nom_du_champ" et trier ce qui donne ceci...

name="2xmoinscher.com Bons plans"enabled="yes"type="1"action="Delete from Pop3 server"action="Delete"condition="OR (subject,contains,Bons plans) OR (from,contains,2xMonisCher.com)"
name="custserv@corel.com"enabled="yes"type="1"action="Move to folder"actionValue="mailbox://nobody@Local%20Folders/Inbox"condition="AND (from,is,custserv@corel.com)"
name="eBay"enabled="yes"type="1"action="Delete"action="Delete from Pop3 server"condition="OR (from,contains,eBay) OR (subject,contains,mettre en vente)"
name="eoRezo.com"enabled="yes"type="1"action="Delete"action="Delete from Pop3 server"condition="OR (from,contains,eoRezo)"
name="fax@alliancemca.net"enabled="yes"type="1"action="Move to folder"actionValue="mailbox://nobody@Local%20Folders/Inbox"condition="OR (from,contains,fax@alliancemca.net)"

 

Après, il faut rajouter les retours à la ligne pour chaque champ, ce qui donne ceci...

name="2xmoinscher.com Bons plans"
enabled="yes"
type="1"
action="Delete from Pop3 server"
action="Delete"
condition="OR (subject,contains,Bons plans) OR (from,contains,2xMonisCher.com)"
name="custserv@corel.com"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="AND (from,is,custserv@corel.com)"
name="eBay"
enabled="yes"
type="1"
action="Delete"
action="Delete from Pop3 server"
condition="OR (from,contains,eBay) OR (subject,contains,mettre en vente)"
name="eoRezo.com"
enabled="yes"
type="1"
action="Delete"
action="Delete from Pop3 server"
condition="OR (from,contains,eoRezo)"
name="fax@alliancemca.net"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,contains,fax@alliancemca.net)"
name="forum@forum-auto.com"
enabled="yes"
type="1"
action="Move to folder"
actionValue="mailbox://nobody@Local%20Folders/Inbox"
condition="OR (from,contains,forum@forum-auto.com)"

 

Il ne me reste plus qu'a créer une macro qui me fera tout cela d'un seul clic :P

 

Ce qui est bizarre, c'est que j'avais pensé à Excel et pas à Word :P

Lien vers le commentaire
Partager sur d’autres sites
leminou Mega Power Extrem Member

leminou

Posté(e)
  • Auteur
Posté(e)

Bonjour KewlCat,

 

C'est dans les vieilles têtes que l'on trouve les meilleures cervelles :P

 

Je joint la macro Word pour faire le tri. Il faut soit accepter de mélanger les filtres utilisateur et les filtres normaux soit séparer le fichier en deux, faire deux tris et reconstituer le fichier.

 

La macro

Attribute VB_Name = "NewMacros"
Sub Trier_Filtres_ThunderBird()
Attribute Trier_Filtres_ThunderBird.VB_Description = "Macro enregistrée le 29/12/2007 par leminou"
Attribute Trier_Filtres_ThunderBird.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Trier_Filtres_ThunderBird"
'
' Trier_Filtres_ThunderBird Macro
' Macro enregistrée le 29/12/2007 par leminou
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
	.Text = "^penabled"
	.Replacement.Text = "enabled"
	.Forward = True
	.Wrap = wdFindContinue
	.Format = False
	.MatchCase = False
	.MatchWholeWord = False
	.MatchKashida = False
	.MatchDiacritics = False
	.MatchAlefHamza = False
	.MatchControl = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
	.Text = "^ptype"
	.Replacement.Text = "type"
	.Forward = True
	.Wrap = wdFindContinue
	.Format = False
	.MatchCase = False
	.MatchWholeWord = False
	.MatchKashida = False
	.MatchDiacritics = False
	.MatchAlefHamza = False
	.MatchControl = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
	.Text = "^paction"
	.Replacement.Text = "action"
	.Forward = True
	.Wrap = wdFindContinue
	.Format = False
	.MatchCase = False
	.MatchWholeWord = False
	.MatchKashida = False
	.MatchDiacritics = False
	.MatchAlefHamza = False
	.MatchControl = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
	.Text = "^pactionValue"
	.Replacement.Text = "actionValue"
	.Forward = True
	.Wrap = wdFindContinue
	.Format = False
	.MatchCase = False
	.MatchWholeWord = False
	.MatchKashida = False
	.MatchDiacritics = False
	.MatchAlefHamza = False
	.MatchControl = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
	.Text = "^pcondition"
	.Replacement.Text = "condition"
	.Forward = True
	.Wrap = wdFindContinue
	.Format = False
	.MatchCase = False
	.MatchWholeWord = False
	.MatchKashida = False
	.MatchDiacritics = False
	.MatchAlefHamza = False
	.MatchControl = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With

' Le tri se fait ici

Selection.Find.Execute Replace:=wdReplaceAll
Selection.Sort ExcludeHeader:=False, FieldNumber:="Paragraphes", _
	SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _
	FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
	wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
	wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
	wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _
	:=wdEnglishUK, SubFieldNumber:="Paragraphes", SubFieldNumber2:= _
	"Paragraphes", SubFieldNumber3:="Paragraphes"
Selection.Sort BidiSort:=False, IgnoreThe:=True, IgnoreKashida:=False, _
	IgnoreDiacritics:=False, IgnoreHe:=False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

' il manque une commande pour désélectionner le tableau

With Selection.Find
	.Text = "condition"
	.Replacement.Text = "^pcondition"
	.Forward = True
	.Wrap = wdFindAsk
	.Format = False
	.MatchCase = False
	.MatchWholeWord = False
	.MatchKashida = False
	.MatchDiacritics = False
	.MatchAlefHamza = False
	.MatchControl = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.LtrPara
With Selection.Find
	.Text = "actionValue"
	.Replacement.Text = "^pactionValue"
	.Forward = True
	.Wrap = wdFindAsk
	.Format = False
	.MatchCase = False
	.MatchWholeWord = False
	.MatchKashida = False
	.MatchDiacritics = False
	.MatchAlefHamza = False
	.MatchControl = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
	.Text = "action"
	.Replacement.Text = "^paction"
	.Forward = True
	.Wrap = wdFindAsk
	.Format = False
	.MatchCase = False
	.MatchWholeWord = False
	.MatchKashida = False
	.MatchDiacritics = False
	.MatchAlefHamza = False
	.MatchControl = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
	.Text = "type"
	.Replacement.Text = "^ptype"
	.Forward = True
	.Wrap = wdFindAsk
	.Format = False
	.MatchCase = False
	.MatchWholeWord = False
	.MatchKashida = False
	.MatchDiacritics = False
	.MatchAlefHamza = False
	.MatchControl = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.LtrPara
With Selection.Find
	.Text = "enabled"
	.Replacement.Text = "^penabled"
	.Forward = True
	.Wrap = wdFindAsk
	.Format = False
	.MatchCase = False
	.MatchWholeWord = False
	.MatchKashida = False
	.MatchDiacritics = False
	.MatchAlefHamza = False
	.MatchControl = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
	.Text = "^p^p"
	.Replacement.Text = "^p"
	.Forward = True
	.Wrap = wdFindAsk
	.Format = False
	.MatchCase = False
	.MatchWholeWord = False
	.MatchKashida = False
	.MatchDiacritics = False
	.MatchAlefHamza = False
	.MatchControl = False
	.MatchWildcards = False
	.MatchSoundsLike = False
	.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

Attention, il faut supprimer (et les replacer après le tri) les lignes suivantes...

 

REM Local Folder #####

version="8"

logging="yes"

 

et (mettre à la fin si le tri a été fait en entier, sinon, en début du deuxième fichier avant incorporation au premier fichier)

 

REM

REM Utilisateur

version="8"

logging="yes"

 

Il y a un autre inconvénient que je n'ai pas réussi à résoudre, après chaque tri, il faut cliquer sur OK dans une boite de dialogue ?

 

Si quelqu'un trouve une solution, elle sera la bienvenue.

Lien vers le commentaire
Partager sur d’autres sites

Rejoindre la conversation

Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.
Remarque : votre message nécessitera l’approbation d’un modérateur avant de pouvoir être visible.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

×
 Partager
Aller sur la liste des sujets

  • En ligne récemment   0 membre est en ligne

    • Aucun utilisateur enregistré regarde cette page.
×
×
  • Créer...