Doublon tableaux

Hello!
Voila après de multiple recherche je vient m'adresser a vous , voila ce qu'il en est j'insère des données dans un tableaux et ensuite j'aimerais trier ce tableaux afin qu'il n'y est pas de doublon dans celui ci, j'ai essayer plein de chose mais a chaque fois on me dit quee je suis en dehors de l'index  lorsque je fais une boucle pour teste si tableaux(i) <> tableaux(i+1) par exemple(entre d'autre chose que j'ai essayer) donc j'aimerais savoir si quelqu'un pourrai me donner un petit coup de main pour trier ce fichu tableaux qui commence a m'énerver lol
Merci beaucoup pour  votre temps!
ps : le tableaux contient des caractères

Salut,

Je pense que ton problème est que tu as oublier que le premier indice d'un tableau est 0.

Donc pour parcourir un tableau on fait :

For i as Integer= 0 to Montableau.length - 1

   'Ici tu fais ton tri

Next

En détail : le premier élément d'un tableau est 0 don on parcours jusqu'à la taille du tableau MonTableau.length (qui ramène le nombre total d'éléments) - 1 (parce qu'on commence à 0).

@++

Salut!
Merci pour ta reponse non je n'est pas oublie que sa commencer a 0 en effet je fais For i = 0 To tab.Length - 1
mais après pour faire le trie je pense que je doit faire quelque chose de faux donc le problème vient de la comment faire le trie dans un tableaux?
Merci!

Essaye ça : Code issu de http://www.codyx.org/snippet_supprimer-doublons-tableau-chaines_653.aspx

PublicSharedFunction RemoveDuplicatedItems(ByVal array AsString()) AsString()   IfNot (array IsNothing) AndAlso (array.Length > 0) Then     Dim arrayTmp AsNew List(OfString)(array)     arrayTmp.Sort()     For i AsInteger = arrayTmp.Count - 1 to 0 Step -1       If arrayTmp(i).CompareTo(arrayTmp(i - 1)) = 0 Then         arrayTmp.RemoveAt(i)       EndIf     Next     Return arrayTmp.ToArray()   Else     ReturnNothing   EndIfEndFunction

Désolé je pense qu'il y a eu un pb de mise en page.

@++

hmmm ça me semble bien compliquer ça lol 
Si je passe pas par un tableaux je peut sans doute faire un trie directement voila mon code :

 For Each file As String In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath)
                i = i + 1
                 extension = Microsoft.VisualBasic.Right(Namewithoupath, Len(".") + 3)
                combobox1.Items.Add(extension)

            Next

Donc comment faire pour qu'il test si l'extension existe et qu'il ne l'ajoute pas?
Merci beaucoup pour l'aide!

Ok alors,

For Each file As String In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath)
                i = i + 1
                 extension = Microsoft.VisualBasic.Right(Namewithoupath, Len(".") + 3)

if not combobox.items.IsIntern (extension) then
                combobox1.Items.Add(extension)
end if
            Next

C'est Intern ou IsIntern mais effectivement c'était un peu compliqué pour mettre dans une combo. Comme quoi n bout de code ça aide.

@++

hi!
oui desoler de pas avoir mis le bout de code avant
Par contre j'ai essayer ton bout de code mais ni  Intern ou IsIntern n'est reconnu?
Merci a toi!

Désolé j'ai pas Visuel studio sous les yeux. Si tu n'as pas ce que je t'ai dit,

Fait une deuxième boucle pour parcourir ta combo :

For Each file As String In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath)
                i = i + 1
                 extension = Microsoft.VisualBasic.Right(Namewithoupath, Len(".") + 3)

'Ici on parcours la combobox

               For j as integer = 1 to combobox1.Items.count

                        ' Si la valeur est différente de extension et que tu es en fin de parcours alors tu ajoutes
                        if combobox1.items(j) <> extension and j = combobox1.Items.count
                              combobox1.Items.Add(extension)
                        End IF
               Next

Next

Merci!
J'ai essayer et la bizarrement il ne m'ajoute plus rien dans la combo elle reste vide alors que logiquement sa devrait marcher ton raisonnement est bon je le comprend parfaitement alors pourquoi?