realbasic-nug.fr
[Top] [All Lists]

Re: ProgressBar

To: REALbasic NUG French <realbasic-nug dot fr at lists dot realsoftware dot com>
Subject: Re: ProgressBar
From: Arnaud Nicolet <arnaud at tribu dot ch>
Date: Mon, 22 Jan 2007 18:26:29 +0100
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot fr at lists dot realsoftware dot com
References: <FA8559B7-CD58-42A0-9263-354F673206C4 at mac dot com> <5CBC8E68-6629-4BD2-A947-404B869791EE at albireo dot biz> <0C111400-12FB-4C15-A6ED-999C2F487C3E at realsoftware dot fr> <4B9AD5A4-7887-4AB3-87B0-EB6680329836 at albireo dot biz> <478ACC93-EC1C-4FFB-AB30-0E726888792D at mac dot com> <0A07A8CA-19DF-412C-868F-15B9511298BC at albireo dot biz> <F129875E-4164-4DA5-AF2B-DCA4AE83E5EE at beaude dot net> <79B4AFFD-743A-4841-B89A-66A8393AB81A at albireo dot biz> <69CFF131-88BE-495D-BA25-DD419CBA07E8 at beaude dot net> <358ED573-57E2-43A9-8C07-E23B8E248CF7 at albireo dot biz> <588DEDFF-4825-4649-A756-F521A70128C6 at tribu dot ch> <897D631B-D8D0-45FA-BF2A-EE416F89EF4E at briq dot com> <218BD5B8-3C7E-4DA4-8437-BA3575614320 at tribu dot ch> <8646C2A5-78AF-4B1D-BEDC-222B57213F2C at beaude dot net> <BD1ADDD1-99BB-49D9-B3A5-F33A40F38A48 at tribu dot ch> <D981CB07-771E-4453-A92A-2A4C07942ECD at beaude dot net> <B8448087-F9CC-4007-870D-532F0D71881B at cretaux dot com>
Aïe, désolé j'ai oublié cette solution.
J'ai eu un cas où ça ne marchait pas pour ce que je voulais alors j'ai commencé à adopter la technique du Dictionary.

Merci pour la remémoration.

Le 22 janv. 07 à 17:37 Soir, antoine cretaux a écrit:

Pour eliminer les doublons d'un tableau j'utilise la fonction indeof des tableau qui te permet de savoir l'index d'un élément dans un tableau. En fait je construit un tableau temporaire que je recopie ensuite

cela donne

Dim tableau as string

For i = 0 to Ubound(MontableaudeDoublons)

///== Je regarde si la valeur active est déja dans mon tableau de résultat
        If Tableau.Indexof MontableaudeBoublons(i) < 0 then
              tableau.append MontableaudeBoublons(i
        End if
Next


C'est tout à la fin Tableau contient mon tableau nettoyé



<Prev in Thread] Current Thread [Next in Thread>