以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何导出固定格式的文件？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125163)
--  作者：权御天下
--  发布时间：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的，
感谢老师的解答！谢谢！
--  作者：有点甜
--  发布时间：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
--  作者：权御天下
--  发布时间：2018/9/21 15:59:00
--  
感谢甜大师的解答！谢谢