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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]批量合并文本-运行错误

共有3574人关注过本帖树形打印复制链接主题：[求助]批量合并文本-运行错误

Gryvip

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：479 积分：4505 威望：0 精华：0 注册：2008/9/4 14:40:00

[求助]批量合并文本-运行错误 发帖心情

Post By：2015/1/3 21:50:00 [只看该作者]

各位前辈，大家好，批量合并文本文件，弹出运行错误框 “从字符串“None”到类型“Double”的转换无效。”

附件里面有两个文件夹（正常文件及非常文件），两个文件夹的文件都是在同一个网站，同一种方式下载的，为何出错原因我不知道。

正常文件可以正常合并，非常文件弹出错误框，且内容无法合并。

现在我有两个想法，1.最好的就是非常文件也能够正常合并，2.其次就是正常文件正常合并，遇到非常文件禁止弹出错误框，继续合并正常文件。

请给位前辈不吝赐教，谢谢。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:批量合并.zip

Gryvip

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：479 积分：4505 威望：0 精华：0 注册：2008/9/4 14:40:00

Post By：2015/1/4 11:28:00 [只看该作者]

顶上去求解

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/4 11:53:00 [只看该作者]

For Each File As String In Filesys.GetFiles(projectpath & "下载数据")
    If File.EndsWith(".txt") '如果后缀名是mdb,说明此文件是access格式
        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.Merge()
        'Filesys.DeleteFile(File) '合并后删除文件
    End If
Next