主题：分割文本文件

1、不要用关键字作为列名，也就是不要把列名改成比如 date 之类的。

2、试试改成

Dim max As Date = t.Compute("max([Date])")
Dim min As Date = t.Compute("min([Date])")

Dim max As Date = t.Compute("max([Date])")
Dim min As Date = t.Compute("min([Date])")

Dim strs As String = FileSys.ReadAllText("d:\si.txt")
Dim ss1,ss2 As String
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)

For i As Integer = 1 To rs.Length - 1
    rs(i) = System.Text.RegularExpressions.Regex.replace(rs(i), " +", " ")
    Dim cs() As String = rs(i).Split(" ")
    If cs.length = 4 Then
        ss1=rs(i).split(" ")(1)
        ss2=rs(i).split(" ")(2)
        messagebox.show(ss1 & " " & ss2)
    End If
Next i

参考代码

Dim strs As String = FileSys.ReadAllText("d:\r.txt")
strs = System.Text.RegularExpressions.Regex.replace(strs, " +", " ")
Dim cs() As String = strs.Split(" ")
For i As Integer = 3 To cs.length-1 Step 3
    Dim ss1=cs(i)
    Dim ss2=cs(i+1)
    output.show(ss1 & " " & ss2)
Next

参考

Dim ex As New Exporter
ex.SourceTableName = "表A" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Export() '开始导出
ex = New Exporter
ex.SourceTableName = "表B" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Export() '开始导出

比如

If rdo1.Checked  Then
    SPIncrease="YES"
End If

如果报错，请说明报什么错。

If FileSys.DirectoryExists("e:\") Then
    msgbox("存在")
Else
    msgbox("不存在")
End If