Rubrik: Controls · sev-Controls | VB-Versionen: VB5, VB6 | 31.12.04 |
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: | Views: 11.103 |
www.vb-power.net | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
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