vb.net 从txt中提取数据，显示在数据中

Question

txt文件：
界面上数据库表格：
还望大家多帮忙，用oleDB.access。

Answer 1

 Imports System.IO

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ofd As New OpenFileDialog
        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim query = File.ReadAllLines(ofd.FileName) _
                .Where(Function(x) System.Text.RegularExpressions.Regex.IsMatch(x, "^\d{1,2}\s+\d{1,2}\s+\d{4}\s+")) _
                .Select(Function(x) x.Split(" ".ToCharArray(), StringSplitOptions.RemoveEmptyEntries))
            For Each x In query
                DataGridView1.Rows.Add(x)
            Next
        End If
    End Sub
End Class