Imports System.IO
 
Public Class Form2
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        initUI()
    End Sub
 
    ' Benutzerschnittstelle initialisieren
    Public Sub initUI()
        Dim ftSize As Integer = Convert.ToInt32(ListView1.Font.SizeInPoints)
        ListView1.Columns.Add("Name", 15 * ftSize, HorizontalAlignment.Center)
        ListView1.Columns.Add("Vorname", 15 * ftSize, _
          HorizontalAlignment.Center)
        ListView1.Columns.Add("Adresse", 30 * ftSize, HorizontalAlignment.Left)
 
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox4.Clear()
    End Sub
 
    ' Speichern:
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Try
            With SaveFileDialog1
                .Title = "Datei speichern"
                .InitialDirectory = Application.StartupPath
                .FileName = "Test.dat"
                .Filter = "Dateien (*.dat)|*.dat|Alle Dateien (*.*)|*.*"
                If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                    Dim fs As New FileStream(.FileName, FileMode.Create, _
                      FileAccess.Write)
                    Dim strmWriter As New StreamWriter(fs)
                    For i As Integer = 0 To ListView1.Items.Count - 1          _
                      ' alle Zeilen (Items) der ListView
                        For j As Integer = 0 To ListView1.Items( _
                        i).SubItems.Count - 1  ' alle Spalten (SubItems) der 
                        ' ListView
                            Dim sep As String = String.Empty
                            If j > 0 Then sep = "\" ' einzelne Einträge trennen
                            strmWriter.Write(sep + ListView1.Items(i).SubItems( _
                              j).Text)
                        Next j
                        strmWriter.WriteLine()
                    Next i
                    strmWriter.Flush()
                    strmWriter.Close()
                End If
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    ' Laden:
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Try
            With OpenFileDialog1
                .Title = "Datei öffnen"
                .InitialDirectory = Application.StartupPath
                .FileName = "Test.dat"
                .Filter = "Dateien (*.dat)|*.dat|Alle Dateien (*.*)|*.*"
                .RestoreDirectory = True
                If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                    Dim fs As New FileStream(OpenFileDialog1.FileName, _
                      FileMode.Open, FileAccess.Read)
                    Dim strmReader As New StreamReader(fs)
                    Dim line As String = strmReader.ReadLine()      ' erste 
                    ' Zeile lesen
                    Dim start As Integer = 0
                    Do While line <> Nothing
                        Dim ende As Integer = line.IndexOf("\", start)    ' 
                        ' Ende des ersten Eintrags
                        Dim s1 As String = line.Substring(start, ende)    ' 
                        ' ersten Eintrag lesen
 
                        start = ende + 1                         ' Anfang des 
                        ' zweiten Eintrags
                        ende = line.IndexOf("\", start)          ' Ende des 
                        ' zweiten Eintrags
                        Dim s2 As String = line.Substring(start, ende - start)  _
                           ' zweiten Eintrag lesen
 
                        start = ende + 1                            ' Anfang 
                        ' des letzten Eintrags 
                        Dim s3 As String = line.Substring(start)    ' letzten 
                        ' Eintrag lesen
 
                        Dim lvi As New ListViewItem(New String() {s1, s2, s3})
                        ListView1.Items.Add(lvi)
 
                        start = 0                               ' Zurücksetzen
                        line = strmReader.ReadLine()            ' nächste Zeile 
                        ' lesen
                    Loop
                    strmReader.Close()
                End If
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    ' Eintrag hinzufügen:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim itms() As String = New String() {TextBox2.Text, TextBox3.Text, _
        TextBox4.Text}
        Dim lvi As New ListViewItem(itms)
        ListView1.Items.Add(lvi)
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
    End Sub

Private Sub LoadData(ByVal Filename As String)
  Dim fs As New FileStream(FileName, FileMode.Open, FileAccess.Read)
  Dim strmReader As New StreamReader(fs)
  Dim line As String = strmReader.ReadLine() ' erste Zeile lesen
  Dim start As Integer = 0
  Do While line <> Nothing
    ...

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de