首页
首页 > 最爱分享 > vb6.0读取xml文件夹 >正文

vb6.0读取xml文件夹

时间:2021-06-06 03:54:46 /人气:3451 ℃

vb6.0读取xml文件夹

'函数已测试OK Private Function GetValue(ByVal MKey As String, ByVal iStr As Private Sub Command1_Click() '示例 XMLFile = "D:\Test.xml" '测试文件名 Open

xml文件名2.xml<?xml version="1.0" encoding="utf-8" ?><testlist> <test> <id>我在遥望</id> <name>月亮之上</name> <time>有多少梦想</time> <mdn>在自由的飞翔<

你有两个选择:1、将xml文件当做文本文件来处理.替换指定字符即可.2、使用 MSXML 组件来处理.度娘搜一下,一大堆文档可参考.打字不易,如满意,望采纳.

Dim xDoc As Object Dim xmlFile As String Dim strWidth As String Dim strHeight As String Set xDoc = CreateObject("MSXML2.DOMDocument") xmlFile = "C:\1.xml"

给你两个方案1,使用webbrower控件加载xml然后使用document对象的方法来获取 <servrs default内容,修改也一样,相信你知道吧2,直接使用字符串函数 如instr找到<config>然后从这里找 <servrs default,接着获取值.修改也好说,先删掉""中内容(因为已经找到 default位置,删掉内容不难吧),然后用left(s,) & 替换的值 & right(s)

Private Sub Command1_Click() Dim xDoc As Object Dim xmlFile As String Dim xmlFile = "C:\aa.xml" xDoc.Load xmlFile strWidth = xDoc.selectSingleNode("overlays"

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

相关代码如下:Public Function getHtmlStr(strUrl As String) '获取远程网页源码 On Error Resume Next Dim XmlHttp As Object, stime, ntime Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.open "GET", strUrl, True XmlHttp.send stime = Now '获取当前时间 While XmlHttp.ReadyState <> 4 DoEvents ntime = Now '获取循环时间 If DateDiff("

用richtextbox就可以啊 读取:例如:Private Sub Command1_Click() RichTextBox1.LoadFile "d:\1.xml" End Sub 保存:Private Sub Command2_Click() RichTextBox1.SaveFile "d:\1.xml" End Sub

从VB吧里搜索来的.你看看 DOMDocument 类 文档对象模型(DOM)使用了一系列相应的对象描述了XML文档的等级状态,DOMDocument类是一个描绘XML

Copyright ©  最爱分享 Inc.
www.626523.com All Rights Reserved
来源于网络,属网友个人观点,不代表本站立场,仅供参考!