Comment analyser pour les entiers dans les éléments individuels dans un tableau

Question

Je veux être en mesure de lire un tableau un ensemble spécifique de lignes qui se rapportent à un certain nom, j'ai dans un autre tableau

par exemple:

dans le tableau de noms j'ai "Ben" stocké comme nom et je veux voir si l'autre tableau contient également le nom "Ben" et si elle le fait, il ajoutera les scores de chaque ligne où "Ben" est mentionné

autre tableau:

"Ben a 5" "Nash a 6" "Ben a 4" "Josh a 1"

il ajoutera seulement 5 et 4 pour obtenir 9

le programme enregistre alors le nombre calculé à une liste.

For Each n As String In commonNames 'for the example the commonNames array contains Ben" 
       If names.Contains(n) Then 
        'add each of their scores and divide by how many their are 
       End If 
      Next 
      Console.ReadLine() 
      For Each n As String In originames 
       'add each score to the user and divide by 1 

toute aide serait apprécié les gars :)

Answer 1

Dim data = {"Ben got 5", "Nash got 6", "Ben got 4", "Josh got 1", "Ziggy got 42"} 
Dim names = {"Ben", "Ziggy"} 
Dim results(names.Length - 1) As Int32 

For Each item In data 
    For n As Int32 = 0 To names.Length - 1 
     ' see if this item starts with name data 
     If item.StartsWith(names(n)) Then 
      ' if so, parse out the value 
      Dim parts = item.Split(" "c) 
      results(n) += Int32.Parse(parts(parts.Length - 1)) 
      Exit For 
     End If 
    Next 
Next 

' show contents of parallel arrays: 
For n As Int32 = 0 To names.Length - 1 
    Console.WriteLine("{0} total = {1}", names(n), results(n)) 
Next 

Résultat:

Ben total = 9
Ziggy total = 42

Si les données pourraient inclure des chiffres non à la fin, utilisez TryParse insteas ré. En fonction de la série de questions connexes, vous devriez sérieusement envisager d'utiliser des classes qui vous permettraient de stocker des données connexes ensemble. Plutôt que le nom dans un tableau et le score/nombre dans un autre, une classe aide à tout garder ensemble. Voir: Five Minute Intro To Classes and Lists dans cette réponse.

Utilisation de la classe simple utilitaire NameValuePairfrom this answer le code devient réellement plus simple (une boucle seulement) et le nom et le nombre rester ensemble:

Dim np As NameValuePair      ' scratch var 
Dim players As New List(Of NameValuePair)  ' list 

' add the names you are looking for to 
' the list with 0 Score/Count 
' not needed if they are in the list from code upstream 
For Each n As String In names 
    players.Add(New NameValuePair(n, 0)) 
Next 

For Each item In data 
    Dim parts = item.Split(" "c) 
    ' is there a player name for this one? 
    np = players.FirstOrDefault(Function(w) w.Name = parts(0)) 

    If np IsNot Nothing Then 
     np.Value += Int32.Parse(parts(parts.Length - 1)) 
    End If 
Next 

' the data is together: print it 
For Each np In players 
    Console.WriteLine("Name: {0} has {1} apples", np.Name, np.Value) 
Next