[求助]有关TXT文本文件导入到表的问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]有关TXT文本文件导入到表的问题。

共有2901人关注过本帖树形打印复制链接主题：[求助]有关TXT文本文件导入到表的问题。

54292550

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

加好友

发短信

等级：童狐帖子：287 积分：4225 威望：0 精华：0 注册：2011/8/19 10:07:00

[求助]有关TXT文本文件导入到表的问题。 发帖心情

Post By：2015/10/5 21:48:00 [只看该作者]

我有一个文本文件：

Pc 70 /cm

max 7.44 ?m

z 6.32 ?m

a 1.208 ?m

p 2.76 ?m

t 7.79 ?m

导入成图片中的效果: 每行文本大概24个字符吧。

此主题相关图片如下：新建位图图像.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1.txt

[此贴子已经被作者于2015/10/6 9:18:25编辑过]

54292550

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

加好友

发短信

等级：童狐帖子：287 积分：4225 威望：0 精华：0 注册：2011/8/19 10:07:00

Post By：2015/10/5 22:38:00 [只看该作者]

求助啊。。。

新福星

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

加好友

发短信

等级：八尾狐帖子：1964 积分：15604 威望：0 精华：0 注册：2011/7/16 20:59:00

Post By：2015/10/6 9:38:00 [只看该作者]

把这个文本Copy到Excel里，然后利用转置将其转换成横排的方式。之后就可以直接导入了！

54292550

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

加好友

发短信

等级：童狐帖子：287 积分：4225 威望：0 精华：0 注册：2011/8/19 10:07:00

Post By：2015/10/6 10:42:00 [只看该作者]

我要完全用代码的方式实现，后台自动完成。。可有什么好办法？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/7 10:54:00 [只看该作者]

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"

If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
    Dim dr As DataRow = DataTables("表A").Addnew()
    For i As Integer = 0 To rs.Length - 1
        Dim cs() As String = rs(i).Split(" ")
        Dim cname As String = ""
        For Each s As String In cs
            If s > "" Then
                If cname = "" Then
                    cname = s
                Else
                    dr(cname) = s
                    exit for
                End If
            End If
        Next
    Next
End If

下一主题 >> << 上一主题

主题：[求助]有关TXT文本文件导入到表的问题。