Discussion :

[gastoncs]

Bonsoir,

je me casse les dents depuis 1 heure sur ce problème.
J'ai crée un tableau à 4 indices et pour chaque indice j'affecte la position de début du texte que je cherche dans une chaîne de caractère, ce qui donne ceci :

Code :

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

1
2
3
4
5
Dim tableau(3) As Integer
            tableau(0) = dernier_ticket.IndexOf("Luxe :") 
            tableau(1) = dernier_ticket.IndexOf("Moyen :") 
            tableau(2) = dernier_ticket.IndexOf("Basique :") 
            tableau(3) = dernier_ticket.IndexOf("Neant :")

ensuite je souhaite extraire de ce tableau, la plus petite valeurs des 4 entrées et l'affecté à une variable mais sans prendre en compte les valeurs =-1
(oui car en effet si IndexOf retourne -1 c'est qu'il n'a pas trouvé le texte passé en paramètre)

Code :

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

1
2
3
4
5
6
            Dim i As Integer
            For i = 0 To tableau.GetLowerBound(0) - 1
                If tableau(i) <> -1 Then
                    test_choix = tableau(i)
                End If
            Next

Mais cela ne fonctionne pas j'ai toujours 0 pour ma var test_choix, je dois me tromper quelque part !

[Sehnsucht]

Le problème est là tableau.GetLowerBound je te laisse consulter sa documentation pour comprendre

[gastoncs]

Oui effectivement : Obtient l'index du premier élément de la dimension spécifiée dans le tableau.
dans ce cas j'aurais toujours 0 effectivement. dois je utiliser une collection ?

[Sehnsucht]

un tableau c'est déjà une collection tu devrais chercher dans la documentation s'il n'y aurait pas une méthode qui fait ce que tu souhaites quelque chose qui permettrait d'obtenir l'index du dernier élément de la dimension spécifiée dans le tableau. par exemple

[gastoncs]

non je n'ai pas trouvé !!!

[Sehnsucht]

Bah faut apprendre à chercher (ça te sera utile pour la suite) la réponse se trouve sur cette page (et pas très loin de celle que tu as utilisée par erreur de surcroit)

[gastoncs]

Mais oui suis je bete mille excuse pour mes questions sans meme avoir chercher profondement donc au final si cela peu servir voila ce que j'utilise :

Code :

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

1
2
Array.Sort(tableau)
            test_choix = tableau(0)

et ainsi j'obtient la valeur mini.
merci sehnsucht désolé de t'avoir dérangé et merçi du temps que tu ma consacré.

[Sehnsucht]

Ça va pas t'aider des masses ça ; si tu tries ton tableau et que tu prends la première valeur ; si jamais ton tableau contient des -1 la valeur minimale (et donc la première) sera ce -1, chose que tu disais ne pas vouloir dans un précédent post

[gastoncs]

ah oui ben pour les -1 j'ai fait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 Dim i As Integer
            For i = 0 To tableau.Length - 1 'on parcour le tableau des libelles
                If tableau(i) = -1 Then 'et si on trouve -1 on le place en haut du tableau
                    tableau(i) = 999 'on affecte une valeur forte
                End If
            Next i
 
            Array.Sort(tableau) 'on trie le tableau le premier element etant la plus petite valeur
            test_choix = tableau(0) 'on cherchera entre la position de nature et test_choix

pas mal non ?
je suis fier de moi la !

[Sehnsucht]

T'as pas l'impression que ton tri sert à rien ?

Déjà tu as (en partie) trouvé ce que tu cherchais en utilisant tableau.Length (personnellement je pensais te faire trouver GetUpperBound qui se trouvait juste 2 lignes en dessous de GetLowerBound dans la documentation mais ça revient au même)

Ensuite, toi tu parcours ton tableau, en remplaçant les -1 par une grosse valeur, puis tu tries et enfin tu prends la première valeur ; pourquoi tu ne profites pas de ton parcours initial (celui où tu remplaces par des grosses valeurs) pour chercher ton minimum directement ; par exemple tu pourrais faire (en gros le code que tu avais commencé dans ton premier post du sujet) :

1. initialiser ton test_choix à une grande valeur
2. parcourir ton tableau
3. si la valeur courante est -1 on ne fait rien
4. sinon si la valeur courante est plus petite que test_choix on la remplace

Moralité en fin de boucle test_choix contiendra la plus petite valeur qui n'est pas -1

[shayw]

Bonjour/Bonsoir

Pourquoi mettre dans un tableau les indexof et ne pas chercher la plus petite valeur directement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
dim minval as integer
minval = dernier_ticket.length 
dim thestrings as new list(of string)
  thetrings.add ("Luxe :"    )
  thetrings.add ("Moyen :")
  thetrings.add ("Basique :")
  thetrings.add ("Neant :" )
 
 for each item in thestrings
   if (dernier_ticket.IndexOf(item) < minval) andalso dernier_ticket.IndexOf(item) >-1  then
      minval =  dernier_ticket.IndexOf(item)
   end if 
next

[Sehnsucht]

echo ?! c'est un peu ce que je viens de dire (à ceci près que tu le fais directement là où je parlais du tableau qu'il évoque [car il a peut-être besoin de ses IndexOf plusieurs fois et dans ce cas là faut bien les stocker]) sans parler du fait que calculer 3 fois le même IndexOf par item c'est peu judicieux

