XMLのIDを付与
Imports System.Xml Sub Main() Dim item As New XmlDocument() item.Load("C:\Sample\link.xml") Dim cbase As XmlElement = item.DocumentElement For i As Integer = 0 To cbase.ChildNodes.Count - 1 CType(cbase.ChildNodes(i), XmlElement).SetAttribute("id", "temid" & (i + 1).ToString("0000")) Next item.Save("C:\test.xml") End Sub