Question

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

<?xml version="1.0" encoding="GBK" ?>
<config >
。。。。。。。。。。。
<servers default="1234">
<server 。。。。 />
<server 。。。。 />
</servers>
。。。。。。。
</config>
我需要对以上代码进行读取，并且用COMBOX中所显示的值替换1234这个地方，其他为非关键代码，所以用省略号代替

Answer 1

给你两个方案

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

追问

第一种方法，webbrower是.net的控件，不是6的
第二种方法，替换没有问题，可是怎么保存文件拉，而且其他都不能改动

追答

webbrower是.net的，不是 6的？？？我无语.........

保存文件很难吗？ open for output即可，有了开始<servers default=" 的位置
用然后用left(s,) & 替换的值 & right(s)不就是新的文件了么？？？