Sql server - procedure d'edition d'un fichier plat (export csv)
Soyez le premier à donner votre avis sur cette source.
Vue 29 728 fois - Téléchargée 662 fois
Description
I. Introduction
Avec cette exemple trivial, mon intention est de mettre l'accent sur les possibilités offertes par la procédure xp_cmdshell (commandes DOS).
En préalable à l'exécution de l'exemple, il vous faudra activer la commande shell dans la surface d'exposition (cf. fichier joint). Et, naturellement, il faut que le serveur SQL ait un droit d'accès pour l'emplacement spécifié.
II. Caractères diacritiques
A. Caractéres réservés
Les caractères réservés ! ^ & % < > >> " | doivent être précédés par le caractère ^ pour ne pas être assimilés à une commande. La fonction SQL permet de gérer ceux-ci en les préfixant.
B. Caractères de retour à la ligne
Les caractères de retour à la ligne (#13 + #10) devront être supprimés ou remplacés par le caractère d'espacement. La fonction SQL assure également cette tâche.
C. Caractères accentués
Du fait de la redirection, les caractères accentués seront codés en MS-DOS (OEM). Il faudra donc les convertir sous WINDOWS (ANSI). Comme le montre la saisie d'écran, la méthode la plus simple consiste à utiliser le convertisseur du traitement de texte WORD. Si besoin, la macro en VBA ci-dessous vous permettra d'automatiser ce traitemenent sous WORD (voir variantes en commentaire).
Sub OemToAnsi(sFilePath As String, sFileName As String)
'Emplacement du fichier
ChangeFileOpenDirectory sFilePath
'Ouvrir le fichier en OEM, l'enregistrer en ANSI et le fermer
Documents.Open FileName:=sFileName, Encoding:=850
With ActiveDocument
.SaveAs FileName:=sFileName, Encoding:=1252
.Close
End With
End Sub
Voir l'exemple concret en pièce jointe sur la base AdventureWorks.
L'argument NO_OUTPUT est facultatif. Supprimez le pour afficher un message d'erreur éventuel du genre « Accès refusé ».
Avec cette exemple trivial, mon intention est de mettre l'accent sur les possibilités offertes par la procédure xp_cmdshell (commandes DOS).
En préalable à l'exécution de l'exemple, il vous faudra activer la commande shell dans la surface d'exposition (cf. fichier joint). Et, naturellement, il faut que le serveur SQL ait un droit d'accès pour l'emplacement spécifié.
II. Caractères diacritiques
A. Caractéres réservés
Les caractères réservés ! ^ & % < > >> " | doivent être précédés par le caractère ^ pour ne pas être assimilés à une commande. La fonction SQL permet de gérer ceux-ci en les préfixant.
B. Caractères de retour à la ligne
Les caractères de retour à la ligne (#13 + #10) devront être supprimés ou remplacés par le caractère d'espacement. La fonction SQL assure également cette tâche.
C. Caractères accentués
Du fait de la redirection, les caractères accentués seront codés en MS-DOS (OEM). Il faudra donc les convertir sous WINDOWS (ANSI). Comme le montre la saisie d'écran, la méthode la plus simple consiste à utiliser le convertisseur du traitement de texte WORD. Si besoin, la macro en VBA ci-dessous vous permettra d'automatiser ce traitemenent sous WORD (voir variantes en commentaire).
Sub OemToAnsi(sFilePath As String, sFileName As String)
'Emplacement du fichier
ChangeFileOpenDirectory sFilePath
'Ouvrir le fichier en OEM, l'enregistrer en ANSI et le fermer
Documents.Open FileName:=sFileName, Encoding:=850
With ActiveDocument
.SaveAs FileName:=sFileName, Encoding:=1252
.Close
End With
End Sub
Source / Exemple :
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
Conclusion :
Voir l'exemple concret en pièce jointe sur la base AdventureWorks.
L'argument NO_OUTPUT est facultatif. Supprimez le pour afficher un message d'erreur éventuel du genre « Accès refusé ».
Codes Sources
A voir également
- Platting process
- Sql server export to csv - Meilleures réponses
- Csv procedure - Meilleures réponses
- SQL : Sql server - procédure stockée mettant à jour toutes les statistiques de - Guide
- SQL : Sql server - procédure stockée faisant un backup de toutes les bases et journau - Guide
- SQL : Sql server - procédure stockée permettant de reconstruire tous les indexes de t - Guide
- SQL : Sql server - procédure stockée permettant de defragmenter tous les indexes de t - Guide
- SQL : Sql server - procédure stockée qui tronque les journaux de logs - CodeS SourceS - Guide
9 nov. 2009 à 04:37
http://www.emicsoft.com/video-converter-for-mac.html
http://www.emicsoft.com/avi-converter-for-mac.html
http://www.emicsoft.com/flv-converter-for-mac.html
5 févr. 2009 à 10:14
28 déc. 2007 à 14:10
Les férus de programmation trouveront les tables de conversion sur le site VB France à cette adresse :
http://www.vbfrance.com/codes/CONVERTION-TABLE-CARACTERES-EBCDIC-ASCII-OEM-ANSI_4998.aspx
26 déc. 2007 à 14:23
Sub DecodeOEM()
Dim sNames() As String, i As Integer
'Emplacement du répertoire à traiter
ChangeFileOpenDirectory "\\srvinfo\Test"
'Liste CSV des fichiers du réperoire spécifié
sNames = Split("test.csv;test.txt", ";")
For i = LBound(sNames) To UBound(sNames)
Documents.Open FileName:=sNames(i), Encoding:=850
With ActiveDocument
.SaveAs FileName:=sNames(i), Encoding:=1252
.Close
End With
Next i
End Sub
26 déc. 2007 à 11:43
Sub DecodeOEM()
Dim sNames() As String, i As Integer
'Emplacement du répertoire à traiter
ChangeFileOpenDirectory "D:\Test"
'Liste CSV des fichiers du réperoire spécifié
sNames = Split("test.csv;test.txt", ";")
For i = LBound(sNames) To UBound(sNames)
Documents.Open FileName:=sNames(i), ConfirmConversions:=False, ReadOnly:=False, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=850
With ActiveDocument
.SaveAs FileName:=sNames(i), FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, _
SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=1252, InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF
.Close
End With
Next i
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.