Hey Leute..
Ich möchte in einem Programm von mir, dass es beim Start automatisch eine Datei auf einem Server ausliest und den Inhalt in ein Listview klatscht.
Und dann soll es noch einen Button geben der das ganze dann wieder auf den Server lädt. Habe folgendes schon umgesetzt:
Und dann beim Start:
Und der speichern Button:
Jetzt hab ich halt das Problem dass er es irgendwie nicht Speichert
Bitte um Hilfe!
Ich möchte in einem Programm von mir, dass es beim Start automatisch eine Datei auf einem Server ausliest und den Inhalt in ein Listview klatscht.
Und dann soll es noch einen Button geben der das ganze dann wieder auf den Server lädt. Habe folgendes schon umgesetzt:
VB.NET-Quellcode
- Public Sub ListViewLoad(ByRef LstVw As ListView, ByVal Path As String)
- Dim sLine As String
- Dim sItem() As String
- Dim ItemX As ListViewItem
- Dim IntCols As Integer
- IntCols = LstVw.Columns.Count
- FileOpen(1, Path, OpenMode.Input)
- With LstVw.Items
- While Not EOF(1)
- sLine = LineInput(1)
- sItem = Split(sLine, ";")
- ItemX = .Add(sItem(0), sItem(1))
- For i = 2 To IntCols
- ItemX.SubItems.Add(sItem(i))
- Next i
- End While
- End With
- FileClose(1)
- End Sub
- Public Sub ListViewSave(ByRef LstVw As ListView, ByVal Path As String)
- Dim ListViewContent As String = ""
- For I As Integer = 0 To LstVw.Items.Count - 1
- ListViewContent += LstVw.Items.Item(I).Text & ";"
- For Int As Integer = 0 To LstVw.Items.Item(I).SubItems().Count - 1
- ListViewContent += LstVw.Items.Item(I).SubItems(Int).Text & ";"
- Next
- ListViewContent += vbNewLine
- Next
- If System.IO.File.Exists(Path) Then
- System.IO.File.Delete(Path)
- End If
- 'System.IO.File.AppendAllText(Path, ListViewContent)
- End Sub
Und dann beim Start:
Und der speichern Button:
Jetzt hab ich halt das Problem dass er es irgendwie nicht Speichert
![:S](https://www.vb-paradise.de/wcf/images/smilies/wacko.png)
Bitte um Hilfe!
![:(](https://www.vb-paradise.de/wcf/images/smilies/sad.png)