lzth.net
当前位置:首页 >> VB6, 操作XML文件,进行读取和替换 >>

VB6, 操作XML文件,进行读取和替换

都在附件里

给你两个方案 1,使用webbrower控件加载xml然后使用document对象的方法来获取

'xml文本中有 :xmlns="x-schema:pmillmt.xml" 串时对象没法读取Private Sub Command1_Click() Dim xmldoc As New MSXML2.DOMDocument xmldoc.async = False If xmldoc.Load(App.Path & "\test.xml") Then Dim list As IXMLDOMNodeList Set list...

工程中引用Microsoft XML,啥版本都行,然后就可以用常见的方法操作xml文件了,比如: Dim xmldoc As New MSXML.DOMDocumentxmldoc.Load "xml文件的路径" '打开xml文件Print xmldoc.selectNodes("root/data")(0).Text '打印其中一个节点的内容

既然是webservice,你就用VB6建立一个XML格式的(网页)文件,对方用IE就能打开,也可以使用XMLHTTP协议直接读取数据。

Private Sub Command1_Click() Open "1.xml" For Output As #1 Close #1 End Sub 注: 先生成 在 运行 会在exe的目录里 生成一个1.xml ,怎么样 方法不错吧 ,别的扩展名的也可以这样生成

点调试后是提示哪行有错? 我用你的同样代码、同样网站测试没有出现错误。

1.使用socket方式,通过tcp连接web服务器的80端口,发送http协议命令.来实现传输.但太底层.都需要自己来实现.不好, 2.使用xmlhttp控件.vb使用他,快速简单,可以选择get/post方式 下面是使用的封装函数. Function xmlread(url) As String ''用xml读...

Dim xmlhttp Set xmlhttp = CreateObject("msxml2.xmlhttp") With xmlhttp .open "POST", "填写上面假设的网址", False .setRequestHeader "Content-Type", "application/x-www-form-urlencoded" .send "MENU=200&code=1540&JOB=VOTE" MsgBox .r...

你把On Error那行注释掉或删掉,再编译为EXE运行,这样的话你就会知道究竟是什么错了。我个人是不建议使用On Error的,因为一旦程序有错会让你死了都不知道怎么死的。 另外建议你把XmlHttp改为异步调用(第三个参数改为True),程序就不会卡了,...

网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com