1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

TUTO [WD23] Code du filtre sur billet RSS

Discussion dans 'Windev' créé par jeannadi, Juin 1, 2018.

Tags:
  1. jeannadi

    jeannadi Member

    Inscrit:
    Mai 9, 2018
    Messages:
    45
    J'aime reçus:
    16
    Je reviens sur l'exemple WD Lecteur RSS fourni avec windev (x?) modifié par moi pour filtrer et éliminer les messages dénués d'intêret.
    Pour l'instant le code du filtrage est le suivant :
    <<<
    Code (Windev):

        // Code de filtrage des billets
        // Si Le billet contient un mot de la liste blanche : trblanc++
        // Si Le billet contient un mot de la liste noire : trnoir++
        // Traitement liste blanche
        Trblanc=0
        Trnoir=0
     
        SI BoutonOnOff_b="ON" ALORS
            POUR Tri=1 À 12
                SI Tabcle_b[Tri]="" ALORS CONTINUER
                    SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (stUnBillet.sTitre,Tabcle_b[Tri])>0 ALORS
                    Trblanc++
                    FIN
                    SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (stUnBillet.sDescription,Tabcle_b[Tri])>0 ALORS
                    Trblanc++
                    FIN
                FIN
            FIN
        SI BoutonOnOff_n="ON" ALORS
            POUR Tri=1 À 12
                SI Tabcle_n[Tri]="" ALORS CONTINUER
                SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (stUnBillet.sTitre,Tabcle_n[Tri])>0 ALORS
                    Trnoir++
                FIN
                SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (stUnBillet.sDescription,Tabcle_n[Tri])>0 ALORS
                    Trnoir++
                FIN
            FIN
        FIN
        // S'il y a plus de mots noirs que blancs on élimine le billet
        SI Trnoir>Trblanc ALORS TrElimines++
        SI Trnoir>Trblanc ALORS CONTINUER

     
    >>>


    Commentaires :

    1 Il y a un bouton on/off qui permet de désactiver chacune des listes en entier.
    2 L'idée globale est 'si il y a plus de mots de la liste noire que de mots de la liste blanche, on évite le billet'
    3 Pour le moment, on traite le mot clé littéralement. L'algo est 'case sensitive' selon la saisie de l'utilisateur. Je verrai si traiter mot+Mot+MOT ne fait pas trop chuter les performances. En tous cas il faudra pouvoir le débrayer...

    Bien sûr il va encore évoluer en fonction du niveau de pollution (dés)informative et je publierai les mises à jour

    A+
     
    Tags:
    suenodesign, Fakirato et joker aiment ça.
  2. joker

    joker New Member
    MEMBRE WX

    Inscrit:
    Jan 30, 2018
    Messages:
    0
    J'aime reçus:
    13

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    Je reviens sur l'exemple WD Lecteur RSS fourni avec windev (x?) modifié par moi pour filtrer et éliminer les messages dénués d'intêret.
    Pour l'instant le code du filtrage est le suivant :
    <<<
    Code (Windev):

        // Code de filtrage des billets
        // Si Le billet contient un mot de la liste blanche : trblanc++
        // Si Le billet contient un mot de la liste noire : trnoir++
        // Traitement liste blanche
        Trblanc=0
        Trnoir=0
     
        SI BoutonOnOff_b="ON" ALORS
            POUR Tri=1 À 12
                SI Tabcle_b[Tri]="" ALORS CONTINUER
                    SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (stUnBillet.sTitre,Tabcle_b[Tri])>0 ALORS
                    Trblanc++
                    FIN
                    SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (stUnBillet.sDescription,Tabcle_b[Tri])>0 ALORS
                    Trblanc++
                    FIN
                FIN
            FIN
        SI BoutonOnOff_n="ON" ALORS
            POUR Tri=1 À 12
                SI Tabcle_n[Tri]="" ALORS CONTINUER
                SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (stUnBillet.sTitre,Tabcle_n[Tri])>0 ALORS
                    Trnoir++
                FIN
                SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (stUnBillet.sDescription,Tabcle_n[Tri])>0 ALORS
                    Trnoir++
                FIN
            FIN
        FIN
        // S'il y a plus de mots noirs que blancs on élimine le billet
        SI Trnoir>Trblanc ALORS TrElimines++
        SI Trnoir>Trblanc ALORS CONTINUER

     
    >>>


    Commentaires :

    1 Il y a un bouton on/off qui permet de désactiver chacune des listes en entier.
    2 L'idée globale est 'si il y a plus de mots de la liste noire que de mots de la liste blanche, on évite le billet'
    3 Pour le moment, on traite le mot clé littéralement. L'algo est 'case sensitive' selon la saisie de l'utilisateur. Je verrai si traiter mot+Mot+MOT ne fait pas trop chuter les performances. En tous cas il faudra pouvoir le débrayer...

    Bien sûr il va encore évoluer en fonction du niveau de pollution (dés)informative et je publierai les mises à jour

    A+
    Cliquez pour agrandir...
    :)

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    Est ce que tu travailles sur ce projet pour te former ou bien as tu une idée en tête genre :
    - améliorer l'existant

    Si c'est pour le coté "formation", tu peux partager ton projet qui est un bon sujet de discussion

    En tous cas, ThankS pour ton partage :cool:
     
  • jeannadi

    jeannadi Member

    Inscrit:
    Mai 9, 2018
    Messages:
    45
    J'aime reçus:
    16
    Non, j'ai expliqué pourquoi. J'ai un réel besoin de filtrer les informations. Tout le monde devrait l'avoir, d'ailleurs ;-)

    Je réfléchis à implémenter la saisie des mots clés, dont j'avais déjà partagé une photo à propos des champs indicés où je m'étonnais qu'il n'existe pas de case à cocher indicées, ce qui m'aurait bien arrangé.

    Les suggestions sont les bienvenues surtout concernant le filtrage que ce soit au niveau optimisation du code ou tactique d'élimination.
     
  • Partager cette page

    Chargement...