属性の追加について への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 魔界の仮面弁士  (社会人) 投稿日時 2020/8/21 21:23:28
> 下記のように属性を持つノード"Site"を属性"Location="d"を持たせて
> 新たに追加しようとしています。 

もしかして、既存の Site ノードに Location="d" な属性を付与するという話でしょうか?
だとしたらこう書けます。

Dim doc = XDocument.Load("D:\TEMP\Sample.xml")

For Each site In doc.<DataPath>.<Site>
    site.SetAttributeValue("Location""d")
Next

'MsgBox(doc.ToString()) 
doc.Save("D:\TEMP\Sample2.xml")
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2020/8/21 15:21:43
> とりあえずこんな感じ。

実行結果はこうなります。
指定通り、Locatin ではなく Location として追加されていることが分かりますね。




なお先のコードだと、BOM 付の UTF-8 エンコードで出力されます。
もしも BOM 無しで出力したいなど、別の Encoding で出力したいのであれば
Encoding を明示した XmlTextWriter に Save するようにしてみてください。

Using writer As New XmlTextWriter("D:\TEMP\Sample3.xml"New UTF8Encoding(False))
    doc.Save(writer)
End Using
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2020/8/21 14:35:43
とりあえずこんな感じ。

ノード末尾の改行が必須かどうか、とか、encoding 指定が必要かどうかなどで、
いろいろ書き方が変わってきます。LoadOptions や SaveOptions は適宜調整を。

Dim doc = XDocument.Load("D:\TEMP\Sample.xml", LoadOptions.PreserveWhitespace)
Dim newSite = <Site Location="d">C:\temp</Site>
doc.Root.Add(newSite)
doc.Root.Add(vbCrLf)
doc.Save("D:\TEMP\Sample2.xml")
投稿者 LLCOOLJ  (社会人) 投稿日時 2020/8/20 23:13:27
xml文書にvisual basicで書き込みをしようとしています。
下記のように属性を持つノード"Site"を属性"Location="d"を持たせて
新たに追加しようとしています。 
どのように書き込むとうまくいきますでしょうか?
知識のある方ご回答よろしくお願いします。


<DataPath>
<Site Locatin="a">C:\temp</Site>
<Site Locatin="b">C:\temp</Site>
<Site Locatin="c">C:\temp</Site>
</DataPath>