SQL SERVER - PROCEDURE D'EDITION D'UN FICHIER PLAT (EXPORT CSV)

CREATE FUNCTION [dbo].[fctTranslateWordsDOS] (@EXP VARCHAR (8000))
RETURNS VARCHAR (8000)
AS 
-- Préfixe les huit caractères réservés de MS-DOS par l'accent circonflexe et
-- supprime ou remplace les caractères de retour à la ligne par un espace.
-- Exemples d'utilisation :
    -- 1. Mots réservés
        -- SELECT [dbo].[fctTranslateWordsDOS]('start ! " % & < > ^ | end')
    -- 2. Caractères de retour à la ligne
        -- SELECT [dbo].[fctTranslateWordsDOS](char(13) + char(10) + 'end')
        -- SELECT [dbo].[fctTranslateWordsDOS]('start' + char(13) + char(10) + 'end')
        -- SELECT [dbo].[fctTranslateWordsDOS]('start' + char(13) + char(10))
BEGIN
    DECLARE @WORD VARCHAR(1), @RETVAL VARCHAR(8000)
     IF (@EXP IS NULL) RETURN NULL
    SET @RETVAL=''  
    WHILE LEN(@EXP)>0
    BEGIN
        SET @WORD= SUBSTRING(@EXP,1, 1)
        -- Préfixe les mots réservés
        IF ((@WORD='!') OR (@WORD='"') OR (@WORD='%') OR (@WORD='&') OR (@WORD='<') OR (@WORD='>') OR (@WORD='^') OR (@WORD='|')) 
            SET @RETVAL =@RETVAL + '^' + SUBSTRING(@EXP, 1, 1)
        -- Remplacement conditionnel avec gestion des bornes
        ELSE IF @WORD=CHAR(13) AND ISNULL(RIGHT(@RETVAL, 1), ' ')<>' ' AND @EXP<>CHAR(10)
                SET @RETVAL = @RETVAL	+ ' '
        -- Suppression des caractères de retour à la ligne
        ELSE IF ASCII(@WORD)<>13 AND ASCII(@WORD)<>10
            SET @RETVAL =@RETVAL + SUBSTRING(@EXP, 1, 1) 
        SET @EXP= SUBSTRING(@EXP, 2, LEN(@EXP)-1)
    END -- END WHILE
    RETURN @RETVAL
END -- END FCT
GO

CREATE PROCEDURE [dbo].[SPR_SHELL_EDIT] (@FullPath VARCHAR(260), @DelimitedText VARCHAR(7730), @isCleaned BIT) AS
/* Edition d'un fichier plat (CSV) à partir d'une commande DOS -----------------
	  -- Exemples d'utilisation :
	  -- Edition sans suppression du contenu
	  DECLARE @Emplacement VARCHAR (260)
	  -- Emplacement du type \\serveur\partage\chemin\nom_fichier
	  SET @Emplacement= '<chemin d'accès à saisir>\Test.csv'
	  EXEC SPR_SHELL_EDIT @Emplacement, 'bijou;caillou;chou;genou;hibou;joujou;pou', 0
	  -- Edition avec suppression du contenu
	  EXEC SPR_SHELL_EDIT @Emplacement, 'bijou;caillou;chou;genou;hibou;joujou;pou', 1 
------------------------------------------------------------------------------ */
BEGIN
    DECLARE @Cmd VARCHAR(8000);

    IF @isCleaned=1 
         -- Supprimer le contenu existant puis ajouter la ligne de texte
        SET @Cmd = 'Echo ' + [dbo].[fctTranslateWordsDOS](@DelimitedText) + ' > ' + @FullPath;
    ELSE
        -- Ajouter la ligne de texte sans supprimer le contenu existant
        SET @Cmd = 'Echo ' + [dbo].[fctTranslateWordsDOS](@DelimitedText) + ' >> ' + @FullPath;

    EXEC xp_cmdshell @Cmd, NO_OUTPUT;
END

Télécharger le zip

22 novembre 2007 14:22:49 :

Exemple d'utilisation en commentaire dans le code source

22 novembre 2007 14:30:55 :

Ajout conclusion

22 novembre 2007 14:53:36 :

Explication complémentaire (argument NO_OUTPUT)

22 novembre 2007 15:31:01 :

Mots clés

26 novembre 2007 11:04:35 :

Titre complété

30 novembre 2007 16:49:36 :

Exemple concret sur la base AdventureWorks

30 novembre 2007 17:41:31 :

faute de frappe (orthographe)

04 décembre 2007 17:06:44 :

Ajout de la fct REPLACE dans l'exemple en pièce jointe

18 décembre 2007 11:16:36 :

Codage des caractères accentés

19 décembre 2007 10:43:57 :

Caractères réservés.

19 décembre 2007 15:56:18 :

Liste des mots réservés

19 décembre 2007 17:25:39 :

Ajout d'une fonction pour gérer les caractères réservés de MS-DOS

19 décembre 2007 17:42:44 :

Réorganisation de la source

21 décembre 2007 10:23:16 :

Optimisation de la fct d'ajout de l'accent circonflexe pour éditer les mots réservés de MS-DOS

26 décembre 2007 10:39:43 :

Explication complétée

26 décembre 2007 15:18:01 :

Ajout du code de la macro dans l'explication

26 décembre 2007 15:21:05 :

Présentation

26 décembre 2007 15:39:05 :

Faute de frappe

26 décembre 2007 15:40:31 :

Faute de frappe

26 décembre 2007 15:41:59 :

Faute de frappe

26 décembre 2007 15:43:26 :

Faute de frappe

26 décembre 2007 17:49:25 :

Mise en page

26 décembre 2007 17:49:58 :

Mise en page

26 décembre 2007 17:51:00 :

Mise en page

27 décembre 2007 10:55:44 :

Faute de frappe

03 janvier 2008 11:46:36 :

MAJ de la fonction : ajout de la suppression ou du remplacement des caractères de retour à la ligne.

03 janvier 2008 12:05:29 :

Commentaire

03 janvier 2008 12:10:53 :

Faute de frappe

04 janvier 2008 16:06:48 :

Faute de frappe (orthographe)

04 janvier 2008 16:15:58 :

idem

04 janvier 2008 16:18:53 :

mise en page

07 janvier 2008 09:38:57 :

PRésentation

23 décembre 2008 12:14:10 :

Artefact d'enregistrement (guillemet)