首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >问答首页 >读取/更改/保存vb.net

读取/更改/保存vb.net
EN

Stack Overflow用户
提问于 2016-04-21 01:38:54
回答 1查看 64关注 0票数 0

有没有一种简单的方法来更改下面xml中的IP地址?

我的想法是首先在列表框中加载“连接名称”,然后加载IP地址。然后创建第三个列表框,他们可以在其中添加新的IP地址。

然后保存新的XML文件。

代码语言:javascript
运行
复制
<CSD>
<Version>
 <Version>2.0.1</Version>
 <fileVersion>2.0</fileVersion>
 </Version>
<Connections>
<Connection name="Con1">
<Property name="attributes">
 <title>Product1</title>
 <ipaddress>10.79.44.33</ipaddress>
 <ipport>80</ipport>
 </Property>
 </Connection>
<Connection name="Con2">
<Property name="attributes">
 <title>Product2</title>
 <ipaddress>10.79.44.34</ipaddress>
 <ipport>80</ipport>
 </Property>
 </Connection>
<Connection name="Con3">
<Property name="attributes">
 <title>Productq</title>
 <ipaddress>10.79.44.35</ipaddress>
 <ipport>80</ipport>
 </Property>
 </Connection>
 </Connections>
</CSD>
EN

回答 1

Stack Overflow用户

发布于 2016-04-21 03:42:54

尝尝这个

代码语言:javascript
运行
复制
Imports System.Xml
Imports System.Xml.Linq
Module Module1

    Sub Main()
        Dim xml As String = _
            "<CSD>" & _
                "<Version>" & _
                    "<Version>2.0.1</Version>" & _
                    "<fileVersion>2.0</fileVersion>" & _
                "</Version>" & _
                "<Connections>" & _
                    "<Connection name=""Con1"">" & _
                        "<Property name=""attributes"">" & _
                            "<title>Product1</title>" & _
                            "<ipaddress>10.79.44.33</ipaddress>" & _
                            "<ipport>80</ipport>" & _
                        "</Property>" & _
                    "</Connection>" & _
                    "<Connection name=""Con2"">" & _
                        "<Property name=""attributes"">" & _
                            "<title>Product2</title>" & _
                            "<ipaddress>10.79.44.34</ipaddress>" & _
                            "<ipport>80</ipport>" & _
                        "</Property>" & _
                    "</Connection>" & _
                    "<Connection name=""Con3"">" & _
                        "<Property name=""attributes"">" & _
                            "<title>Productq</title>" & _
                            "<ipaddress>10.79.44.35</ipaddress>" & _
                            "<ipport>80</ipport>" & _
                        "</Property>" & _
                    "</Connection>" & _
                "</Connections>" & _
            "</CSD>"
        Dim csd As XElement = XElement.Parse(xml)
        Dim ipAddresses As List(Of XElement) = csd.Descendants("ipaddress").ToList()
        Dim subAddress As String = "10.79.40"
        Dim address = 1
        For Each ipAddress As XElement In ipAddresses
            ipAddress.Value = subAddress & "." & address.ToString
            address += 1
        Next ipAddress
    End Sub

End Module
票数 0
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/36751267

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档