Créer un nœud XML

Le premier problème, c'est que vous ajoutez l'enfant en appelant ProfileList.DocumentElement.AppendChild. Cette méthode aura pour effet d'ajouter à l'enfant de l'élément document, qui est la racine de niveau Profiles élément. Si vous voulez ajouter de l'enfant à la première Profile élément, vous devez le modifier pour cela:

Public Sub CreateProjectXml()
    ProfileList.Load(xml_path)
    Dim profilesNode As XmlNode = ProfileList.SelectSingleNode("Profiles")
    Dim profiles As XmlNodeList = profilesNode.SelectNodes("Profile")
    Dim profile As XmlNode = profiles(0)
    Dim project_info As XmlElement = ProfileList.CreateElement("Project_Name")
    project_info.InnerText = "Project 1"
    profile.AppendChild(project_info)
    ProfileList.Save(xml_path)
End Sub

Avis dans l'exemple ci-dessus, je l'ai changé pour utiliser profiles(0) au lieu de profiles(2), de cette façon, il va utiliser la première plutôt que la troisième.

Cependant, il vaut la peine de mentionner que SelectNodes et SelectSingleNode utilisation de XPath. Cela signifie que vous pouvez simplifier votre logique considérablement en sélectionnant l'un des éléments que vous voulez vraiment, par exemple, si tout ce que vous voulez, c'est la première Profile élément, vous pourriez faire ceci:

Public Sub CreateProjectXml()
    ProfileList.Load(xml_path)
    Dim profile As XmlNode = ProfileList.SelectSingleNode("Profiles/Profile")
    Dim project_info As XmlElement = ProfileList.CreateElement("Project_Name")
    project_info.InnerText = "Project 1"
    profile.AppendChild(project_info)
    ProfileList.Save(xml_path)
End Sub

La SelectSingleNode méthode renvoie le premier élément correspondant de toute façon, de sorte que vous n'avez pas besoin de spécifier l'index dans le XPath, mais si vous voulez être plus explicite, vous pouvez spécifier l'index pour ne recevoir que la première, comme ceci:

Dim profile As XmlNode = ProfileList.SelectSingleNode("Profiles/Profile[1]")

Ou, si vous voulez obtenir la troisième Profile élément, vous pouvez utiliser cette XPath à la place:

Dim profile As XmlNode = ProfileList.SelectSingleNode("Profiles/Profile[3]")

Ou, si vous voulez obtenir le Profile élément qui avait un Profile_Name égal à "Profil 2", vous pourriez faire ceci:

Dim profile As XmlNode = ProfileList.SelectSingleNode("Profiles/Profile[Profile_Name='Profile 2']")

Etc. Si vous allez travailler avec XML bien, il serait bien utile de votre effort pour passer du temps à apprendre les bases de XPath. XPath est un standard XML langage de requête qui est utilisé dans de nombreux XML outils et langages de programmation. Par exemple, si vous allez jamais utiliser XSLT, vous aurez besoin de comprendre XPath. XPath peut être utilisé avec le XmlDocument classe, comme je l'ai mentionné ci-dessus, et aussi avec la nouvelle XDocument classe.

L'alternative à XPath est d'utiliser LINQ. LINQ est une propriété de la technologie Microsoft, de sorte que vous ne trouverez pas de soutien dans d'autres outils et langages de l'extérieur .NET, mais beaucoup de gens ne préfèrent. La nouvelle XDocument classe est conçu pour rendre XML facile à travailler grâce à LINQ. Combiné avec VB.NET soutien pour les littéraux XML, cette tâche est en fait assez facile avec XDocument:

Dim doc As XDocument = XDocument.Load(xml_path)
doc.<Profiles>.<Profile>(0).Add(<Project_Name>Project 1</Project_Name>)
doc.Save(xml_path)

Depuis que vous utilisez VB.Net, vous pouvez travailler avec des fichiers XML de la manière facile.

Dim xml = <?xml version="1.0" encoding="utf-8"?>
            <Profiles>
                <Profile>
                    <Profile_Name>Profile 1</Profile_Name>
                    <Profile_Path>E:\Test</Profile_Path>
                </Profile>
                <Profile>
                    <Profile_Name>Profile 2</Profile_Name>
                    <Profile_Path>E:\Test</Profile_Path>
                </Profile>
            </Profiles>

xml...<Profile>.First().Add(<Project_Name>Project 1</Project_Name>)

Maintenant xml est

<Profiles>
  <Profile>
    <Profile_Name>Profile 1</Profile_Name>
    <Profile_Path>E:\Test</Profile_Path>
    <Project_Name>Project 1</Project_Name>
  </Profile>
  <Profile>
    <Profile_Name>Profile 2</Profile_Name>
    <Profile_Path>E:\Test</Profile_Path>
  </Profile>
</Profiles>

donc en gros, vous avez juste besoin de ce:

Public Sub CreateProjectXml()
    ProfileList.Load(xml_path)
    ProfileList...<Profile>.First().Add(<Project_Name>Project 1</Project_Name>)
    ProfileList.Save(xml_path)
End Sub