"nazwa","limitkwota","plattyp","kod","miejscowosc","limiti"
"Agora Gazeta",1000.00,255,"Agora","Warszawa",1
"Auto SALEon s.c.",0.00,255,"Auto SALEon s.c.","Szczecin",0
"Bank PKO SA",0.00,255,"Bank PKO SA","Warszawa",0
"Edelweiss SA",0.00,255,"Edelw Zwierzyniec","Krasnystaw",0
"Edelweiss SA Oddział Zwierzyniec",0.00,131,"Edelweiss SA","Zwierzyniec",0
"Herr Flueck KG",0.00,255,"Herr Flueck KG","Hannover",0
"Kornel Kobza i ska",0.00,255,"Kornel Kobza","Radom",0
"Kornex sp. z o.o.",15000.00,130,"Kornex sp. z o.o.","Zamość",1
"MATRIX.PL SA",0.00,255,"MATRIX","Warszawa",0
"Nowak Jan",0.00,130,"Nowak Jan","Kraków",0
"TP SA",0.00,255,"TP SA","Lublin",0

   dispatch exp = "VBScript.RegExp"
   dispatch mat
   exp.Global = 1
   exp.IgnoreCase = 1
   exp.pattern= "([^,\"]+|\"([^\"]|\"\")*\"|,,)"

   string sLinia
   int i

   int iCSV = open "c:\\temp\\dane.csv" for input   

      while (Input #iCSV,sLinia)
   
         mat = exp.Execute( sLinia  )
      
         for i = 0 to i>mat.Count()-1
               print using "Kolumna : %d Wartość : %s" + lf, i, mat.item(i).value,lf
         next i
          
      wend
   
   Close(iCSV)

mat = exp.Execute( sLinia  )