'----------------------------------------------------
'C:\test.txtの内容
'ﾕｳﾋﾞﾝ___ﾃﾞﾝﾜ________ﾅﾏｴ_________________ｾｲﾈﾝｶﾞｯﾋﾟ_
'----------------------------------------------------
'123-4567111-111-1111name1 1932/11/24
'999-9992222-222-2222name2 1995/03/11
'987-6542333-333-3333name3 1984/08/09
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim parser As Microsoft.VisualBasic.FileIO.TextFieldParser
parser = My.Computer.FileSystem.OpenTextFieldParser( _
"C:\test.txt", New Integer() {8, 12, 20, 10})
Dim fields() As String
While Not parser.EndOfData
fields = parser.ReadFields
For Each str As String In fields
Console.Write(str & " | ")
Next
Console.WriteLine()
End While
Call parser.Close()
End Sub
End Class
'----------------------------------------------------
'実行結果
'----------------------------------------------------
'123-4567 | 111-111-1111 | name1 | 1932/11/24 |
'999-9992 | 222-222-2222 | name2 | 1995/03/11 |
'987-6542 | 333-333-3333 | name3 | 1984/08/09 |
|
