Dim su As StringUtils
Dim Cursor1 As Cursor
Cursor1 = Main.SQL1.ExecQuery("SELECT Nummer, Jobname, Titel FROM jobevents")
Dim list1 As List
list1.Initialize
Dim cols() As String
For i = 0 To Cursor1.RowCount - 1
Cursor1.Position = i
cols = Array As String(Cursor1.GetString2(0), Cursor1.GetString2(1), Cursor1.GetString2(2))
list1.Add(cols)
Next
Cursor1.Close
Log(list1.Size)
su.SaveCSV(File.DirDefaultExternal, "Test.csv", ",", list1)
Dim k As Intent
k.Initialize(k.ACTION_VIEW, "file://" & File.DirDefaultExternal & "/Test.csv")
k.SetType("application/csv")
StartActivity(i)