[求助]批量合并文本-再次求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each File As String In Filesys.GetFiles(projectpath & "下载数据")
    If File.EndsWith(".txt") '如果后缀名是txt,说明此文件是文本格式
        FileSys.WriteAllText(file, FileSys.ReadAllText(file,encoding.default).Replace("None", 0), False, encoding.default)
        Dim mg As New Merger
        mg.Format = "Delimited" '指定格式为文本格式
        mg.SourcePath = FileSys.GetParentPath(file) '指定要合并的数据文件,含路径
        mg.SourceTableName = FileSys.GetName(file).SubString(0,6) '指定要合并的文件,无需扩展名
        mg.DataTableName = "历史数据" '指定接收合并数据的数据表的名称
        mg.Fields = "日期,股piao代码,开盘价,最高价,最低价,收盘价"
        mg.Merge()
    End If
Next
DataTables("历史数据").StopRedraw
For Each dr As DataRow In DataTables("历史数据").DataRows
    dr("股piao代码") = dr("股piao代码").replace("'", "")
Next
DataTables("历史数据").ResumeRedraw

主题：[求助]批量合并文本-再次求助