Thread: Icons
View Single Post
  #13 (permalink)  
Old 10-29-2007, 05:57 PM
Heinz Heinz is offline
Junior Member
 
Join Date: Apr 2007
Posts: 24
Awards Showcase
Beta Tester 
Total Awards: 1
Default

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
Reply With Quote