Gruß Andy

--------------------------------------
Betriebssystem: Windows 10
Entwicklungsumgebung: VB 2017 Com.

Gruß Andy

--------------------------------------
Betriebssystem: Windows 10
Entwicklungsumgebung: VB 2017 Com.

Gruß Andy

--------------------------------------
Betriebssystem: Windows 10
Entwicklungsumgebung: VB 2017 Com.

Dim xxx As New List(Of String)
 
With xxx
    .Add("a") : .Add("b") : .Add("c")
 
    Using ostream As New IO.StreamWriter("C:\Daten\xyzabc.txt", False)       
       For i As Integer = 0 To .Count - 1
           ostream.Write(.Item(i) & If(i < CInt(.Count) - 1, vbCrLf, ""))
       Next i
    End Using
End With

oStream.Write(.Items(i) & IIf(i < .Items.Count - 1, vbCr, ""))

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim ausgabe As String = ""
        Dim i As Integer = 0
 
        With ListBox1
            For i = 0 To .Items.Count - 1
                ausgabe = ausgabe & .Items(i) & IIf(i < .Items.Count - 1, _
                  vbCrLf, "")
            Next
        End With
 
        MessageBox.Show(ausgabe)
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With ListBox1
            .Items.Add("a")
            .Items.Add("b")
            .Items.Add("c")
            .Items.Add("d")
            .Items.Add("e")
            .Items.Add("f")
            .Items.Add("g")
            .Items.Add("h")
            .Items.Add("i")
            .Items.Add("j")
        End With
    End Sub
End Class

EALA FREYA FRESENA

    Public Function ListBoxSave(ByVal ListBox As ListBox, ByVal Filename As _
      String) As Boolean
 
        Dim oStream As IO.StreamWriter = Nothing
        Dim bResult As Boolean = False
        Dim i As Integer
 
        Try
            ' Stream-Objekt zum Speichern erstellen
            oStream = New IO.StreamWriter(Filename, False, _
              System.Text.Encoding.Default)
 
            With ListBox.Items
                ' Liste durchlaufen und zeilenweise speichern
                For i = 0 To .Count - 1
                    oStream.Write(.Item(i) & If(i < .Count - 1, vbCr, "")) ' 
                    ' Fehlerhafte Zeile!
                Next i
            End With
            bResult = True
 
        Catch ex As Exception
 
        Finally
            ' Stream-Objekt schließen
            If Not IsNothing(oStream) Then oStream.Close()
        End Try
        Return (bResult)
 
    End Function

Gruß Andy

--------------------------------------
Betriebssystem: Windows 10
Entwicklungsumgebung: VB 2017 Com.

Gruß Andy

--------------------------------------
Betriebssystem: Windows 10
Entwicklungsumgebung: VB 2017 Com.

           With ListBox.Items
                ' Liste durchlaufen und zeilenweise speichern
                For i = 0 To .Count - 1
                    oStream.Write(.Item(i).ToString & If(i < CInt(.Count - 1), _
                      vbCr, ""))
                Next i
            End With

Gruß Andy

--------------------------------------
Betriebssystem: Windows 10
Entwicklungsumgebung: VB 2017 Com.