moyenne des éléments d'un tableau d'integer

Version imprimable

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:

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

30/06/2014, 09h34
Invité

Bonjour,

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

Code:

paragraphe.Count()
30/06/2014, 10h15
billybobbonnet

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

Citation:

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?

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

Code:

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)