Dim su As StringUtils
Dim headers As List
Dim table As List
table = su.LoadCSV2(rp.GetSafeDirDefaultExternal(""), "list.csv", ";", headers)
''Insert each header column into a Map with the Column Type
Dim headers2 As Map
headers2.Initialize
For j = 0 To headers.Size - 1
Log("header: " & j & " " & headers.Get(j))
Dim header() As String = Regex.Split(",", headers.Get(j))
For r = 0 To header.Length - 1
headers2.Put(header(r), "TEXT")
Next
Next
'''Create table with columns given in headers2 map
DBUtils.CreateTable(Common.SQL1, "members", headers2, "")
''since the splitting character in the csv file is ";"
''' the only item in the items() variable will 1 line with all the columns separated by commas.
Dim membermap As Map
membermap.Initialize
For i = 0 To table.Size - 1
Log("table item # " & i)
Dim items() As String = table.Get(i)
Dim fields() As String
fields = Regex.Split(",", items(0))
''If headers2.Size = fields.Length Then
LogColor("headers2 size: " & headers2.Size & " " & "fields lenght: " & fields.Length, Colors.blue)
For q = 0 To headers2.Size - 1
membermap.Put(headers2.GetKeyAt(q), fields(q))
''membermap.Put(headers2.GetKeyAt(q), items(q))
Next
Dim memberlist As List
memberlist.Initialize
memberlist.Add(membermap)
DBUtils.InsertMaps(Common.SQL1, "members", memberlist)
Next