C# と VB.NET の質問掲示板

■No40216 (しょうじ さん) に返信

あれ、質問が消えているなー。
固定長ファイルを読み込むような内容だったと思う。
Schema.iniを定義して、OleDbで読み込めばデータテーブル型にデータを読み込めるよん。

http://park5.wakwak.com/~weblab/selectTextFile-TSV.html
http://www.moug.net/faq/viewtopic.php?t=40707

Imports System.Data.OleDb
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim con As New OleDbConnection()
        Dim cmd As New OleDbCommand()
        Dim da As New OleDbDataAdapter()
        Dim ds As New DataSet()

        ' DB接続文字列の設定
        ' プロジェクトファイルフォルダ下binフォルダにtsvファイルを置く
        con.ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & Application.StartupPath & "\;" & _
            "Extended Properties=""Text"""

        ' コネクションの設定
        cmd.Connection = con

        ' SQL文の設定
        cmd.CommandText = "SELECT * FROM test.txt"

        ' データを取得する 
        da.SelectCommand = cmd
        ds.Clear()
        da.Fill(ds)

        MsgBox(ds.Tables(0).Rows(0).Item(0).ToString)　'00005が読める

End Sub

Test.txtファイルの中身
00005永田　和雄ナガタ　カズオ      1
00001青山　太郎アオヤマ　タロウ    1
00003渋谷　肇  シブヤ　ハジメ      1
00004玉川　健一タマガワ　ケンイチ  1

Schema.iniファイルの中身
[Test.txt]
ColNameHeader=False
Format=FixedLength
FixedFormat=RaggedEdge
Col1=社員コード Char Width 5
Col2=社員氏名   Char Width 10
Col3=社員カナ   Char Width 20
Col4=フラグ　   Char Width 1