Imports System
Imports System.IO
 
Public Class Test
    Public Shared Sub Main()
        Dim path As String = "c:\temp\MyTest.txt"
        Dim sw As StreamWriter
 
        ' This text is added only once to the file.
        If File.Exists(path) = False Then
 
            ' Create a file to write to.
            Dim createText() As String = {"Hello", "And", "Welcome"}
            File.WriteAllLines(path, createText)
        End If
 
        ' This text is always added, making the file longer over time
        ' if it is not deleted.
        Dim appendText As String = "This is extra text" + Environment.NewLine
        File.AppendAllText(path, appendText)
 
        ' Open the file to read from.
        Dim readText() As String = File.ReadAllLines(path)
        Dim s As String
        For Each s In readText
            Console.WriteLine(s)
        Next
    End Sub
End Class

 
<oelg>
<versionsNr>1.0</versionsNr>
<kundenNr>1</kundenNr>
<spielID>1</spielID>
<wsArt>10</wsArt>
<tnDauer>1</tnDauer>
<schein>
<lottoTip>Hello, And, Welcome</lottoTip>
</schein>
</oelg>