Discussion :

[billybobbonnet]

Hello,

J'ai un tableau d'integer de taille non définie. Je veux en extraire des infos mais je m'y perds un peu.

Je vous donne un cas concret avec les questions en commentaires:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Paragraphes () as string
Dim Phrases () as string
Dim MonTableau() as integer
 
Paragraphes = grosseString.Split (vbCrlf)
 
For each paragraphe in Paragraphes
  Phrases = paragraphe.split (" ")
  'là je veux récupérer le nombre de phrases pour le paragraphe courant dans MonTableau (Numéro du paragraphe)
Next
  'Une fois que le MonTableau est rempli, je veux en extraire le nombre de paragraphes enregistrés, et le nombre de phrases du plus petit paragraphe et celui du plus grand, et enfin nombre de phrases moyen par paragraphe.

Je me perds un peu entre Ubound, getlength, etc.

Merci pour votre aide

[Invité]

Bonjour,

si j'ai bien compris votre problème, voici ma réponse:

Code :

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

paragraphe.Count()

[billybobbonnet]

Merci pour le .count, mais ce que je cherche particulièrement c'est ce que j'ai noté ensuite:

Une fois que le MonTableau est rempli, je veux en extraire le nombre de phrases du plus petit paragraphe et celui du plus grand, et enfin nombre de phrases moyen par paragraphe.

EDIT précision: J'ai ici utilisé un tableau, pensant qu'il y avait des fonctions permettant d'obtenir la taille du plus gros éléments, celle du plus petit et la moyenne des tailles sans itération sur tous les éléments. Si vous me confirmez que pour la moyenne, ça n'est pas possible, quel contrôle me conseillez vous pour stocker mes paragraphes?

[billybobbonnet]

J'ai trouvé la réponse tout seul. Il faut utiliser Linq et le tour est joué en une ligne.

Code :

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

1
2
3
        Dim stMax As Integer = Paragraphs.Max(Function(w) w.Length)
        Dim stMin As Integer = Paragraphs.Min(Function(w) w.Length)
        Dim stAv As Integer = Paragraphs.Average(Function(w) w.Length)