主题：[求助]批量txt文本提取

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:3106_b_707j_1_z5_2013013032.txt

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:3106_b_707j_1_z5_2013013033.txt

 

老师帮忙看下.

 

我做了1个批量导入(TXT)订单的 窗体.

 

主订单表 以 TXT文件名 为内容进行填写, 经测试OK.

订单明细表  以 TXT里面内容 进行提取 填写, 测试过不知道那里错了  .

 

麻烦帮忙看下 .   

 

测试的时候  2个TXT文档 要放在 桌面 哦.

 

不知道是不是 TXT文档里面的 连续 空格 导致的问题  但不会处理!

Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim mypath As String = tb1.Text
'------------导入订单主表信息------------------提取文件名的内容填入数据.   测试可行!
Dim t As Table = Tables("订单总表")
t.StopRedraw
For Each File As String In FileSys.GetFiles(mypath)
    Dim dr As Row =t.AddNew()
    dr("备注")= File.Replace(file.SubString(file.LastIndexOf("\"),32),("_K" & file.SubString(file.LastIndexOf("\"),28) & "_K.PDF"))
    dr("货号") =file.SubString(file.IndexOf("_")+8,2)
    dr("订单号") =file.SubString(file.LastIndexOf("_")+1,10)
    dr("订单下载日期")= Date.Today()
 '------------导入订单明细表信息------------------提取文件内部内容填入数据   测试不行!
    Dim strs As String = FileSys.ReadAllText(file)
    strs = strs.Replace(vblf, "")
    Dim rs() As String = strs.Split(vbcr)
    For i As Integer = 0 To rs.Length - 1
        Dim cs() As String = rs(i).Split(New Char() {" "c}, System.StringSplitOptions.RemoveEmptyEntries)
         For n As Integer = 0 To cs.length - 1
            messagebox.show( n & ":" & cs(n))
        Next

        exit for
    Next
Next

t.ResumeRedraw()