Sub HandleFile(job As HttpJob)
If job.Success = False Then
ToastMessageShow("Error Downloading CSV File.", True)
ProgressDialogHide
Return
End If
Dim out As OutputStream
out = File.OpenOutput(File.DirDefaultExternal,strTableName , False)
File.Copy2(job.GetInputStream,out)
out.close
Log("finished writing csv file to external default directory")
Dim ListOfMaps As List
ListOfMaps.Initialize
Dim existemap As Map
existemap.Initialize
Dim start, finish As Int
start = 0
finish = 9
Dim readcsv As List
Dim csv As StringUtils
readcsv.Initialize
readcsv = csv.LoadCSV(File.DirDefaultExternal, strTableName, ",")
Dim columnlist As List
Dim cols() As String
columnlist.Initialize
cols = readcsv.Get(0)
For l = 0 To cols.Length - 1
columnlist.Add(cols(l))
Next
Dim cnt As Int
For i = 1 To readcsv.Size - 1
Dim m As Map
m.Initialize
Dim reading() As String
reading = readcsv.Get(i)
For j = 0 To reading.Length - 1
m.Put(columnlist.Get(j), reading(j))
Next
ListOfMaps.Add(m)
cnt= cnt + 1
Log(cnt)
Next
If ListOfMaps.Size > 0 Then
DBUtils.InsertMaps(SQL1, strTable, ListOfMaps)
ProgressDialogHide
Else
ProgressDialogHide
End If
End Sub