Discussion :

[wholehog2]

Bonsoir à tous,
Je voudrais extraire des valeurs qui sont stockées dans une colonne d'un tableau (en integer) mais il y en a beaucoup et beaucoup se suivent, par exemple:
1,2,3,4,5,6,7,8,9,10,11,12,38,39,40,41,42,43,44,45,46,47,48, etc...
Comment peut on transformer et stocker dans une chaine de caractère les plages de nombres de l'exemple, ce qui donnerait : "1 jusqu’à 12 et 38 jusqu'à 48"
D'avance merci.

[r.morel]

Salut,
Dis nous en un peu plus sur ton tableau : Comment est il instancier ? A quoi serve les autres colonnes ? Doit-on les traiter également ?
A quoi va servir les plages ?

[wholehog2]

Salut et merci de me répondre r.morel
alors mon tableau est un simple tableau unidimensionnel où je stock des nombres entiers issus d'un fichier texte et je les classe dans l'ordre croissant.
Ensuite je crée une chaine qui contient tous les nombres de ce tableau et j'affiche la chaine dans ma form.

Voila si tu veux d'autres renseignements n’hésite pas.

[mactwist69]

C'est pas tellement un problème VB....
C'est un problème d’algorithme !

C'est d'ailleurs un bon exercice... Il faut que tu arrives à le faire...

Il faut faire une boucle qui va lire toutes les valeurs du tableau, mémorisé le premier élément, puis à l'élément suivant, regarder si c'est la valeur précédente+1, et construire ta chaîne au fur et à mesure...

[r.morel]

Il faut faire une boucle qui va lire toutes les valeurs du tableau, mémorisé le premier élément, puis à l'élément suivant, regarder si c'est la valeur précédente+1, et construire ta chaîne au fur et à mesure...

Oui mactwist69 a raison.
Je te conseil d'utiliser une ListOf au lieu d'un tableau. Donc dans ton cas un List(Of Integer)) . Voir l'aide ici : https://msdn.microsoft.com/fr-fr/lib...vs.110%29.aspx

Ensuite je ferais une Function pour retourner ta chaine.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Function CreationChaine(ByVal Liste As List(Of Integer)) As String
        For n As Integer = 0 To Liste.Count - 1 'Boucle sur tous les éléments de ta liste
 
        Next
Return 'Ici chaine finale
    End Function