1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Linq et list of incrémentation variable [Résolu]

Signaler
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
 -
Messages postés
15928
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
13 mai 2021
 -
Bonjour le Forum,

Avec 
Option Strict On
Option Explicit On
et en ayant décoché la référence Microsoft.VisualBasic

Je dispose d'une List Of dont une variable string contient
003
010
012
002

Je souhaite récupérer dans une variable string le + grand nombre et faire + 1 sur celui-ci.

J'ai utilisé : 
        Dim newCode As String

        For Each item In ListePersonnel.Select(Function(c) c.Code).OrderByDescending(Function(c) c.ToString)
            newCode = CStr(CInt(CDbl(item.ToString) + 1).ToString("000"))
            Exit For
        Next
        MessageBox.Show(newCode)

newCode me renvoie correctement "013".

Est-ce la bonne méthode ???

J'essaie de passer par une syntaxe du genre 
        Dim test As String = (From y In ListePersonnel.Select(Function(x) x.Code).OrderByDescending(Function(c) c.ToString)).First.ToString
        test = CStr(CInt(CDbl(test) + 1).ToString("000"))
        MessageBox.Show(test)

test me renvoie correctement "013".

Merci de vos suggestions.

jean-marc
A voir également:

2 réponses

Réponse 1 / 2
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
 26
Effectivement c'est pas très lisible 
        Dim test As String = CStr(CInt(CDbl((From y In ListePersonnel.Select(Function(x) x.Code).OrderByDescending _
                                             (Function(c) c.ToString)).First.ToString) + 1).ToString("000"))
        MessageBox.Show(test)
Signaler
Messages postés
57
Date d'inscription
jeudi 23 février 2017
Statut
Membre
Dernière intervention
10 mai 2017
Bonjour cs_JMO

effectivement le script il est bon
Réponse 2 / 2
Messages postés
15928
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
13 mai 2021
 544
Bonjour JM,

Si tous les "nombres" de la liste ont bien ce format alors l'ordre alphabétique = l'ordre numérique.
Donc pour trier tu n'a is pas besoin de tous les convertir, sur 1000 enregistrements tu vas gagner un peu de temps d'exécution.

En plus, tu peux sortir les valeurs min et max avec le sujet méthodes éponymes. 


Dim toto() as string = {"003","010","012","002"}
Dim max as string = (Convert.Tostring(toto.Max()) + 1).Tostring("000")
Signaler
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
 26
Bonjour Whismeril,
Merci pour tes explications.
J'ai essayé ton code (avec correction) 
                Dim toto() As String = {"003", "010", "012", "002"}
                Dim max As String = (CDbl(Convert.ToString(toto.Max())) + 1).ToString("000")
max retourne bien "013"

Par contre, je n'arrive pas à adapter avec ma ListePersonnel.

Bonne journée,
jean-marc
Signaler
Messages postés
15928
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
13 mai 2021
 544
Je m'aperçois qu'en j'ai tapé une coquille 

Dim toto() as string = {"003","010","012","002"}
Dim max as string = (Convert.ToInt32(toto.Max()) + 1).Tostring("000")


Pour l'adaptation à ta liste, un truc comme ça 
ListePersonnel.Max(Function(c) c.Code)


De tête, comme le message précédent ;)
Signaler
Messages postés
15928
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
13 mai 2021
 544 >
Messages postés
15928
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
13 mai 2021
En complément, Max parcoure la collection une seule fois, alors qu'un tri la parcourra autant de fois que nécessaire.
Donc Max est plus rapide, ou pareil quand la collection est déjà triée.
Répondre Posez votre question