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


  共有2593人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1570 积分:11222 威望:0 精华:0 注册:2021/1/17 17:06:00
如何读取文本数据写入数据表?  发帖心情 Post By:2021/11/25 18:01:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:文本数据.zip

如何实现代码读取文本行数,并将数据进行拆分,第一行拆分为列名,根据列名创建临时表“统计”,然后从第二行开始进行内容拆分,并将拆分的内容分别对应第一行所拆分的列名赋值填充到临时表“统计”中

当前问题:1、如何获取文本文件的行,2、如何使用获取得到的行 
代码如下:
Dim s As String = FileSys.ReadAllText("C:\Users\Administrator\Desktop\20211125\银行\text.txt", Encoding.Default)
Output.Show(s.split("|").Length-1)
If s.split("|").Length-1 = 21 Then
    s.Insert(21,chr(13) & chr(10))
End If
Dim Values1() As String = s.split(chr(13))
Output.Show(Values1(0))

测试文本第一行数据,并进行指定拆分,当前可以创建含有拆分值为列名的空表“统计”
Dim Multi As String = "账号|户名|交易日期|主机日期|交易时间|交易码|交易名称|借贷标记|交易金额|账户余额|营业机构|账务机构|交易柜员|授权柜员|柜员流水|现转标志|摘要代码|对方账号|对方名称|对方行号|对方行名"
Dim Values() As String
Values = Multi.split("|")
Dim dtb As New DataTableBuilder("统计")
For Index As Integer = 0 To Values.Length - 1
    Output.Show(Values(Index))
    dtb.AddDef(Values(Index), Gettype(String), 32)
Next
dtb.Build()
[此贴子已经被作者于2021/11/25 18:03:22编辑过]

 回到顶部
总数 16 1 2 下一页