Imports Microsoft.VisualBasic.FileIO
Public Class Form1
'-------------------------------------------------
'TEST.txtの内容
'-------------------------------------------------
'123-4567111-111-1111name1 1932/11/24
'999-9992222-222-2222name2 1995/03/11
'987-6542333-333-3333name3 1984/08/09
'--------------------------------------------------------------------------------
'固定長テキストファイルの読み込み
'--------------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Using parser As New TextFieldParser("C:\TEST\TEST.txt", _
System.Text.Encoding.GetEncoding("SHIFT_JIS"))
''フィールドタイプを設定
parser.TextFieldType = FieldType.FixedWidth
''フィールドサイズを設定
parser.SetFieldWidths(New Integer() {8, 12, 20, 10})
''ファイルの読み込み
While Not parser.EndOfData
Trace.Write(parser.LineNumber & ">>>")
Dim fields As String() = parser.ReadFields
For Each field As String In fields
Trace.Write(field & "|")
Next
Trace.WriteLine("")
End While
End Using
End Sub
'-------------------------------------------------
'実行結果
'-------------------------------------------------
'1>>>123-4567|111-111-1111|name1|1932/11/24|
'2>>>999-9992|222-222-2222|name2|1995/03/11|
'3>>>987-6542|333-333-3333|name3|1984/08/09|
End Class
|
