Blog d’un développeur multi-support

call import(
"premier flux|http://monsite|http://monsite/fluxrss|description;
deuxieme flix|http://monsite2|http://www.google.fr/bidule.xml|autre description;
troisieme|http://monsite3|http://monsite2/rss.xml|description;",3);

DELIMITER $$  -- pas trop compris l'interet O_o
DROP PROCEDURE IF EXISTS `fluxe`.`import` $$
-- Supprime la procédure si elle existe (je suis fort en anglais hein ? ^^) 
 
CREATE DEFINER=`root`@`localhost` PROCEDURE `import`(In myCsv Text, In nbElement Int)
-- crée la procédure avec deux paramètres "IN" de type Text et Int. C'est à dire que c'est deux paramètres obligatoires pour exécuter la requête.  
 
BEGIN -- Debut de la procédure
 
-- Declare mes variables correspondant aux colonnes de ma table Flux
DECLARE nom varchar(255);
DECLARE urlSite varchar(255);
DECLARE myurlFlux varchar(255);
DECLARE description text;
DECLARE  ligne_flux VARCHAR(1000); -- correspondra à une ligne de Flux
DECLARE cpt int; -- un petit compteur pour faire une jolie boucle While
 
set cpt = nbElement;  -- / !  Voilà comment on définit une variable SET var = valeur; 
 
WHILE cpt <= nbElement and cpt > 0 do  -- j'aurais pu utiliser une boucle Loop aussi.
 
  select replace(substring(substring_index(myCsv, ';', cpt), length(substring_index(myCsv, ';', cpt - 1)) + 1), ';', '') as ligne into ligne_flux;
 
  -- Outch "KEKECER ?" vous devez vous pausez comme question :)
  -- c'est simple, je découpe le premier paramètre In pour en extraire la 1er ligne trouvé.
  -- Les fonctions appellés ne sont pas du php mais bien du SQL ! Puissant non ?
  -- l'idée de récupèrer la 1er ligne DANS une variable "ligne_flux", d'où le "select ... INTO variable" 
 
  -- Parsage de la chaine "ligne_flux" pour en extraire les colonnes, rebelote quoi ..
  select  replace(substring(substring_index(ligne_flux, '|', 1), length(substring_index(ligne_flux, '|', 1 - 1)) + 1), '|', '') into nom;
  select  replace(substring(substring_index(ligne_flux, '|', 2), length(substring_index(ligne_flux, '|', 2 - 1)) + 1), '|', '') into urlSite;
  select  replace(substring(substring_index(ligne_flux, '|', 3), length(substring_index(ligne_flux, '|', 3 - 1)) + 1), '|', '') into myurlFlux;
  select  replace(substring(substring_index(ligne_flux, '|', 4), length(substring_index(ligne_flux, '|', 4 - 1)) + 1), '|', '') into description;
 
  -- Insertion que si la ligne n'existe pas. Le critère est l'url du flux.
  if(NOT EXISTS (select * from flux where urlFlux = myurlFlux)) THEN
       insert into flux (nom,urlSite,urlFlux,description) values (nom,urlSite,myurlFlux,description);
   end if;
 
 -- on décrémente le compteur
 set cpt = cpt - 1;
end while;
 
END $$
DELIMITER ;