CDATA格式丢失

huakairs

到文本(xml树.取xml数据())  CDATA格式会丢失，有什么办法保留

2224848

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
xml树	Xml树

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 初始化界面组件
按钮_加载.标题 ＝ "加载XML文件"
按钮_保存.标题 ＝ "保存XML文件"
编辑框1.是否允许多行 ＝ 真
编辑框1.滚动条 ＝ 2  ' 纵向滚动条

子程序名	返回值类型	公开	备 注
_按钮_加载_被单击

.局部变量 文件路径, 文本型
.局部变量 xml文本, 文本型

文件路径 ＝ 浏览文件夹 ("选择XML文件", "") ＋ "\data.xml"
如果 (文件路径 ＝ "\data.xml")
返回 ()

' 安全加载XML
xml文本 ＝ 安全加载XML (文件路径)
如果 (xml文本 ＝ "")
信息框 ("加载XML文件失败", 0, "错误", )
编辑框1.内容 ＝ xml文本
信息框 ("XML加载成功，CDATA格式已保留", 0, "成功", )

子程序名	返回值类型	公开	备 注
_按钮_保存_被单击

.局部变量 保存路径, 文本型
.局部变量 xml文本, 文本型

保存路径 ＝ 浏览文件夹 ("选择保存位置", "") ＋ "\output.xml"
如果 (保存路径 ＝ "\output.xml")
返回 ()

xml文本 ＝ 编辑框1.内容
如果 (写到文件 (保存路径, 到字节集 (xml文本)))
信息框 ("XML保存成功", 0, "成功", )
信息框 ("保存文件失败", 0, "错误", )

子程序名	返回值类型	公开	备 注
安全加载XML	文本型
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
xml文本	文本型
临时树	Xml树

临时树.创建 ()
如果 (临时树.加载文件 (文件路径) ＝ 假)
返回 ("")

' 获取保留CDATA的XML
xml文本 ＝ 获取带CDATA的XML (临时树)
临时树.销毁 ()
返回 (xml文本)

子程序名	返回值类型	公开	备 注
获取带CDATA的XML	文本型
参数名	类 型	参考	可空	数组	备 注
xml树	Xml树

变量名	类 型	静态	数组	备 注
xml文本	文本型
CDATA节点路径	文本型		0
i	整数型

' 获取原始XML文本
xml文本 ＝ xml树.取xml数据 ()
' 查找所有CDATA节点
查找CDATA节点路径 (xml树, "", CDATA节点路径)
' 恢复CDATA标记
计次循环首 (取数组成员数 (CDATA节点路径), i)
.局部变量 节点名, 文本型
.局部变量 节点内容, 文本型

节点名 ＝ 取路径末节点名 (CDATA节点路径 [i])
节点内容 ＝ xml树.取文本 (CDATA节点路径 [i], "")

' 替换普通文本为CDATA格式
xml文本 ＝ 子文本替换 (xml文本,
"<" ＋ 节点名 ＋ ">" ＋ 节点内容 ＋ "",
"<" ＋ 节点名 ＋ ">",
, , 真)
计次循环尾 ()
返回 (xml文本)

子程序名	返回值类型	公开	备 注
查找CDATA节点路径
参数名	类 型	参考	可空	数组	备 注
xml树	Xml树
当前路径	文本型
路径数组	文本型

变量名	类 型	静态	数组	备 注
子节点数	整数型
i	整数型

子节点数 ＝ xml树.取子节点数 (当前路径)
计次循环首 (子节点数, i)
.局部变量 节点类型, 整数型
.局部变量 新路径, 文本型

新路径 ＝ 当前路径 ＋ "/" ＋ xml树.取节点名 (当前路径 ＋ "[" ＋ 到文本 (i) ＋ "]")
节点类型 ＝ xml树.取节点类型 (新路径)

