システム開発備忘録 Visual Basic 2005 ファイル操作関連の備忘録

ファイル操作
VB2005は、基本的なファイル操作はスニペットの
「ファイルシステム - ドライブ、フォルダ、およびファイルの処理」から呼び出せる。
それ以外で使いまわしたいソースを記述する。

タブ区切りファイルを読み込んでファイルと同じ構造のStructure配列に格納する
設定リストを格納したファイルを読み込む時などに使用する。
ここでは、ファイルの列数と同じ要素を持つStructureの配列に、
ファイルの先頭から順に値を格納していく。
区切り文字を変更する場合は、strDelimiterの値を変更するだけ。

    'ファイル内容の格納用Structure
    Public Structure FILELAYOUT
        Public Field0 As String
        Public Field1 As String
        Public Field2 As String
    End Structure

    '読み込みプロシージャ
    Public Sub ReadFile()

        Dim strFilename As String = My.Application.Info.DirectoryPath & "\TargetFile.txt" 'EXEと同じ場所のファイルを指定
        Dim strDelimiter As String = vbTab '区切り文字指定
        Dim strFields As String() 'ファイルのタブで区切られた値の格納用

        Dim FL() As FILELAYOUT '値格納用Structure

        Using PARSER As New Microsoft.VisualBasic.FileIO.TextFieldParser(strFilename)

            PARSER.SetDelimiters(strDelimiter) '区切り設定

            Dim I As Integer = -1
            'ファイルの全行をループ
            While Not PARSER.EndOfData
                '１行の全フィールドを構造体に読み込み
                strFields = PARSER.ReadFields()
                I += 1
                ReDim Preserve FL(0 To I)
                FL(I).Field0 = strFields(0)
                FL(I).Field1 = strFields(1)
                FL(I).Field2 = strFields(2)
            End While
        End Using

    End Sub