快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

从字符文档到xml文档

    计算机世界尽管现在越来越多地试图使用unicode这一世界语来说话,但还是存在着gb2312,shift-jis这样的方言,使用MSXML DOM就会清晰地体会到方言的不便。
    我想将下面这个文本文档直接存为转变成xml,是否OK,答案是NG(No Good)
strXML="<?xml version=""1.0"" encoding=""GB2312""?><XML>这里是一些编码为GB2312的xml文档</XML>"
Set domXML = New DOMDocument
domXML.loadXML strXML
If domXML.parseError Then Debug.Print domXML.parseError.reason Else Debug.Print domXML.xml
    执行这段代码会返回Switch from current encoding to specified encoding not supported.(不支持从当前编码转变到指定的编码)这样的错误信息。为什么会这样呢?Chris Lovett说:[LoadXML 方式总是采用只在 UCS-2 或 UTF-16 中编码的 Unicode BSTR。假如将非有效的 Unicode BSTR 的内容传递给 LoadXML,则加载会失败。]
    因此我们不得不只加载没有用"方言"的文档给DOMDocument对象。将<?xml version="1.0" encoding="GB2312"?>去掉,这样的话strXML将作为unicode字符串交给dom处理。
strXML="<XML>这里是一些编码为GB2312的xml文档</XML>"
   看到上面的用法,热爱自己语言的人们也许会大骂ms的。
   假如对这一问题深入研究一下,其实我们完全能做到将带有方言标志的文档直接加载到dom上,我编了一个小函数解决之一问题。
Private Function Str2XML(strOri As String) As DOMDocument
Dim xmlDoc As DOMDocument
Set xmlDoc = New DOMDocument
Dim pi() As Byte
pi() = StrConv(strOri, vbFromUnicode)
xmlDoc.Load pi
Set Str2XML = xmlDoc
End Function
我们用如下代码试一下
Set domXML = New DOMDocument
Set domXML = Str2XML(strXML)
If domXML.parseError Then Debug.Print domXML.parseError.reason Else Debug.Print domXML.xml
   就会发现准确输出了带<?xml version="1.0">标志的xml文档。但你假如用这个函数处理不带"方言"标志的文档可能会出现下面的错误
An Invalid character was found in text content.(在文本内容里存在非法字符)对于这个问题我也是在写这篇文章的时候才发现,我想在将一个text文档转变为xml文档的时候应该先检查一下语言标志吧。假如说方言交给我的函数去做,说世界语的就让他说吧。
Str2XML函数的原理是什么呢?
从下面Chris Lovett的描述里我想大家不难作出解释。
Load 方式可将以下内容当作 VARIANT:
1,(URL):假如 VARIANT 是 BSTR,则将其理解为 URL。
2,(VT_ARRAY 或 VT_UI1): VARIANT 也可以是包含原始编码字节的 SAFEARRAY。
3,(IUnknown): 假如 VARIANT 是 IUnknown 接口,则 DOM 文档为 IStream、IPersistStream 和 IPersistStreamInit 调用 QueryInterface。
   在msdn里没有提及load的非url应用,只是在ms的例子里能看到一些端倪,而且也是怪怪的。我的这篇文章也许可以称为msxml inside文章了吧。
   顺便提一下用xmlhttp发到server上的数据在转化为xml文档的时候就使用了load的这一用法。
// Load the posted XML data and save it to disk.
xmldoc.load(Request);
   大家不觉的load(Request)的用法怪怪的吗?
   其实我们分析一下用Request.BinaryRead读到的内容就会明白了。那就是文本文档的SafeArray形式,一切没有什么神秘的。
   建议大家读〈XML 数据的编码方法〉的中文版本。
返回类别: 教程
上一教程: 使用XML DOM生成XML(3)
下一教程: 多级联动下拉选择框,动态获取下一级

您可以阅读与"从字符文档到xml文档"相关的教程:
· XML字符串的读写操作函数及示例程序
· 使用 xsl 对 xml 文档进行动态排序,分页显示的扩展
· XML教程?编写结构完整的XML文档
· 如何得到XML文档大小
· XML 取得元素的字符数据
    微笑服务 优质保证 索取样品