AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 10 11 06:01:21
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

GESTION DE LISTES (FUSION, COMPARAISON, TRI...)


Information sur la source

Catégorie :Trucs & Astuces Classé sous : fusion, comparaison, liste, tri, intersection Niveau : Débutant Date de création : 04/07/2008 Date de mise à jour : 04/07/2008 10:55:00 Vu / téléchargé: 4 901 / 493
Auteur : Renfield Ecrire un message privé
Ce membre participe au partage de revenus publicitaires
Note :
Aucune note
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Je manipule pour le boulot des fichiers. Par centaines, voire plus.
J'ai souvent des listes de fichiers, et j'ai besoin de faire des fusions de celles-ci.

de pourvoir extraire les différences entre telle et telle liste, etc.

allez, je sors ma plume en mode romancier :
- est-ce que tous les fichiers de cette liste ont été transférés ?
- attendez, je colle le contenu de la liste dans le premier onglet
- jusque là je vous suis, la manipulation est simple
- ensuite, je sélectionne tous les fichiers, je fais un glisser-deposer dans la deuxieme zone de texte
- oui, la liste 2
- enfin, je cliquer sur un bouton au nom évocateur: "Liste 1 - Liste 2"
- l'opération est dejà terminée ?
- oui, j'ai la liste des éléments restant a transferer dans l'onglet résultat
- il en reste donc a transferer... alors au travail, jeune homme !

bon, bon, je range ma plume, ok !!!!

d'autres exemples ?
Liste1:
pomme
poire
banane
fraise

Liste2:
kiwi
fraise
ananas
pomme

traitement Union: (cumul des deux listes)
pomme
poire
banane
fraise
kiwi
fraise
ananas
pomme

tri de la liste resultat:
ananas
banane
fraise
fraise
kiwi
poire
pomme
pomme

suppression des doublons (pas besoin de trier pour effectuer cette operation):
ananas
banane
fraise
kiwi
poire
pomme

si je demande maintenant...

Intersection:
fraise
pomme

Liste 1 - Liste 2:
poire
banane

Liste 2 - Liste 1:
kiwi
ananas

vous le voyez, rien de bien sorcier, mais un outil utile, je l'espère.


(Pour votre santé, évitez de grignoter. Mangez au moins cinq fruits et légumes frais !)

 

Conclusion

Une mini source, faites rapidement ce matin.

Des algorithmes pas plus travaillés que ça (ils tournent, point barre)
Une interface moche, des temps de réponse discutables...

bref, pas une révolution en soit ^^

mais cette source est utile (à moi en tout cas) au boulot...
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Historique

04 juillet 2008 10:55:00 :
Ajout d'une capture d'ecran

Commentaires et avis

signaler à un administrateur
Commentaire de LIBRE_MAX le 04/07/2008 21:41:21

Salut,
Pas encre tester l' ensemble.
Il n' y a pas de doute que ça fonctionne.

J'ai parcouru le code, et j' avoue que je m' y perd un peu.
Mais pour la suppression, il me semble que ça devrait ressembler à ceci:

Private Sub CcBtnRemoveDuplicates_Click(Index As Integer)

'tester si la liste comporte au moins deux éléments .
If CcTxtList.Count=1 Then Exit Sub

'Voir même tester sur CcTxtList.Count=2
'et comparer le premier avec le deuxième.

Dim xsItems() As String
Dim i As Long
Dim k As Long
  BeginJob
  xsItems = Split(CcTxtList(Index).Text, vbCrLf)
  For i = 0 To UBound(xsItems)-2
     If LenB(xsItems(i)) Then
        For k = i+1 To UBound(xsItems)
           If LenB(xsItems(k)) Then
               If xsItems(i) = xsItems(k) Then
                   xsItems(k) = vbNullString
               End If
           End If
       Next k
     End If
  Next i
        CcTxtList(Index).Text = Join(xsItems, vbCrLf)
    EndJob
End Sub

signaler à un administrateur
Commentaire de Renfield le 05/07/2008 06:51:16 administrateur CS

dans un monde ou les items seraient triés peut-être bien ^^
(For k = i+1 To UBound(xsItems))

pour les cas particuliers (0, 1, ou deux elements...) j'ai pas traité. je l'ai dit: les algos fonctionnent, point barre.

signaler à un administrateur
Commentaire de LIBRE_MAX le 05/07/2008 14:22:11

euh..trié ?! pas forcément
Si je compares M avec F, pourquoi recomparer F avec M ?

Et puis comme tu dis: ça marche ça marche ..Et combien même on
aura à traiter une liste de 90 000 items, quelques secondes de plus
ou de moins, ne changera pas grand chose au cours de l' histoire.

Renfield, je te sens irrascible ce matin.
Alors qoui ? t' as pas encore fini tes cinq fruits ?  ;)

Sur ce, je me barre :-)

signaler à un administrateur
Commentaire de Renfield le 05/07/2008 22:00:46 administrateur CS

mea culpa, tu as raison pour le +1
au petit reveil, je suis excusable ^^

sorry si j'ai pu paraitre mal luné.

concernant l'optimisation, ca ne viendra probablement pas, dans cette source, j'ai fait ca vite fait, pour gagner du temps au boulot... vu le temps gagné, ca se compte pas en secondes ^^

et ca me laisse du temps pour autr chose que le boulot :P

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Tri colonne liste view [ par tom42 ] Je possede une liste view avec une colonne date.Quand je clic sur le titre de la colonne pour trier par date corissante le trie se fait dabord sur le Comment faire un tri alphabetique d'une liste de nom? [ par Cerber ] Je desire trier une liste de nom par ordre alphabetique.Le programme prend pour l'instant des données dans une page excel et crée une page html ou il pb de code dans listbox pl colonnes [ par PDT ] Set db = OpenDatabase("base.mdb")reqlist = "select champ1, champ2 from table where (champ3 = 1)"Set tri = db.OpenRecordset(reqlist)If tri.RecordCount comparaison 2 feuilles excel [ par philou1 ] Bonjourje cherche à comparer 2 feuilles A et B comprenant une liste de 4 caractères (exemple xxyy en celluleA 1, zz34 en cellule A2, etc...) et affich Tri suivant deux zone de liste modifiable [ par lestat5 ] Bonjour,Je possède un formulaire avec trois zones de liste modifiable.Je choisit un element dans la première, j'obtiens les choix correspondant dans l Comment trier une liste déroulante créée dans la barre d'outils [ par cutkilleuse ] salut tout le monde,J'ai un gros soucis concernant les tris!!! ='(A partir d'un formulaire j'ai un bouton qui me permet de créer mes propres requetes, Tri de 2 champs d'une liste view,,,,,urgent:) [ par Marnilla ] Salut;En faite je souhaiterais juste savoir s'il y a possiblité de trier 2 champs dans une listeview.Ex : une listview qui liste des arrêts Fusion Word avec une double source, c'est possible?? [ par youplaboom69 ] Bonjour a toutes et a tous...   Comme d'habitude en cas de probleme c'est vers cous que je me tourne...je vous expose donc la situation d&#2 Tri par fusion [ par meoliver ] s'il vous plait  je voudrais savoir si quelqu'un pourrait me donner un algorithme de Tri par fusion.Merci d'avance Tri alphabétique d'un tableau [ par saiansupacrew59 ] J'ai créé un fichier avec une liste de cd et je visualise cette liste dans un grid que je passe avant dans un tableau. Je souhaite trier cette liste p


Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,281 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.