[RESOLVED] write an XML file - help?

[Navarone]

I am looking for an example of how to write an XML file using VB.NET? I tried searching the MSDN site for "How to" but nothing specific came up. I am new to VB.NET and would appreciate some pointers.

[mendhak]

http://www.devx.com/tips/Tip/21168

[Navarone]

I don't think thats what I am looking for, that example requires a server, what I am doing is a stand alone application. I have button on my form that launches a Openfiledialog and I need to take the file name I click on and write it to a xml file.

[mendhak]

You can ignore the 'server' bit. It shows you how to use the XMLDocument object to create an XML file.

Have a look here, for example:

XMLDocument.Save()
http://msdn.microsoft.com/library/de...sSaveTopic.asp

[Navarone]

I think I bit off more then I can shew

It doesn't say how to use the example. Do I need an XML Document Object on my form?

[mendhak]

There's a sample right there on the page,

Imports System
Imports System.Xml
 
public class Sample 
 
  public shared sub Main() 
 
    ' Create the XmlDocument.
    Dim doc as XmlDocument = new XmlDocument()
    doc.LoadXml("<item><name>wrench</name></item>")
 
   ' Add a price element.
   Dim newElem as XmlElement = doc.CreateElement("price")
   newElem.InnerText = "10.95"
   doc.DocumentElement.AppendChild(newElem)
 
    ' Save the document to a file and auto-indent the output.
    Dim writer as XmlTextWriter = new XmlTextWriter("data.xml",nothing)
    writer.Formatting = Formatting.Indented
    doc.Save(writer)
  end sub
end class

You need the System.Xml namespace imported at the top of your class.

[Navarone]

Sorry, I saw it on that page, but I didn't/don't understand how to use it. Now in my project references I see System.XML, this is not what you are referring to is it?

What I have on my form so far is a ShockwaveFlashObject and a button. All the button does right now is open a fileDialog box. What I want to do is find the flash flv file, write the file name to a xml file and have the flashobject play it.



My code so far is this:

Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Windows Form Designer generated code "
 
    Public Sub New()
        MyBase.New()
 
        'This call is required by the Windows Form Designer.
        InitializeComponent()
 
        'Add any initialization after the InitializeComponent() call
 
    End Sub
 
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents AxShockwaveFlash1 As AxShockwaveFlashObjects.AxShockwaveFlash
    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.AxShockwaveFlash1 = New AxShockwaveFlashObjects.AxShockwaveFlash()
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
        Me.Button1 = New System.Windows.Forms.Button()
        CType(Me.AxShockwaveFlash1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'AxShockwaveFlash1
        '
        Me.AxShockwaveFlash1.Enabled = True
        Me.AxShockwaveFlash1.Location = New System.Drawing.Point(16, 16)
        Me.AxShockwaveFlash1.Name = "AxShockwaveFlash1"
        Me.AxShockwaveFlash1.OcxState = CType(resources.GetObject("AxShockwaveFlash1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxShockwaveFlash1.Size = New System.Drawing.Size(536, 328)
        Me.AxShockwaveFlash1.TabIndex = 0
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(384, 368)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(128, 40)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "Find FLV File"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(576, 518)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.AxShockwaveFlash1})
        Me.Name = "Form1"
        Me.Text = "FLV PLAYER"
        CType(Me.AxShockwaveFlash1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' Displays an OpenFileDialog so the user can select a Cursor.
        Dim openFileDialog1 As New OpenFileDialog()
        openFileDialog1.Filter = "Flash Video Files|*.flv"
        openFileDialog1.Title = "Select a FLV File"
 
        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim sr As New System.IO.StreamReader(openFileDialog1.FileName)
            MessageBox.Show(sr.ReadToEnd)
            sr.Close()
        End If
 
 
    End Sub
 
End Class

[Navarone]

The example from the MSDN site presupposes that I have an existing xml document. Correct?

[Navarone]

ok, I added the XML namespace at the top of my class and put the code from MSDN in a button click event. When I click the button no XML file is written or written too. On the premise I need a data.xml file already existing I made one and saved it in the project folder.

Either way nothing happens.

What now?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        ' Create the XmlDocument.
        Dim doc As XmlDocument = New XmlDocument
        doc.LoadXml("<item><name>wrench</name></item>")
 
        ' Add a price element.
        Dim newElem As XmlElement = doc.CreateElement("price")
        newElem.InnerText = "10.95"
        doc.DocumentElement.AppendChild(newElem)
 
        ' Save the document to a file and auto-indent the output.
        Dim writer As XmlTextWriter = New XmlTextWriter("data.xml", Nothing)
        writer.Formatting = Formatting.Indented
        doc.Save(writer)
 
    End Sub

[Andy_P]

The code above will create the 'data.xml' file in your project 'bin' directory, along with your .exe file.

You could of course specify a directory other than that, eg "C:\Temp\data.xml"

[Navarone]

Hey thanks for replying. I found a good tutorial for writing XML file which has helped me out a great deal.

http://www.vbdotnetheaven.com/Code/Apr2003/005.asp