Foxtable(狐表)用户栏目专家坐堂 → 如何读取文本数据写入数据表?


  共有2590人关注过本帖树形打印复制链接

主题:如何读取文本数据写入数据表?

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105247 积分:535184 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/25 20:40:00 [显示全部帖子]


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105247 积分:535184 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/26 9:07:00 [显示全部帖子]

帮助列和列之间的数据是根据tab键分隔的,1楼的数据是根据“|”分隔的,改一下就行了

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105247 积分:535184 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/26 10:15:00 [显示全部帖子]

Dim s As String = FileSys.ReadAllText("C:\Users\Administrator\Documents\Foxtable项目\文本数据\text.txt", Encoding.Default)
Dim Values1() As String = s.Replace(vbcr,"").split(vblf)
For i As Integer = 0 To Values1.length - 1
    Dim cs() As String = Values1(i).split("|")
    For i1 As Integer = 0 To cs.Length-1
        output.Show(cs(i1))
    Next
Next

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105247 积分:535184 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/26 10:24:00 [显示全部帖子]

帮助里就有

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105247 积分:535184 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/26 15:38:00 [显示全部帖子]

For i As Integer = 0 To Values1.length - 1
    Dim cs() As String = Values1(i).split("|")
Dim r As Row = Tables("统计").Addnew()
    For i1 As Integer = 0 To cs.Length-1
        'output.Show(cs(i1))
r(i1) = cs(i1)
    Next
Next

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105247 积分:535184 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/26 16:32:00 [显示全部帖子]

判断一下分隔后的数组长度,判断一下是否是空行

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105247 积分:535184 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/26 17:15:00 [显示全部帖子]

If cs.Length-1 = 1 Then】只有一个列的时候才导入

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105247 积分:535184 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/27 8:50:00 [显示全部帖子]

If cs.Length = Tables("统计").cols.count Then

或者

For i1 As Integer = 0 To math.min(cs.Length-1, Tables("统计").cols.count - 1)

 回到顶部