listview item zweite zeile auslesen

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Petergolf.

    listview item zweite zeile auslesen

    Hey leute ich versuche listview items zu speichern das klappt mit dem code auch :

    VB.NET-Quellcode

    1. System.IO.File.WriteAllText(Application.StartupPath & "\admin\Loader.dspl", ListView1.Items(0).Text + "," + ListView1.Items(0).SubItems(1).Text + "," + ListView1.Items(0).SubItems(2).Text + vbCrLf)


    aber der speichert nur eine zeile wie bekomm ich hin das der die anderen auch noch speichert ?

    bitte helft mir ich bin am verzweifeln
    :whistling:

    VB.NET-Quellcode

    1. Using Writer As New System.IO.BinaryWriter(System.IO.File.Open(Dein Pfad, System.IO.FileMode.Create, System.IO.FileAccess.Write))
    2. For Each Item As ListViewItem In ListView1.Items
    3. For Each Subitem As ListViewItem.ListViewSubItem In Item.SubItems
    4. Writer.Write(Item.Text + Subitem.Text)
    5. Next

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „programmer71“ ()

    VB.NET-Quellcode

    1. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    2. Dim myWriter As New IO.StreamWriter("C:\Users\zeus\Desktop\Neuer Ordner (4)\Save.cfg")
    3. For Each myItem As ListViewItem In ListView1.Items
    4. myWriter.WriteLine(myItem.Text & myItem.SubItems(0).Text) '// write Item and SubItem.
    5. Next
    6. myWriter.Close()
    7. End Sub


    LG ^^

    Ich hab was aus etlichen stücken zusammen gebaut ^^

    Aber das geht Top :!: (Teil von Dieter Otter)

    IN TXT SPEICHERN

    VB.NET-Quellcode

    1. Dim ListViewContent As String = ""
    2. Dim Path As String = "C:\Users\zeus\Desktop\Neuer Ordner (4)\Save.cfg"




    VB.NET-Quellcode

    1. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    3. For I As Integer = 0 To ListView1.Items.Count - 1
    4. For Int As Integer = 0 To ListView1.Items.Item(I).SubItems().Count - 1
    5. ListViewContent += ListView1.Items.Item(I).SubItems(Int).Text & " "
    6. Next
    7. ListViewContent += vbNewLine
    8. Next
    9. If System.IO.File.Exists(Path) Then
    10. System.IO.File.Delete(Path)
    11. End If
    12. System.IO.File.AppendAllText(Path, ListViewContent)
    13. End Sub
    14. End Class




    AUS TXT LADEN: (Teil des Cods von Dieter Otter)

    VB.NET-Quellcode

    1. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    2. Dim sLine As String
    3. Dim sItem() As String
    4. Dim ItemX As ListViewItem
    5. Dim IntCols As Integer
    6. IntCols = ListView1.Columns.Count
    7. FileOpen(1, Path, OpenMode.Input)
    9. With ListView1.Items
    11. While Not EOF(1)
    12. sLine = LineInput(1)
    13. sItem = Split(sLine, " ")
    14. ItemX = .Add(sItem(0), sItem(1))
    15. For I = 2 To IntCols
    16. ItemX.SubItems.Add(sItem(I))
    17. Next I
    18. End While
    20. End With
    22. FileClose(1)
    23. End Sub



    EDIT:

    ListViewer sind schrecklich kompliziert 8|

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „TVX“ ()

    Lösung

    Lösung:

    Dim s As String = ""
    For Each i As Object In ListBox1.Items
    s &= i.Text + "," & i.SubItems(1).Text & "," & i.SubItems(2).Text & vbNewLine
    Next
    IO.File.WriteAllText(Application.StartupPath & "\admin\Loader.dspl", s)


    Beispiel in meinem Fall :)

    Danke noch mal an alle :thumbsup:

Facebook
Telefonspende