Import and Export using the class CommaIO in MSDAX


Import and Export using the class CommaIO

 static void commaIoRead(Args _args)  
 {  
   #File  
   Dialog        dialog = new Dialog("Importer");  
   DialogField     dialogFieldCaminho;  
   CommaIo      commaIo;  
   FileIoPermission fileIoPermission;  
   Container      filtro = ["txt", #AllFilesName+#txt], readCon;  
   TimesFutebol   timesFutebol; //Table Buffer  
   ;  
   dialog.filenameLookupFilter(filtro);  
   dialogFieldCaminho = dialog.addField(TypeId(FileNameOpen), "Select");  
   if(dialog.run())  
   {  
     fileIoPermission = new fileIoPermission(dialogFieldCaminho.value(), #io_read);  
     fileIoPermission.assert();  
     commaIo = new CommaIo(dialogFieldCaminho.value(), #io_read);  
     commaIo.inFieldDelimiter(";");  
     if(commaIo)  
     {  
       try  
       {  
         while(commaIo.status() == IO_Status::Ok)  
         {  
           readCon = commaIo.read();  
           if(conlen(readCon) > 0)  
           {  
             ttsbegin;  
             timesFutebol.IdTime = conpeek(readCon, 1);  
             timesFutebol.NomeTime = conpeek(readCon,2);  
             timesFutebol.insert();  
             ttscommit;  
           }  
         }  
         info("import success");  
       }  
       catch(Exception::Error)  
       {  
         throw error("Error in impoting");  
       }  
     }  
   }  
 }