如何实现代码读取文本行数,并将数据进行拆分,第一行拆分为列名,根据列名创建临时表“统计”,然后从第二行开始进行内容拆分,并将拆分的内容分别对应第一行所拆分的列名赋值填充到临时表“统计”中
当前问题: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编辑过]