
Originally Posted by
-WØW''
Done, But who is kevin ? XDDD
<<< -.-"
[highlight="vb"] Dim File As String = "content.txt"
Dim Delimiter As Char = "|"
Private Sub SaveListview()
Dim full As String = ""
For i = 0 To ListView1.Items.Count - 1
full = ListView1.Items(i).Text & Delimiter & ListView1.Items(i).SubItems(0).Text & vbNewLine
Next
Using sWrite As New IO.StreamWriter(File)
sWrite.Write(full)
End Using
End Sub
Private Sub GetContent()
If IO.File.Exists(File) Then
Using sRead As New IO.StreamReader(File)
While Not sRead.EndOfStream
Dim splitted() As String = Split(sRead.ReadLine, Delimiter)
ListView1.Items.Add(splitted(0))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(splitted(1))
End While
End Using
End If
End Sub[/Highlight]
Feel free to modify...