如果 (节点类型 ＝ #CDATA节点 )
加入成员 (路径数组, 新路径)
查找CDATA节点路径 (xml树, 新路径, 路径数组)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
取路径末节点名	文本型
参数名	类 型	参考	可空	数组	备 注
完整路径	文本型

变量名	类 型	静态	数组	备 注
位置	整数型

位置 ＝ 倒找文本 (完整路径, "/", , 假)
如果 (位置 ＞ 0)
返回 (取文本右边 (完整路径, 取文本长度 (完整路径) － 位置))
返回 (完整路径)

子程序名	返回值类型	公开	备 注
_按钮_格式化_被单击

.局部变量 xml文本, 文本型

xml文本 ＝ 编辑框1.内容
如果 (xml文本 ＝ "")
信息框 ("请先加载XML文件", 0, "提示", )
返回 ()

编辑框1.内容 ＝ 格式化XML (xml文本)

子程序名	返回值类型	公开	备 注
格式化XML	文本型
参数名	类 型	参考	可空	数组	备 注
xml文本	文本型

变量名	类 型	静态	数组	备 注
格式化文本	文本型
缩进	文本型
i	整数型

' 简单格式化（实际项目建议使用专业库）
格式化文本 ＝ ""
缩进 ＝ "    "
' 添加XML声明
如果 (寻找文本 (xml文本, "    格式化文本 ＝ 取文本左边 (xml文本, 寻找文本 (xml文本, "?>", , 假) ＋ 2) ＋ #换行符
xml文本 ＝ 取文本右边 (xml文本, 取文本长度 (xml文本) － 寻找文本 (xml文本, "?>", , 假) － 2)
格式化文本 ＝ "" ＋ #换行符

' 简单缩进处理
格式化文本 ＝ 格式化文本 ＋ 子文本替换 (xml文本, "><", ">" ＋ #换行符 ＋ "<", , , 真)
返回 (格式化文本)

子程序名	返回值类型	公开	备 注
_按钮_验证_被单击

.局部变量 xml文本, 文本型

xml文本 ＝ 编辑框1.内容
如果 (xml文本 ＝ "")
信息框 ("请先加载XML文件", 0, "提示", )
返回 ()

如果 (验证XML格式 (xml文本))
信息框 ("XML格式有效", 0, "验证通过", )
信息框 ("XML格式有误", 0, "验证失败", )

子程序名	返回值类型	公开	备 注
验证XML格式	逻辑型
参数名	类 型	参考	可空	数组	备 注
xml文本	文本型

变量名	类 型	静态	数组	备 注
验证树	Xml树

验证树.创建 ()
返回 (验证树.解析 (xml文本))

i支持库列表	支持库注释
Exml	(未知支持库)
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 Exml<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 xml树, Xml树<br /> <br /> .子程序 __启动窗口_创建完毕<br />     ' 初始化界面组件<br />     按钮_加载.标题 ＝ "加载XML文件"<br />     按钮_保存.标题 ＝ "保存XML文件"<br />     编辑框1.是否允许多行 ＝ 真<br />     编辑框1.滚动条 ＝ 2  ' 纵向滚动条<br /> <br /> .子程序 _按钮_加载_被单击<br />     .局部变量 文件路径, 文本型<br />     .局部变量 xml文本, 文本型<br />     <br />     文件路径 ＝ 浏览文件夹 ("选择XML文件", "") ＋ "\data.xml"<br />     .如果 (文件路径 ＝ "\data.xml")<br />         返回 ()<br />     .如果结束<br />     <br />     ' 安全加载XML<br />     xml文本 ＝ 安全加载XML (文件路径)<br />     .如果 (xml文本 ＝ "")<br />         信息框 ("加载XML文件失败", 0, "错误", )<br />     .否则<br />         编辑框1.内容 ＝ xml文本<br />         信息框 ("XML加载成功，CDATA格式已保留", 0, "成功", )<br />     .如果结束<br /> <br /> .子程序 _按钮_保存_被单击<br />     .局部变量 保存路径, 文本型<br />     .局部变量 xml文本, 文本型<br />     <br />     保存路径 ＝ 浏览文件夹 ("选择保存位置", "") ＋ "\output.xml"<br />     .如果 (保存路径 ＝ "\output.xml")<br />         返回 ()<br />     .如果结束<br />     <br />     xml文本 ＝ 编辑框1.内容<br />     .如果 (写到文件 (保存路径, 到字节集 (xml文本)))<br />         信息框 ("XML保存成功", 0, "成功", )<br />     .否则<br />         信息框 ("保存文件失败", 0, "错误", )<br />     .如果结束<br /> <br /> .子程序 安全加载XML, 文本型<br /> .参数 文件路径, 文本型<br /> .局部变量 xml文本, 文本型<br /> .局部变量 临时树, Xml树<br /> <br /> 临时树.创建 ()<br /> .如果 (临时树.加载文件 (文件路径) ＝ 假)<br />     返回 ("")<br /> .如果结束<br /> <br /> ' 获取保留CDATA的XML<br /> xml文本 ＝ 获取带CDATA的XML (临时树)<br /> 临时树.销毁 ()<br /> <br /> 返回 (xml文本)<br /> <br /> .子程序 获取带CDATA的XML, 文本型<br /> .参数 xml树, Xml树<br /> .局部变量 xml文本, 文本型<br /> .局部变量 CDATA节点路径, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> ' 获取原始XML文本<br /> xml文本 ＝ xml树.取xml数据 ()<br /> <br /> ' 查找所有CDATA节点<br /> 查找CDATA节点路径 (xml树, "", CDATA节点路径)<br /> <br /> ' 恢复CDATA标记<br /> .计次循环首 (取数组成员数 (CDATA节点路径), i)<br />     .局部变量 节点名, 文本型<br />     .局部变量 节点内容, 文本型<br />     <br />     节点名 ＝ 取路径末节点名 (CDATA节点路径 <i>)<br />     节点内容 ＝ xml树.取文本 (CDATA节点路径 <i>, "")<br />     <br />     ' 替换普通文本为CDATA格式<br />     xml文本 ＝ 子文本替换 (xml文本, <br />                           "<" ＋ 节点名 ＋ ">" ＋ 节点内容 ＋ "", <br />                           "<" ＋ 节点名 ＋ ">", <br />                           , , 真)<br /> .计次循环尾 ()<br /> <br /> 返回 (xml文本)<br /> <br /> .子程序 查找CDATA节点路径<br /> .参数 xml树, Xml树<br /> .参数 当前路径, 文本型<br /> .参数 路径数组, 文本型, 参考 数组<br /> .局部变量 子节点数, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 子节点数 ＝ xml树.取子节点数 (当前路径)<br /> .计次循环首 (子节点数, i)<br />     .局部变量 节点类型, 整数型<br />     .局部变量 新路径, 文本型<br />     <br />     新路径 ＝ 当前路径 ＋ "/" ＋ xml树.取节点名 (当前路径 ＋ "[" ＋ 到文本 (i) ＋ "]")<br />     节点类型 ＝ xml树.取节点类型 (新路径)<br />     <br />     .如果 (节点类型 ＝ #CDATA节点)<br />         加入成员 (路径数组, 新路径)<br />     .否则<br />         查找CDATA节点路径 (xml树, 新路径, 路径数组)<br />     .如果结束<br /> .计次循环尾 ()<br /> <br /> .子程序 取路径末节点名, 文本型<br /> .参数 完整路径, 文本型<br /> .局部变量 位置, 整数型<br /> <br /> 位置 ＝ 倒找文本 (完整路径, "/", , 假)<br /> .如果 (位置 ＞ 0)<br />     返回 (取文本右边 (完整路径, 取文本长度 (完整路径) － 位置))<br /> .否则<br />     返回 (完整路径)<br /> .如果结束<br /> <br /> .子程序 _按钮_格式化_被单击<br />     .局部变量 xml文本, 文本型<br />     <br />     xml文本 ＝ 编辑框1.内容<br />     .如果 (xml文本 ＝ "")<br />         信息框 ("请先加载XML文件", 0, "提示", )<br />         返回 ()<br />     .如果结束<br />     <br />     编辑框1.内容 ＝ 格式化XML (xml文本)<br /> <br /> .子程序 格式化XML, 文本型<br /> .参数 xml文本, 文本型<br /> .局部变量 格式化文本, 文本型<br /> .局部变量 缩进, 文本型<br /> .局部变量 i, 整数型<br /> <br /> ' 简单格式化（实际项目建议使用专业库）<br /> 格式化文本 ＝ ""<br /> 缩进 ＝ "    "<br /> <br /> ' 添加XML声明<br /> .如果 (寻找文本 (xml文本, "    格式化文本 ＝ 取文本左边 (xml文本, 寻找文本 (xml文本, "?>", , 假) ＋ 2) ＋ #换行符<br />     xml文本 ＝ 取文本右边 (xml文本, 取文本长度 (xml文本) － 寻找文本 (xml文本, "?>", , 假) － 2)<br /> .否则<br />     格式化文本 ＝ "" ＋ #换行符<br /> .如果结束<br /> <br /> ' 简单缩进处理<br /> 格式化文本 ＝ 格式化文本 ＋ 子文本替换 (xml文本, "><", ">" ＋ #换行符 ＋ "<", , , 真)<br /> <br /> 返回 (格式化文本)<br /> <br /> .子程序 _按钮_验证_被单击<br />     .局部变量 xml文本, 文本型<br />     <br />     xml文本 ＝ 编辑框1.内容<br />     .如果 (xml文本 ＝ "")<br />         信息框 ("请先加载XML文件", 0, "提示", )<br />         返回 ()<br />     .如果结束<br />     <br />     .如果 (验证XML格式 (xml文本))<br />         信息框 ("XML格式有效", 0, "验证通过", )<br />     .否则<br />         信息框 ("XML格式有误", 0, "验证失败", )<br />     .如果结束<br /> <br /> .子程序 验证XML格式, 逻辑型<br /> .参数 xml文本, 文本型<br /> .局部变量 验证树, Xml树<br /> <br /> 验证树.创建 ()<br /> 返回 (验证树.解析 (xml文本))