以文本方式查看主题

-  W3CHINA.ORG讨论区 - 语义网·描述逻辑·本体·RDF·OWL  (http://bbs.xml.org.cn/index.asp)
--  『 DOM/SAX/XPath 』  (http://bbs.xml.org.cn/list.asp?boardid=11)
----  大家有帮我看一下这个问题吗？谢谢  (http://bbs.xml.org.cn/dispbbs.asp?boardid=11&rootid=&id=25999)

--  作者：hqh200023607
--  发布时间：12/29/2005 5:50:00 PM

--  大家有帮我看一下这个问题吗？谢谢
我的XML文件是books.xml:
<?xml version="1.0"?>
<! DOCTYPE Books SYSTEM "books.dtd">
<Books>
    <Book ISBN="7-111-07315-0">
    <title>Professional XML</title>
    <authors>
      <author>Didier Martin</author>
      <author>Mark Birbect</author>
      <author>Mark Birbec</author>
    </authors>
    <price>95.00</price>
   </Book>
   <Book ISBN="7-302-02934-2">
    <title>Guide to programming with MFC</title>
    <authors>
       <author>Peter Norton</author>
       <author>RobMcGregor</author>
    </authors>
    <price>79.00</price>
   </Book>
</Books>

DTD文件是否books.dtd:
<! ELEMENT Books(Book *)>
<! ELEMENT Book(title,authors,price)>
<! ELEMENT title(#PCDATA)>
<! ELEMENT authors(author  *)>
<! ELEMENT author(#PCDATA)>
<! ELEMENT price(#PCDATA)>
<! ATTLIST Book ISBN CDATA #REQUIRED>

frm文件是form1.frm:

其代码是：

Dim xDoc As MSXML2.DOMDocument
Dim path As String

Private Sub Form_Load()
path = App.path & "\"
End Sub

Private Sub Load_Click()
Set xDoc = New MSXML2.DOMDocument
    xDoc.validateOnParse = True
    xDoc.async = False
If (xDoc.load(path & "books.xml")) Then
  MsgBox "Load documents successfully!"
  xDoc.save (path & "save.xml")
Else
  MsgBox xDoc.parseError.reason
End If
Set xDoc = Nothing
End Sub
我运行之后，它提示我该位置上不能有空白，不知道是什么意思，有哪位知道吗？小弟在这里先谢了

W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 4,101.563ms