[gastoncs]

sehnsucht j'ai du mal à saisir ce que tu me dit car :
Ensuite, toi tu parcours ton tableau, en remplaçant les -1 par une grosse valeur, puis tu tries et enfin tu prends la première valeur ; pourquoi tu ne profites pas de ton parcours initial (celui où tu remplaces par des grosses valeurs) pour chercher ton minimum directement
si je fait ca j'obtiendrais en minimum -1 ! or je commence à chercher le minimum positif.

est ce que tu pense que ma méthode ralentira mon programme ?

[Sehnsucht]

Ensuite, toi tu parcours ton tableau, en remplaçant les -1 par une grosse valeur, puis tu tries et enfin tu prends la première valeur

Ça c'est ce que tu fais toi

Code :

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

1
2
3
For i = 0 To tableau.Length - 1
    If tableau(i) = -1 Then tableau(i) = 999
Next

Ce qui est déjà bancal; imagine toutes les valeurs de ton tableau sont plus grandes que 999 sauf les -1 même en les augmentant comme cela tu récupèrerais la mauvaise valeur

pourquoi tu ne profites pas de ton parcours initial (celui où tu remplaces par des grosses valeurs) pour chercher ton minimum directement

Ça c'est ce que je te conseille de faire (par exemple) ; après tout en se basant sur le code juste au dessus ; t'as juste à faire "si c'est -1 ; je fais rien (autrement dit si c'est pas -1), sinon si c'est plus petit que la valeur mini courante [que je conserve] je la remplace"

Code :

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

1
2
3
4
5
6
7
8
valeur_mini = 999 ' ou autre valeur forte genre Integer.MaxValue
For i = 0 To tableau.Length - 1
    If tableau(i) <> -1 Then ' Si c'est pas -1
        If tableau(i) < valeur_mini Then ' Si c'est plus petit que mon mini actuel
            valeur_mini = tableau(i) ' on remplace
        End If
    End If
Next

Et après on peut condenser les 2 If en un seul et on retombe en gros sur le code montré par shayw

De toute façon y'a 50 manières (plus ou moins alambiquées ) de faire cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim mini = tableau.Where(Function(num) num <> -1).Min
' qu'on peut aussi écrire
Dim mini = Aggregate num In tableau Where num <> -1 Into Min
 
' ou bien
Dim mini = tableau.OrderBy(Function(num) num).First(Function(num) num <> -1)
' qu'on peut aussi écrire
Dim mini = Aggregate num In tableau Order By num Into First(num <> -1)
 
' ou bien (plus extravagant encore)
Dim mini = tableau.OrderBy(Function(num) num).SkipWhile(AddressOf (-1).Equals).First
' qu'on peut aussi écrire
Dim mini = Aggregate num In tableau Order By num Skip While num = -1 Into First()
 
' etc.

est ce que tu pense que ma méthode ralentira mon programme ?

Ça dépend principalement de la taille de ton tableau ; mais c'est surtout un non-sens logique ; tu parcours ton tableau (donc comme tu passes sur chaque élément un par un tu as les moyens de les regarder pour prendre le plus petit) tu augmentes les -1 pour qu'il soit plus grands ; tu tries et tu prends le premier.

Donc si on prenait une situation du "quotidien" ; tu cherches la plus petite personne non naine (nain = -1 ici) tu commences par les regarder un par un, les nains tu leur donnes des échasses puis tu les tries du plus petit au plus grand et tu prends le premier.
Ma solution, c'est tu les regardes un par un en gardant toujours le plus petit à côté de toi hors du rang, si c'est un nain, tu zappes et tu passes direct au suivant ; et quand t'en trouve un plus petit que celui qui est avec toi tu le remplaces par le nouveau ; au final quand t'as fini de regarder tout le monde, t'as bien le plus petit avec toi c'est quand même mieux non ? [et j'aurai le prix de la métaphore de l'année là ]

[gastoncs]

belle métaphore en tout cas tes explications sont claires, je vais de suite me mettre au travail. merci pour ton aide sehnsucht