Foxtable(狐表) → 用户栏目 → 专家坐堂 → xml文件格式问题


  共有2276人关注过本帖树形打印复制链接

主题：xml文件格式问题
帅哥哟，离线，有人找我吗？
rjh4078
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3361 积分：24808 威望：0 精华：0 注册：2012/3/26 21:47:00 		xml文件格式问题  发帖心情 Post By：2018/7/23 16:54:00 [只看该作者]

我用FT的代码生成的xml 在notepad里面无法按照层级结构显示 感觉堆在一起

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

这个是FT生成的


图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

这是其他软件生成的

ft代码

With Tables("订单")
If .current IsNot Nothing Then
Dim jo As new  XObject
For Each c As Col In Tables("订单").cols
jo(c.name)=.current(c.name).Tostring()
Next
Dim fl As String=ProjectPath & "xml\" & .current("单号") & "\" & .current("单号") & ".xml"
If FileSys.FileExists(fl) Then
    FileSys.DeleteFile(fl)
End If
Dim str As String="<?xml version=""1.0"" encoding=""UTF-8"" standal"?> " & "<!--Web portal To AES: the XML Document Definition: Viewing Order Version 1 " & "by foxtable " & Date.now & "-->"
FileSys.WriteAllText(fl,str & jo.Toxml, True, Encoding.Default)
End If

End  With
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/23 17:23:00 [只看该作者]

1、你可以安装一个notepad++然后打开查看；

 

2、你可以直接用浏览器打开查看。
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3361 积分：24808 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2018/7/23 17:57:00 [只看该作者]

我装了notepad 打开后ft生成的xml只有一行 非常长 其他软件生成的能够正确的分层次显示

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3361 积分：24808 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2018/7/23 18:00:00 [只看该作者]

以下内容是专门发给有点甜浏览
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/23 19:52:00 [只看该作者]

你安装了NotePad++了吗？我打开没问题

  


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180723195126.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3361 积分：24808 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2018/7/23 20:37:00 [只看该作者]

打开没问题的这个是其他软件生成的
另外一个p开头的xml是ft生成的
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3361 积分：24808 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2018/7/23 20:39:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110642 积分：563118 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/23 20:49:00 [只看该作者]

默认就是一行的，网上有很多在线格式化xml的网站，找一个格式化一下

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3361 积分：24808 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2018/7/24 8:03:00 [只看该作者]

关键每天要批量生成很多 导入到另外一个软件的xml处理工具里 那个工具识别出来FT的xml文件也是一行 非常别扭

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/24 9:11:00 [只看该作者]

1、另存为 unicode或者utf8 格式的文件，然后用浏览器打开，可以正常显示xml文件；

 

2、其它软件无法识别的话，是其自身的问题。如果你确实需要格式化，参考下面代码

 

Dim jo As New XObject
jo("Name") = "张三"
jo("Group") = "VIP"
jo("Type") = 2
jo("Default") = False
Dim xml = jo.ToXML

Dim xd As System.XML.XmlDocument
xd = New System.XML.XmlDocument
xd.LoadXml(xml)
Dim sb As StringBuilder = New StringBuilder
Dim sw As io.StringWriter = New io.StringWriter(sb)
Dim xtw As System.XML.XmlTextWriter = Nothing
Try
    xtw = New System.XML.XmlTextWriter(sw)
    xtw.Formatting = System.XML.Formatting.Indented
    xtw.Indentation = 1
    xtw.IndentChar = vbTab
    xd.WriteTo(xtw)
Finally
    If xtw IsNot Nothing Then xtw.Close()
End Try

Return sb.ToString()

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询