Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

listview zu xml
Autor: Thunderstorm
Datum: 26.05.07 17:22
hi zusammen, ich habe hier einen klasse um listviewdaten in einer textdatei zu speichern,hier mal der code: Imports System.IO Imports System.Text Public Class LviewPat Private Const SplitItems As Char = Chr(5) Private Const SplitValues As Char = Chr(6) Private Shared Function ReadFile(ByVal Filename As String) As String On Error Resume Next If File.Exists(Filename) = False Then Exit Function Dim stR As New StreamReader(Filename, Encoding.Default, True) ReadFile = stR.ReadToEnd stR.Close() End Function Private Shared Sub WriteFile(ByVal Filename As String, ByVal str As String) Dim stW As New StreamWriter(Filename, False, Encoding.Default) stW.Write(str) stW.Close() End Sub Public Shared Sub Save(ByVal lview As ListView, ByVal Filename As String) Dim i As Integer Dim j As Integer Dim sb As New StringBuilder With lview For i = 0 To .Items.Count - 1 For j = 0 To .Items(i).SubItems.Count - 1 sb.Append(.Items(i).SubItems(j).Text) sb.Append(SplitValues) Next j sb.Append(SplitItems) Next i End With WriteFile(Filename, sb.ToString) End Sub Public Shared Sub Read(ByVal lview As ListView, ByVal filename As String) Dim i As Integer Dim j As Integer Dim str As String = ReadFile(filename) If str Is Nothing Then Exit Sub Dim sp1() As String = Split(str, SplitItems) Dim sp2() As String With lview .Items.Clear() .BeginUpdate() For i = 0 To sp1.GetUpperBound(0) sp2 = Split(sp1(i), SplitValues) For j = 0 To sp2.GetUpperBound(0) - 1 If j = 0 Then If Not sp2(j) Is Nothing Then .Items.Add(sp2(j), 0) Else If Not sp2(j) Is Nothing Then .Items(.Items.Count - 1).SubItems.Add(sp2(j)) End If Next j Next i .EndUpdate() End With End Sub End Class den wollte ich jetzt umschreiben und zwar so das die daten in einer xml datei gespeichert werden.würde doch teoretisch gehen oder?

listview zu xml	1.195	Thunderstorm	26.05.07 17:22
Re: listview zu xml	969	Visual Basic Fan	26.05.07 17:44
Re: listview zu xml	1.006	Thunderstorm	26.05.07 18:14
Re: listview zu xml	969	Visual Basic Fan	26.05.07 18:35
Re: listview zu xml	988	Visual Basic Fan	26.05.07 18:39
Re: listview zu xml	945	Melkor	26.05.07 19:25
Re: listview zu xml	948	Thunderstorm	26.05.07 21:20
Re: listview zu xml	1.882	viperbone	27.05.07 21:32
Re: listview zu xml	1.003	Thunderstorm	28.05.07 20:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen