Visual Basicを使用してXMLファイルを作成する方法

Question

質問があります。ビジュアルスタジオでビジュアルで基本的なXMLファイルを作成したいと思います。

xmlファイルは次のようにする必要があります：

<?xml version="1.0" encoding="utf-8"?> 
<Root Name="scenario"> 
    <Entries> 
    <Entry Name="firstname" Value="gedaan" /> 
    <Entry Name="lastname" Value="salame" /> 
    <Entry Name="job" Value="Engineer" /> 
    </Entries> 
</Root> 

私はたくさんの検索が、私はしたいXMLは少し異なっているため、このような何も気にいらが存在しない、有用何も見つからなかっ：<FirstName>gedaan</FirstName>は、そのわずか<Entry Name="FirstName" Value="gedaan" />

助けてください ありがとうございます。

Answer 1

私は以前これを行っています。 XMLを行単位で印刷する必要があります。 FileSystemObjectを使用して、空の.xmlファイルを作成します。次に.xmlを出力として開きます。次に、.xml文字列を作成し、出力に出力します。

Dim fs as Object 
    Dim strWriteFileName , strWriteLine as string 

    Set fs = CreateObject("Scripting.FileSystemObject") 
    strWriteFileName = Forms!MAIN.OutputFile.value & ".xml" 

    Open strWriteFileName For Output As #1 
     strWriteLine = "<?xml version=""1.0"" encoding=""utf-8""?>" 
     Print #1, strWriteLine 
     strWriteLine = "<Root Name=""scenario"">" 
     Print #1, strWriteLine 
     strWriteLine = "<Entries>" 
     Print #1, strWriteLine 
     'Depending on XML schema here may be a good place for a Loop' 
     strWriteLine = "<Entry Name=""firstname"" Value=""gedaan"" />" 
     Print #1, strWriteLine 
     strWriteLine = "<Entry Name=""lastname"" Value=""salame"" />" 
     Print #1, strWriteLine 
     strWriteLine = "<Entry Name=""job"" Value=""Engineer"" />" 
     Print #1, strWriteLine 
     'And here may be a good place to end the loop' 
     strWriteLine = "</Entries>" 
     Print #1, strWriteLine 
     strWriteLine = "</Root>" 
     Print #1, strWriteLine 
    Close #1 
    set fs = Nothing 

上記の内容が印刷されます。複数のエントリを追加する必要がある場合は、単にループインしてより多くの名前を出力してください。 MAINというフォームとOutputFileというテキストボックスも使用しましたので、必要に応じてそれらを置き換えることができます。