珍しいコード処理vb.net

Question

私は前にそれを試してみましたが、新しいプロジェクトで、今までは問題なかったCSVファイルから行を取得するためにここにしようとしています：

私はその構造のリスト内の各行を追加してい（array of folders（）と他の3つの変数の配列）

問題は、初めてlist.add（）がうまく動作していますが、arraycurrentrow（）コードがlist.add（）の部分に達していなくても、リストの前の項目を更新しています！

注：これはアレイ部でのみ起こるが、構造体3つの他の変数問題なく

注：私は、別のプロジェクトのために同じコードを使用するが、構造は、任意の配列をhadnt？だからなぜフォルダの配列の問題（）

私は一日中無駄に過ごしています！その先頭にwhileループ内

Dim StrcCurrentRow As DataBaseStrc = Nothing 

：あなたはこの問題

Public Structure DataBaseStrc 
     Public Property Folders As String() 
     Public Property TagName As String 
     Public Property SAPFL As String 
     Public Property SAPEqNO As String 
    End Structure 






Shared Function MarafiqsDataBase_CSV() 
     Dim ioReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(DataBaseInserter.DatabaseCSVPathText.Text) 
     ioReader.TextFieldType = FileIO.FieldType.Delimited 
     ioReader.SetDelimiters(",") 

     Dim tempList As New List(Of DataBaseStrc) 
     Dim ReadingIndex As Integer 
     Dim StrcCurrentRow As DataBaseStrc = Nothing 
     Integer.TryParse(DataBaseInserter.MaxFoldersNoCB.Text, MaxFolderNo) 
     ReDim StrcCurrentRow.Folders(MaxFolderNo - 1) 

     While (Not ioReader.EndOfData) 
      Dim arrCurrentRow As String() = ioReader.ReadFields() 
      If arrCurrentRow.Length = 12 Then 
       Dim FolderIndex As Integer = 0 
       For FolderIndex = 0 To MaxFolderNo - 1 
        StrcCurrentRow.Folders(FolderIndex) = arrCurrentRow(FolderIndex) 
       Next 
       StrcCurrentRow.TagName = arrCurrentRow(FolderIndex) 
       StrcCurrentRow.SAPFL = arrCurrentRow(FolderIndex + 1) 
       StrcCurrentRow.SAPEqNO = arrCurrentRow(FolderIndex + 2) 
       tempList.Add(StrcCurrentRow) 
      Else 
Error handling 
      End If 

     End While 
     PublicDatabaseList = tempList 
     Return Nothing 

    End Function 

Answer 1

この問題は、Stringアレイを1つだけ作成するという事実に見えます。したがって、毎回同じ要素を上書きし続けるだけです。ループ内では、新しい配列を作成し、それを移入する必要があります。

StrcCurrentRow.Folders = New String(MaxFolderNo - 1) {} 

For FolderIndex = 0 To MaxFolderNo - 1 
    StrcCurrentRow.Folders(FolderIndex) = arrCurrentRow(FolderIndex) 
Next 

あなたはあまりにもループの外ReDimを取り除くことができます。

これまで述べてきたように、私はそのタイプを構造体からクラスに変更し、そのクラスを毎回独自の配列を作成したり、代わりにコレクションを使用するようにしました。

Answer 2

移動し、このラインのための任意のアイデアを持っている場合。 これは毎回設定していないため、オブジェクトが1つしかなく、ループごとに更新し続けます。