Visual Basic

<div class="signature">Dave

Don't forget to rate messages!<br>Find Me On: <a href="http://www.dave-auld.net/" target="_blank">Web</a>|<a href="http://www.facebook.com/dave.m.auld/" target="_blank">Facebook</a>|<a href="http://www.twitter.com/daveauld/" target="_blank">Twitter</a>|<a href="http://www.linkedin.com/in/daveauld" target="_blank">LinkedIn</a><br>Waving? dave.m.auld[at]googlewave.com<br><br></div>

Dim nameLines() As String = TextBox1.Text.Split(New Char() {vbNewLine})
Dim emailLines() As String = TextBox2.Text.Split(New Char() {vbNewLine})

If nameLines.Count <> emailLines.Count Then
   MessageBox.Show("Number of entries don't match")
   Return
End If

For i = 0 to UBound(nameLines)
   Dim newItem As New ListViewItem(New String() {nameLines(i), emailLines(i)})
   ListView1.Items.Add(newItem)
Next

Imports System.IO

Public Class Form1

    Private fn As String
    Private projectFile As String
    Private shortName As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        sfd.InitialDirectory = Environment.SpecialFolder.Personal
        sfd.Filter = "Enscription Project (*.vpt)|*.vpt"
        sfd.Title = "Trying to fix problem"

        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            fn = sfd.FileName
            shortName = Path.GetFileNameWithoutExtension(fn)
            projectFile = shortName
            WriteXML()
        Else
            Exit Sub
        End If
    End Sub


    Private Sub WriteXML()

        Dim writer As New Xml.XmlTextWriter(projectFile, Nothing)

        writer.WriteStartDocument(True)
        writer.Formatting = Xml.Formatting.Indented
        writer.WriteComment("Created using Enkadia Enscription - copyright 2010")

        writer.WriteStartElement("EnkadiaEnscription")
        writer.WriteStartElement("Project")
        writer.WriteElementString("Transcription", fn & ".vtn")
        writer.WriteElementString("EditorsNotes", fn & ".ved")
        writer.WriteElementString("VideoClip", fn & ".mp4")

        writer.WriteEndElement()
        writer.WriteEndElement()

        writer.Flush()
        writer.Close()

    End Sub
End Class