Hallo,
geht doch ganz einfach mit den Befehlen.
Syntax: LoadCSV (File Name, Separator Character, Header Exist, Create Columns)
1. Parameter -> Datei
2. Parameter -> Separator (meist ein Komma)
3. + 4. Parameter kannst du auf False setzen. Diese sind nur dann sinnvoll,
wenn du keine Spalten z.B. mit TableX.AddCol vorher angelegt hast.
Ich setze z.B. immer vorher die Spalten mit AddCol
Syntax: SaveCSV (File Name, Separator Character, IncludeHeader)
-> Gleiches wie oben und letzter Parameter auf False
Hier mal ein Mini - Code :
Code:
' Im Designer eine Form, drei Buttons und ein Table (Table1) erstellen.
' Die unteren SUBs sind die Klick - Events der Buttons
Sub Globals
myfile = "Test1.csv"
End Sub
Sub App_Start
Form1.Show
Table1.AddCol(cString, "Name", 120, True)
Table1.AddCol(cString, "Vorname", 80, True)
Table1.AddCol(cNumber, "Alter", 50, True)
' Hier 3 Datensätze ins Table reinschreiben
Table1.AddRow("Müller", "Franz", 50)
Table1.AddRow("Becker", "Berta", 60)
Table1.AddRow("Keller", "Monika", 20)
End Sub
Sub Table1_SelectionChanged (ColName, Row)
' Hier kommen Aktionen rein, wenn man in die Spalten springt
'AddTextBox (Form1,"TextBox1", 20, 20, 50, 25, "")
End Sub
Sub Button1_Click
' Lade Datei in das TableControl
Table1.LoadCSV(myfile, ",", False, False)
End Sub
Sub Button2_Click
' Speichere das TableControl in Datei
Table1.SaveCSV (myfile, ",", False)
End Sub
Sub Button3_Click
Table1.Clear
End Sub