nengft 2015-04-23 02:40 采纳率: 0%
浏览 1843
已采纳

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

txt文件:图片说明
界面上数据库表格:图片说明
还望大家多帮忙,用oleDB.access。

  • 写回答

4条回答 默认 最新

  • threenewbee 2015-04-23 03:18
    关注
     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
    
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(3条)

报告相同问题?

问题事件

  • 已采纳回答 8月24日

悬赏问题

  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 spring后端vue前端
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥65 汇编语言除法溢出问题
  • ¥15 Visual Studio问题