VB.Net ArrayListのすべてのエントリを更新するには？

Question

私は以下のような構造を使用しています。私は 'Persons' ArrayListをループし、LastNamesをそのまま残しながら、給与を100に設定する必要があります。

Structure Person 
    Dim LastName As String 
    Dim salary As Integer 
End Structure 

public class Test 
    public Shared Sub Main 
     Dim Persons As New ArrayList 
     Dim Person As New Person 

     With Person 
      .LastName = "Smith" 
      .salary = 50 
     End With 
     Persons.Add(Person) 

     With Person 
      .LastName = "Jones" 
      .salary = 20 
     End With 
     Persons.Add(Person) 

     With Person 
      .LastName = "Brown" 
      .salary = 80 
     End With 
     Persons.Add(Person) 

    End Sub 
End class 

単純なFor Eachループはここでは機能しません。私は、それぞれの人物を第二の一時的な編者にコピーして元のアライリストのエントリを削除することができましたが、それぞれの人の給料をどのように変更するのかを把握することはできず、彼らが元々あったような価値観。

Answer 1

（暗黙的Of Object）の代わりのArrayListのList(Of Person)を使用してください。

追加を簡単にするヘルパー関数を作成してください。あなたは今、それはもう一つのポイントにPerson

Structure Person 
    Dim LastName As String 
    Dim salary As Integer 
End Structure 

Sub Main() 
    Dim Persons As New List(Of Person)() 
    AddPerson(Persons, "Smith", 50) 
    AddPerson(Persons, "Jones", 20) ' poor Jonesy 
    AddPerson(Persons, "Brown", 80) 
    For Each person In Persons 
     person.salary = 100 
    Next 

End Sub 

Public Sub AddPerson(persons As List(Of Person), lastName As String, salary As Integer) 
    persons.Add(New Person() With {.LastName = lastName, .salary = salary}) 
End Sub 

としてタイプですので、簡単にList(Of Person)を反復処理することができますあなたの元のコードはFor Eachループ

For Each p As Person In Persons 
    p.salary = 100 
Next 

が、ということですArrayListを使用することのリスクと連携

エラーなしで任意のオブジェクトを追加することができます。その後、常にPersonを追加するように訓練されていない場合は、アイテムをPersonにキャストする際に問題が発生する可能性があります。ループ端でNew Objectをencouteredまで、例えば

Persons.Add(New Object) 

For Each p As Person In Persons 
    p.salary = 100 
Next 

は繰り返しになる、その後、実行時エラーをもたらすであろう。 List(Of Person)は最初に追加されないようにするため、新しい開発には常にArrayListより優先されます。

Answer 2

この状況では、クラスがうまくいく可能性があります。また、給与のデフォルト値を100に設定して、各オブジェクトに既定値が既に設定されているようにすることもできます（後でループに割り当てる必要はありません）。

Public Class Person 
    Dim LastName As String = "" 
    Dim salary As Integer = 100 

    Public Sub New() 
     ' 
    End Sub 

    Public Sub New(ByVal Last_Name As String, ByVal Salary As Integer) 
     Me.LastName = Last_Name 
     Me.salary = Salary 
    End Sub 
End Class 

Answer 3

提案ループ：

For x = 0 To Persons.Count - 1 
     Dim p As Person = Persons(x) 
     p.salary = 100 
     Persons(x) = p 
    Next 

：それは永久に「人」に新しい値を書いていないとして、それ以上の検索私が行うループを見つけた後

For Each p As Person In Persons 
    p.salary = 100 
Next 

は動作しませんでした私はこれが他の誰かを助けることを望む。私はLISTアイデアを実装しました - ありがとう。