sevDataGrid2-Inhalt als Textdatei speichern Wenn Sie das sevDataGrid2 im ListMode verwenden, unterstützt es leider nicht direkt die Möglichkeit, die Listitems zu speichern.
Autor:   Roland Wutzke	Bewertung:     [ Jetzt bewerten ]	Views:  5.520
www.vb-power.net	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 4 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wenn Sie das sevDataGrid2 im ListMode verwenden, unterstützt es leider nicht direkt die Möglichkeit, die Listitems in Form einer Textdatei zu speichern.
Wie Sie Listitems laden können, geht ja bereits aus der Hilfe hervor. Hier noch einmal die Routine zum Auslesen einer Textdatei:

Dim F As Integer
Dim sLine As String
Dim oItem As sevDataGrid2.ListItem
 
F = FreeFile
Open App.Path & "\MyItems.txt" For Input As #F
Do Until EOF(F)
  Line Input #F, sLine
  Set oItem = sevGrid1.AddItem(sLine)
Loop
Close #F

Doch wie sieht es mit dem Speichern aus? Die meisten von Ihnen würden jetzt wohl eine verschachtelte For...Next Schleife benutzen, die über alle Zeilen und Spalten des Grids läuft und dabei den Zellinhalt in eine Datei schreibt.

Es geht aber auch wesentlich einfacher. Wir lassen es das Grid selber erledigen - und das mit folgendem Einzeiler:

' Inhalt in Textdatei speichern
sevGrid1.DoExport App.Path & "\MyItems.txt", EXPORT_ASCII, , _
  EXPORT_HEADER_NONE, EXPORT_FIELD_VALUE, , "", vbTab

Das war´s