Dim sList As List
Dim su As StringUtils
Try
sList=su.LoadCSV("",sCsvpath,",")
Catch
sList.Initialize
Msgbox("Read:"&sCsvpath &"File error!","error")
Return
End Try
Dim line() As String
For i=0 To sList.Size-1
Log(sList.Get(i))
line = Regex.Split(",",sList.Get(i))
Log(line(0))
Next