[求助]如何导出固定格式的文件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何导出固定格式的文件？

共有2438人关注过本帖树形打印复制链接主题：[求助]如何导出固定格式的文件？

权御天下

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

加好友

发短信

等级：婴狐帖子：33 积分：285 威望：0 精华：0 注册：2018/9/10 12:02:00

[求助]如何导出固定格式的文件？ 发帖心情

Post By：2018/9/21 11:03:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:导出固定格式.foxdb

请问下如何能导出这种固定格式的文件：id=1 state=down comment=TL-WR885N cl_name= ip_addr=192.168.1.161 mac=e4:d3:32:dc:c9:f7

其中：

id对应编号、state对应状态、comment对应备注、ip_addr对应IP、mac对应MAC、

需要导出文件类型是：Excel、TXT的，

感谢老师的解答！谢谢！

有点甜

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

加好友

发短信

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

Post By：2018/9/21 12:08:00 [只看该作者]

Dim dlg As new SaveFileDialog
dlg.Filter = "文本|*.txt"
If dlg.ShowDialog = DialogResult.OK Then
    Dim fm As String = "id={0} state={1} comment={2} cl_name= ip_addr={3} mac={4} "
    Dim t As Table = Tables("表A")
    Dim str As String = ""
    For Each r As Row In t.Rows
        If str > "" Then
            str = str & vbcrlf & cexp(fm, r("编号"), r("状态"), r("备注"), r("ip"), r("mac"))
        Else
            str =cexp(fm, r("编号"), r("状态"), r("备注"), r("ip"), r("mac"))
        End If
    Next
    msgbox(str)
    FileSys.WriteAllText(dlg.FileName, str, False, encoding.default)
End If

权御天下

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

加好友

发短信

等级：婴狐帖子：33 积分：285 威望：0 精华：0 注册：2018/9/10 12:02:00

Post By：2018/9/21 15:59:00 [只看该作者]

感谢甜大师的解答！谢谢

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

主题：[求助]如何导出固定格式的文件？