###前提・実現したいこと
上図のようなテキストファイルを読み込み、DataTableに格納するプログラムを書いています。
しかし、ある条件下では、
BとDの値を入れ替えたいと思っています。
例)
B 430 420 700
D 220 200 600
###発生している問題・エラーメッセージ
1行ずつ読み込んでいる関係で、どう実現すればいいか悩んでいます。
###該当のソースコード
Dim datatable As DataTable = New datatable Dim datarow As DataRow Dim parser1 As TextFieldParser = New TextFieldParser(filepath, Encoding.GetEncoding("Shift_JIS")) parser1.TextFieldType = FieldType.Delimited parser1.SetDelimiters(vbTab) '区切り文字はタブ '読み込み行がなくなるまで While (Not parser1.EndOfData) ' 1行読み込み Dim row1 As String() = parser1.ReadFields() datarow = datatable.NewRow() ' datatableのrowのcolumn数だけループ For i As Integer = 0 To row1.Count - 1 datarow(i) = row1(i) Next i datatable.Rows.Add(datarow) End While
###その他
このコードの流れで実現することは可能でしょうか。
ご教授お願い致します。
回答3件
あなたの回答
tips
プレビュー