I am using this code :
LoadTableFromCSV(Dir As String,Filename As String,HeadersExist As Boolean)
Dim List1 As List
Dim h() As String
Dim headers As List
If HeadersExist Then
List1 = StringUtils1.LoadCSV2(Dir, Filename, ",", headers)
Dim h(headers.Size) As String
For i = 0 To 9
h(i) = headers.Get(i)
Next
end if
end sub
And I using these files :
"Date,Catégorie,Affaire,Somme remboursée,Somme entrée,TVA,Devise,Change,num
2/05/2012,3- déjeuner Seul(e),Exemple,5.60,10.05,0.66,EUR-Euro,1,1"
It's working
With this one, not working ??
"Date,Catégorie,Affaire,Somme remboursée,Somme entrée,TVA,Devise,Change,num
156927E191A6C9153A6149F7CE6275B6,759CE9C0A79F5DA525F0C07DF00A11F11FF9450436FC2120C30E015578384DC5,3A6A18B00619D6FDC30E015578384DC5,BD465840CE8370EEC30E015578384DC5,B56AB9B57B4B78ABC30E015578384DC5,5339675965EB4B7DC30E015578384DC5,ED674C17FB3E0CAAC30E015578384DC5,A7F0588E0BAC859AC30E015578384DC5"
:BangHead:
LoadTableFromCSV(Dir As String,Filename As String,HeadersExist As Boolean)
Dim List1 As List
Dim h() As String
Dim headers As List
If HeadersExist Then
List1 = StringUtils1.LoadCSV2(Dir, Filename, ",", headers)
Dim h(headers.Size) As String
For i = 0 To 9
h(i) = headers.Get(i)
Next
end if
end sub
And I using these files :
"Date,Catégorie,Affaire,Somme remboursée,Somme entrée,TVA,Devise,Change,num
2/05/2012,3- déjeuner Seul(e),Exemple,5.60,10.05,0.66,EUR-Euro,1,1"
It's working
With this one, not working ??
"Date,Catégorie,Affaire,Somme remboursée,Somme entrée,TVA,Devise,Change,num
156927E191A6C9153A6149F7CE6275B6,759CE9C0A79F5DA525F0C07DF00A11F11FF9450436FC2120C30E015578384DC5,3A6A18B00619D6FDC30E015578384DC5,BD465840CE8370EEC30E015578384DC5,B56AB9B57B4B78ABC30E015578384DC5,5339675965EB4B7DC30E015578384DC5,ED674C17FB3E0CAAC30E015578384DC5,A7F0588E0BAC859AC30E015578384DC5"
:BangHead: