1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Dim CSV, CtnLg, CtnCol,Cpt
CSV = "2020-11-02_151024_3,203031025910,B03,14,Patient,5000,10000,5,5,,,,""32,98874"",NEGATIVE,NEGATIVE,NEGATIVE,NEGATIVE,39,39,39,22,INVALID,NA,RETEST" & vbnewline
CSV = CSV & "2020-11-02_151024_3,203031025910""12,3456"",B03,14,Patient,5000,10000,5,5,,,,,NEGATIVE,NEGATIVE,NEGATIVE,NEGATIVE,39,39,39,22,INVALID,NA,RETEST" & vbnewline
CSV = CSV & "2020-11-02_151024_3,203031025910,B03,14,Patient,5000,10000,5,5,,,,,NEGATIVE,NEGATIVE,NEGATIVE,NEGATIVE,39,39,39,22,INVALID,""78,91011"",NA,RETEST"
CtnLg = split(CSV,vbnewline) 'decoupe du fichier en autant de ligne
For Cpt = 0 To Ubound(CtnLg)
CtnCol = split(CtnLg(Cpt),chr(34))
CtnCol(1)=replace(CtnCol(1),",",".")'force avec un . la récupération
'ou
'CtnCol(1)=replace(CtnCol(1),".",",")'force avec une , la récupération
MsgBox CtnCol(1)
Next |