*.csv file with CR/LF character

Sub LoadTableFromCSV

Dim fd As FileDialog
Dim filename As String
Dim dir As String
Dim ret As String
Dim list1 As List
Dim Vrsta() As String
Dim x As Int

fd.FilePath="/mnt/sdcard/my document/El izdajnice"
fd.ShowOnlyFolders = False
fd.FastScroll = True


ret = fd.Show("Izberi datoteko", "Yes", "No", "Maybe", Bmp)   


   For i = table.NumberOfViews -1 To 0 Step -1
      table.RemoveViewAt(i)
   Next
 table.Height = 0dip
'x=table.NumberOfViews
'Log("table numberofviews after: " & x)

list1=StringUtils1.LoadCSV(dir,Filename,";")

x=list1.Size
Log ("size list1: " & x)
      ColumnWidth(0) = 10%x      
      ColumnWidth(1) = 55%x
      ColumnWidth(2) = 20%x
      ColumnWidth(3) = 15%x
      TotalColumnWidth(0) = 0dip
For ii=0 To list1.Size-1
   Vrsta = List1.Get(ii)
   For i = 0 To 4
      Dim l As Label
      l.Initialize("cell")
      l.Text = vrsta(i)
      l.Gravity = Alignment
      l.TextSize = FontSize
      l.TextColor = FontColor
      Dim rc As RowCol
      rc.Initialize
      rc.Col = i
      rc.Row = NumberOfRows
      l.Tag = rc
      
      table.AddView(l, TotalColumnWidth(i), RowHeight * NumberOfRows, ColumnWidth(i), RowHeight)
   Next
      Table.Height = NumberOfRows * RowHeight
Next
   Page3.naziv=GetCell(2,3)
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Dim su As StringUtils
   Dim l As List
   l = su.LoadCSV(File.DirAssets, "1.csv", ",")
End Sub