Dim ts As TextFileStream = New TextFileStream Dim dsTable As DataSet Try ' スキーマ定義ファイルセット ts.SchemaPath = "Sample.ini" dsTable = ts.ImportData("Sample.txt", vbCrLf, True) MessageBox.Show("読み込み完了") Catch ex As Exception MessageBox.Show(ex.Message) End Try Imports System.Text Imports System.IO Imports System.Text.RegularExpressions Public Class TextFileStream Public Property Section As Dictionary(Of