您的位置：程序门 -> vb -> 控件



怎样读取xml文件!


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


怎样读取xml文件![已结贴,结贴人:flankier]
发表于：2007-05-17 15:15:19 楼主
我有一份xml的文件,但有一个问题,总是出错的,就是每次运行到sxml.sorderno   =   trim（objchild.text)这个出现 "对象变量或with块变量未设置 ",请问那个可以帮帮我!
xml文件如下:
<orders>
    <order>
        <header>
            <orderno> 4500018292 </orderno>
            <orderdate> 13.04.07 </orderdate>
            <ordercustomer> tc001 </ordercustomer>
        </header>


dim   objxml   as   new   domdocument
dim   objnode   as   ixmldomnode
dim   objchild   as   ixmldomnode


dim   sxml   as   xmlcontent
dim   ni   as   integer

objxml.load   （sfile)\\\xml文件的路径
set   objnode   =   objxml.selectsinglenode（ "orders ")
set   objnode   =   objnode.selectsinglenode（ "order ")
set   objnode   =   objnode.selectsinglenode（ "header ")

for   ni   =   0   to   objnode.childnodes.length   -   1

        set   objchild   =   objnode.childnodes（ni).selectsinglenode（ "orderno ")
                sxml.sorderno   =   trim（objchild.text)
        set   objchild   =   objnode.childnodes（ni).selectsinglenode（ "orderdate ")
            if   isdate（objchild.text)   =   true   then   sxml.sorderdate   =   format（cdate   （objchild.text),   "yyyy-mm-dd   ")   else   sxml.sorderdate   =   #1/1/1900#
     
next
发表于：2007-05-17 16:09:151楼 得分:50
先mark下，稍后再看，只是友情提醒，你的xml文件明显都没闭合。

-   <orders>
-   <header>
    <orderno> 4500018292 </orderno>  
    <orderdate> 13.04.07 </orderdate>  
    <ordercustomer> tc001 </ordercustomer>  
    </header>
    </orders>
应该这样子的文件
发表于：2007-05-17 16:25:442楼 得分:0
参考这个看看：http://www.mndsoft.com/blog/article.asp?id=902

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击