SQL SERVER - PROCEDURE D'EDITION D'UN FICHIER PLAT (EXPORT CSV)
FENETRES
Messages postés
196
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
14 avril 2009
-
22 nov. 2007 à 17:42
shirley8 Messages postés 3 Date d'inscription lundi 9 novembre 2009 Statut Membre Dernière intervention 9 novembre 2009 - 9 nov. 2009 à 04:37
shirley8 Messages postés 3 Date d'inscription lundi 9 novembre 2009 Statut Membre Dernière intervention 9 novembre 2009 - 9 nov. 2009 à 04:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/44796-sql-server-procedure-d-edition-d-un-fichier-plat-export-csv
https://codes-sources.commentcamarche.net/source/44796-sql-server-procedure-d-edition-d-un-fichier-plat-export-csv
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
21 déc. 2007 à 17:34
Sub Decode()
' Convertir un fichier OEM en ANSI
Call OpenFile("D:\Test", "Test.csv", 850)
Call CloseFile("D:\Test", "Test.csv", 1252)
End Sub
Sub OpenFile(sPath As String, sFileName As String, iEncoding As Integer)
'Ouvrir un fichier codé
ChangeFileOpenDirectory sPath
Documents.Open FileName:=sFileName, ConfirmConversions:=False, ReadOnly:=False, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=iEncoding
End Sub
Sub CloseFile(sPath As String, sFileName As String, iEncoding As Integer)
'Enregistrer et fermer un fichier codé
ChangeFileOpenDirectory sPath
With ActiveDocument
.SaveAs FileName:=sFileName, FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="", _
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, _
SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=iEncoding, InsertLineBreaks:=False, _
AllowSubstitutions:=False, LineEnding:=wdCRLF
.Close
End With
End Sub
21 déc. 2007 à 16:49
Sub Decode()
' Convertir un fichier OEM en ANSI
Call OpenFile("D:\Test", "Test_OEM.csv", 850)
Call SaveFile("D:\Test", "Test_ANSI.csv", 1252)
End Sub
Sub OpenFile(sPath As String, sFileName As String, iEncoding As Integer)
'Ouvrir un fichier codé
ChangeFileOpenDirectory sPath
Documents.Open FileName:=sFileName, ConfirmConversions:=False, ReadOnly:=False, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=iEncoding
End Sub
Sub SaveFile(sPath As String, sFileName As String, iEncoding As Integer)
'Fermer un fichier codé
ChangeFileOpenDirectory sPath
ActiveDocument.SaveAs FileName:=sFileName, 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
End Sub
18 déc. 2007 à 11:49
http://fspsa.free.fr/ansi.htm
14 déc. 2007 à 10:15
Nos GM seraient devenus aussi distraits ? Pourtant cette difficulté est souvent évoquée dans les forums de discussion.
Je vous laisse le week-end pour identifier ce problème avant d'apporter une explication et une solution à celui-ci.
7 déc. 2007 à 15:04
6 déc. 2007 à 11:44
30 nov. 2007 à 15:30
30 nov. 2007 à 15:21
Tout d'abord merci pour ton commentaire et ta note pour mon article (http://www.sqlfr.com/tutoriaux/METHODES-TRANSFERT-DONNEES-AVEC-SQL-SERVER-2005_677.aspx).
Pour ma part, compte tenu de la puissance de la procédure étendue xp_cmdshell, j'évite d'activer cette fonctionnalité et donc d'utiliser la procédure étendue xp_cmdshell ! je le faisais beaucoup avant, notamment lorsque je développais des applications qui utilisaient des images; je créais des dossiers pour stocker mes images avec la procédure xp_cmdshell, ensuite j'y stockais mes images et je ne gardais que les chemins dans ma base de données pour optimiser la vitesse d'exécution des requetes sur mes images ! Cependant, avec cette procédure, on peut quasiment tout faire au niveau du système, et donc son utilisation n'est réservée qu'à des utilisateurs avertis ! Cependant, on est rarement tout seul à travailler sur un serveur, et on ne connait pas forcément le niveau des autres et donc ce qu'ils peuvent faire avec...
Quoi qu'il en soit, très bon article.
Pour me faire un peu de pub, je suis en train d'écire un nouvel article sur les différentes possiblités qui sont offertes aux développeurs de bases de données (Création de bases , de tables, de vues, de procédures stockées, de délcencheurs, de fonctions, de règles, de types alias, etc...), avis aux amateurs !
26 nov. 2007 à 14:01
-- Variables de traitement d'export
DECLARE @FullPath Varchar(128), @Txt VARCHAR (7744), @Cmd varchar(8000)
-- Variables de données
DECLARE @DepartementID smallint, @Name varchar(50), @Groupname varchar(50), @ModifiedDate datetime
-- Nom et emplacement du fichier d'export csv
SET @FullPath='D:\Test\HR_Departement.csv'
DECLARE HR_DPT_CURSEUR CURSOR FOR
SELECT TOP (20) DepartmentID, Name, GroupName, ModifiedDate FROM HumanResources.Department
OPEN HR_DPT_CURSEUR
FETCH NEXT FROM HR_DPT_CURSEUR INTO @DepartementID, @Name, @Groupname, @ModifiedDate
WHILE (@@FETCH_STATUS = 0) BEGIN
SET @Txt = CONVERT(VARCHAR(11), ISNULL(@DepartementID, '')) + ';'
+ ISNULL(@Name, '') + ';'
+ ISNULL(@GroupName, '') + ';'
+ ISNULL(CONVERT(VARCHAR(10), @ModifiedDate, 103), '')
-- Ecrire et exécuter la commande d'ajout de contenu
SET @Cmd = 'Echo ' + @Txt + ' >> ' + @FullPath;
EXEC xp_cmdshell @Cmd, NO_OUTPUT;
FETCH NEXT FROM HR_DPT_CURSEUR INTO @DepartementID, @Name, @Groupname, @ModifiedDate
END -- END WHILE
CLOSE HR_DPT_CURSEUR
DEALLOCATE HR_DPT_CURSEUR
26 nov. 2007 à 11:30
26 nov. 2007 à 10:53
EXEC sp_configure 'xp_cmdshell' , 1
GO
-- Appliquer la modification de configuration
RECONFIGURE
GO
26 nov. 2007 à 10:23
Sinon, pourquoi faire simple quand on peut faire compliqué ?
23 nov. 2007 à 14:32
22 nov. 2007 à 17:42