Suppression des doublons dans un tableau de string [Résolu]

sanaaSooma 46 Messages postés dimanche 31 décembre 2000Date d'inscription 9 mars 2010 Dernière intervention - 8 déc. 2009 à 13:11 - Dernière réponse : sanaaSooma 46 Messages postés dimanche 31 décembre 2000Date d'inscription 9 mars 2010 Dernière intervention
- 8 déc. 2009 à 15:21
Bonjour,
j'ai programé une application en vb.net qui m'a permet de liare un fichier txt et de recuperer les information desiré en fichier excel ,j'ai stocke la variable qui m'a permet d'extraire les données du fichier txt dans un tableau de string ,mon probleme est comment supprimer les ligne doublés dans ce tableau afin de les inserer dans le fichier excel sans doublement.merci d'avance
Afficher la suite 

3 réponses

Répondre au sujet
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 8 déc. 2009 à 14:00
+3
Utile
Salut,
Il doit surement il y a avoir plus simple grace à .NET.
Mais tu peux essayer de parcourir chaque élément du tableau en l'ajoutant à une collection avec en clé la valeur, ce qui te permet de gérer une erreur si l'erreur si l'élément existe déjà.

Je me relire et me trouve de moins en moins clair...


@+: Ju£i€n
Pensez: Réponse acceptée
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jrivet
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 8 déc. 2009 à 14:01
0
Utile
Re,
Ah bah sinon il y a CA

Je te conseille d'ailleurs d'utiliser beaucoup Codyx, il t'aidera pas mal de fois.



@+: Ju£i€n
Pensez: Réponse acceptée
Commenter la réponse de jrivet
sanaaSooma 46 Messages postés dimanche 31 décembre 2000Date d'inscription 9 mars 2010 Dernière intervention - 8 déc. 2009 à 15:21
0
Utile
MERCI mais j'ai essayer avec le parcour du tableau est s'il trouve des lignes semblable il faut quitter sinon il insere la ligne dans le fichier excel voilà le code

Dim indice As Integer = 0
Dim k As Integer = 0
If Not (tab Is Nothing) AndAlso (tab.Length > 0) Then
For k = 0 To tab.Length - 1
If k <> 0 Then

If tt.Equals(tab(k - 1)) Then
k = tab.Length

Else
xlWorkSheet.Cells((j - c + 10), 1) = tt

End If

End If
Next
End If
tt c'est la variable de recuperation des données du fichier txt mais ce code ça marche pas parceque ds tous les cas il insère ds excel
Commenter la réponse de sanaaSooma

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.