VB6.0如何读取并修改XML文件？
更新日期：2024.05.16
你有两个选择：
1、将xml文件当做文本文件来处理。替换指定字符即可。
2、使用 MSXML 组件来处理。度娘搜一下，一大堆文档可参考。
打字不易，如满意，望采纳。
'声明窗体全局变量
dim oldIP as string, p1 as long,p2 as long,xmlContent as string
dim newIP as String
private sub Form_Load()
读取xml文档：
dim fn,n as long
fn=freefile
open "c:\config.xml" for binary as #fn
n=lof(fn)
xmlContent=space(n)
get #fn,,xmlContent
close #fn
提取IP：
p1=InStr(xmlContent,"<ip>")
p2=InStr(p1,xmlContent,"</ip>")
oldIP = mid(xmlContent,p1+4,p2 - p1 + 1)
label1.caption=oldIP
end sub
‘optionbutton事件过程代码：optionbutton命名为option1，同时设置index属性创建控件数组
private sub option1_Click(ByVal Index As Integer)
select case index
case 0
newIP="10.10.0.130"
case 1
newIP="10.10.0.131"
case 2
newIP="10.10.0.132"
case 3
newIP="10.10.0.133"
end select
end sub
'commandbutton事件代码：保存修改后的IP
private sub command1_Click()
dim fn,content as string,n as long
if oldIP<>newIP then
xmlContent=left(xmlContent,p1+3) & newIP & mid(xmlContent,p2)
fn=freefile
open "c:\config.xml" for binary as #fn
put #fn,,xmlContent
close #fn
end if
end sub
如果XML很简单
用filesystemobject对象直接处理字符串
如果XML较复杂
建议用 XML对象库 的DOCument对象来处理
13913005829 :vb修改config(xml)文件
熊杭言1769 :答：我这里有个vb xml类，你试着用用！你需要了解dom 和xpath方面的知识。下面的代码需要在工程中添加引用： microsoft xml 6.0 ''mornxml.cls xml解析类 'AUTHOR Morn Woo '完成时间 2011年4月18日 '版本 ver1.0 20110111,修正了部分错误 'Option Explicit Option Compare Text DefInt...
13913005829 :哪位对VB操作XML文件熟悉?
熊杭言1769 :答：想用VB6.0操作处理,只修改菜单2这一个部分,其它内容不变,要把"菜单2"改成"menu2",有谁知道,请指点...多谢了!!Private Sub SaveValues()Dim xml_document As DOMDocumentDim values_node As IXMLDOMNode' Create the XML document.Set xml_document = New DOMDocument' Create the Values section node.Set ...
13913005829 :求VB操作 XML对象的教程
熊杭言1769 :答：End Sub 运行结果如下: 虽然,MSXML提供了从Visual Basic6.0加载和存储XML文档的工具,但是,对其的应用要求程序员对VB和MSXML的COM接口有一定的认识,所以,并不是得到很广泛的应用。作者:洪万福出处:微软社区责任编辑: 方舟 [ 2003-08-20 10:45 ] 本文为计划将应用程序更新到VB.NET的VB开发用户提供一些关于XML的...
13913005829 :vb 读取xml文件内容
熊杭言1769 :答：xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes(2).Text = "123"xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes(3).Text = "456"xDoc.save (xmlFile)End Sub 注意 你上面的XML中Width="840"Height="630" 要分开，改成：Width="840" Height="630"
13913005829 :使用vb.net如何读取XML文件
熊杭言1769 :答：应该在存放VB．NET文件的目录中运行上述命令，否则找不到相应的程序，当然设置PATH也可以做到。此外，Xml_vb文件应该和XML文件放在同一目录下面。每次运行此程序都会往文件中写进同样的内容，都是写入<Person／>，运行一次写一行。其实，我们只要稍微修改一下这个程序，就可以往XML中写入我们所需要的数据。
13913005829 :vb读取xml文件指定数值
熊杭言1769 :答：xmlFile = "C:\1.xml"xDoc.Load xmlFile t1 = xDoc.selectSingleNode("output").selectSingleNode("prm_ykb109").Text t2 = xDoc.selectSingleNode("output").selectSingleNode("prm_yab139").Text MsgBox t1 & t2 把你的xml保存在C盘根目录，名字叫1.xml 以上测试分别取出prm_ykb109和prm_ykb...
13913005829 :VB6.0 读取文本每行内容,处理后写入另一文本?
熊杭言1769 :答：可以通过以下步骤实现这个功能：打开文本文件a，并使用Line Input函数逐行读取内容。对每行内容进行处理，将其修改为所需的格式。将处理后的内容写入新的文本文件b。以下是一个简单的示例代码：Option ExplicitSub Main()Dim strInputFilePath As StringDim strOutputFilePath As StringDim intInputFile As...
13913005829 :vb 6.0 读取配置信息
熊杭言1769 :答：KeyValue$ = StrConv(LeftB(StrConv(KeyValue$, vbFromUnicode), characters), vbUnicode)End If GetPrivateStringValue = Replace(KeyValue$, Chr(0), "")End Function 以下是具体例子。Dim ini As String, ini2 As String ini = "d:\cati\agent.ini" 'ini路径文件名 ini2 = GetPrivate...
13913005829 :VB6.0中如何往一个XML文件中写入数据, 当条件满足时我只是写入1或0...
熊杭言1769 :答：从VB吧里搜索来的。你看看 DOMDocument 类 文档对象模型(DOM)使用了一系列相应的对象描述了XML文档的等级状态，DOMDocument类是一个描绘XML文档的DOM结构的MSXML类。DOMDocument类，Load方法载入一个xml文件，loadxml方法将字符串作为xml数据添加到对象中。例如，下面的代码就将一个小的xml文件添加到名为xml...
13913005829 :求VB6.0打开网页,获取里面数据的代码
熊杭言1769 :答：ntime = Now() '获取循环时间 If DateDiff("s", stime, ntime) > 3 Then getHtmlStr = "": Exit Function Wend getHtmlStr = StrConv(XmlHttp.responseBody, vbUnicode) Set XmlHttp = NothingEnd Function使用 ：a=getHtmlStr("网址")a的值就是获取到的源码 ...
1、将xml文件当做文本文件来处理。替换指定字符即可。
2、使用 MSXML 组件来处理。度娘搜一下，一大堆文档可参考。
打字不易，如满意，望采纳。
'声明窗体全局变量
dim oldIP as string, p1 as long,p2 as long,xmlContent as string
dim newIP as String
private sub Form_Load()
读取xml文档：
dim fn,n as long
fn=freefile
open "c:\config.xml" for binary as #fn
n=lof(fn)
xmlContent=space(n)
get #fn,,xmlContent
close #fn
提取IP：
p1=InStr(xmlContent,"<ip>")
p2=InStr(p1,xmlContent,"</ip>")
oldIP = mid(xmlContent,p1+4,p2 - p1 + 1)
label1.caption=oldIP
end sub
‘optionbutton事件过程代码：optionbutton命名为option1，同时设置index属性创建控件数组
private sub option1_Click(ByVal Index As Integer)
select case index
case 0
newIP="10.10.0.130"
case 1
newIP="10.10.0.131"
case 2
newIP="10.10.0.132"
case 3
newIP="10.10.0.133"
end select
end sub
'commandbutton事件代码：保存修改后的IP
private sub command1_Click()
dim fn,content as string,n as long
if oldIP<>newIP then
xmlContent=left(xmlContent,p1+3) & newIP & mid(xmlContent,p2)
fn=freefile
open "c:\config.xml" for binary as #fn
put #fn,,xmlContent
close #fn
end if
end sub
如果XML很简单
用filesystemobject对象直接处理字符串
如果XML较复杂
建议用 XML对象库 的DOCument对象来处理
熊杭言1769 :答：我这里有个vb xml类，你试着用用！你需要了解dom 和xpath方面的知识。下面的代码需要在工程中添加引用： microsoft xml 6.0 ''mornxml.cls xml解析类 'AUTHOR Morn Woo '完成时间 2011年4月18日 '版本 ver1.0 20110111,修正了部分错误 'Option Explicit Option Compare Text DefInt...
熊杭言1769 :答：想用VB6.0操作处理,只修改菜单2这一个部分,其它内容不变,要把"菜单2"改成"menu2",有谁知道,请指点...多谢了!!Private Sub SaveValues()Dim xml_document As DOMDocumentDim values_node As IXMLDOMNode' Create the XML document.Set xml_document = New DOMDocument' Create the Values section node.Set ...
熊杭言1769 :答：End Sub 运行结果如下: 虽然,MSXML提供了从Visual Basic6.0加载和存储XML文档的工具,但是,对其的应用要求程序员对VB和MSXML的COM接口有一定的认识,所以,并不是得到很广泛的应用。作者:洪万福出处:微软社区责任编辑: 方舟 [ 2003-08-20 10:45 ] 本文为计划将应用程序更新到VB.NET的VB开发用户提供一些关于XML的...
熊杭言1769 :答：xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes(2).Text = "123"xDoc.selectSingleNode("overlays").selectSingleNode("Info").Attributes(3).Text = "456"xDoc.save (xmlFile)End Sub 注意 你上面的XML中Width="840"Height="630" 要分开，改成：Width="840" Height="630"
熊杭言1769 :答：应该在存放VB．NET文件的目录中运行上述命令，否则找不到相应的程序，当然设置PATH也可以做到。此外，Xml_vb文件应该和XML文件放在同一目录下面。每次运行此程序都会往文件中写进同样的内容，都是写入<Person／>，运行一次写一行。其实，我们只要稍微修改一下这个程序，就可以往XML中写入我们所需要的数据。
熊杭言1769 :答：xmlFile = "C:\1.xml"xDoc.Load xmlFile t1 = xDoc.selectSingleNode("output").selectSingleNode("prm_ykb109").Text t2 = xDoc.selectSingleNode("output").selectSingleNode("prm_yab139").Text MsgBox t1 & t2 把你的xml保存在C盘根目录，名字叫1.xml 以上测试分别取出prm_ykb109和prm_ykb...
熊杭言1769 :答：可以通过以下步骤实现这个功能：打开文本文件a，并使用Line Input函数逐行读取内容。对每行内容进行处理，将其修改为所需的格式。将处理后的内容写入新的文本文件b。以下是一个简单的示例代码：Option ExplicitSub Main()Dim strInputFilePath As StringDim strOutputFilePath As StringDim intInputFile As...
熊杭言1769 :答：KeyValue$ = StrConv(LeftB(StrConv(KeyValue$, vbFromUnicode), characters), vbUnicode)End If GetPrivateStringValue = Replace(KeyValue$, Chr(0), "")End Function 以下是具体例子。Dim ini As String, ini2 As String ini = "d:\cati\agent.ini" 'ini路径文件名 ini2 = GetPrivate...
熊杭言1769 :答：从VB吧里搜索来的。你看看 DOMDocument 类 文档对象模型(DOM)使用了一系列相应的对象描述了XML文档的等级状态，DOMDocument类是一个描绘XML文档的DOM结构的MSXML类。DOMDocument类，Load方法载入一个xml文件，loadxml方法将字符串作为xml数据添加到对象中。例如，下面的代码就将一个小的xml文件添加到名为xml...
熊杭言1769 :答：ntime = Now() '获取循环时间 If DateDiff("s", stime, ntime) > 3 Then getHtmlStr = "": Exit Function Wend getHtmlStr = StrConv(XmlHttp.responseBody, vbUnicode) Set XmlHttp = NothingEnd Function使用 ：a=getHtmlStr("网址")a的值就是获取到的源码 ...
