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
![【.NET】固定長ファイル(複数行一組対応)の読み込み - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/e41d00b372a60cb6521a31c9add3b07de21b6dda/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Fadvent-calendar-ogp-background-7940cd1c8db80a7ec40711d90f43539e.jpg%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTk3MiZoPTM3OCZ0eHQ9JUUzJTgwJTkwLk5FVCVFMyU4MCU5MSVFNSU5QiVCQSVFNSVBRSU5QSVFOSU5NSVCNyVFMyU4MyU5NSVFMyU4MiVBMSVFMyU4MiVBNCVFMyU4MyVBQiUyOCVFOCVBNCU4NyVFNiU5NSVCMCVFOCVBMSU4QyVFNCVCOCU4MCVFNyVCNSU4NCVFNSVBRiVCRSVFNSVCRiU5QyUyOSVFMyU4MSVBRSVFOCVBQSVBRCVFMyU4MSVCRiVFOCVCRSVCQyVFMyU4MSVCRiZ0eHQtYWxpZ249bGVmdCUyQ3RvcCZ0eHQtY29sb3I9JTIzM0EzQzNDJnR4dC1mb250PUhpcmFnaW5vJTIwU2FucyUyMFc2JnR4dC1zaXplPTU2JnM9MmZiZDgxMzQ1ZTUyY2I2ZjM1ZThlNDFlN2IyZDA5Zjk%26mark-x%3D120%26mark-y%3D96%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZoPTc2Jnc9OTcyJnR4dD0lNDB5YWp1JnR4dC1jb2xvcj0lMjMzQTNDM0MmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9MzYmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz0zYmIzZjZhZmJiNGJhYmY3YTk4ZDVlMDFmODU2YTQ2OA%26blend-x%3D120%26blend-y%3D500%26blend-mode%3Dnormal%26s%3D55215571ec4a6ad38dd3cdbadc4a31cd)