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

Messages postés
46
Date d'inscription
dimanche 31 décembre 2000
Dernière intervention
9 mars 2010
- 8 déc. 2009 à 13:11 - Dernière réponse :
Messages postés
46
Date d'inscription
dimanche 31 décembre 2000
Dernière intervention
9 mars 2010
- 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 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
- 8 déc. 2009 à 14:00
3
Merci
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

Merci jrivet 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 86 internautes ce mois-ci

Commenter la réponse de jrivet
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
- 8 déc. 2009 à 14:01
0
Merci
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
Messages postés
46
Date d'inscription
dimanche 31 décembre 2000
Dernière intervention
9 mars 2010
- 8 déc. 2009 à 15:21
0
Merci
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.