Les Snippets

Connexion

Enregistrer un tableau à 2 dimensions vers un fichier

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 02/06/2008 11:31:06 et initié par PCPT [Liste]
Date de mise à jour : 29/06/2008 19:06:20
Vue : 1739
Catégorie(s) : Fichier / Disque, Chaîne de caractères
Langages dispo pour ce code :
- VB6, VBA
- Delphi 5



Langage : VB6 , VBA
Date ajout : 02/06/2008
Posté par PCPT [Liste]
Private Sub SetColumnsToFile(ByRef saArr() As String, ByVal sPath As String, Optional ByVal sSepar As String = ";")
    Dim As Integer, j As Integer, s As String, FF As Integer
    FF = FreeFile
    Open sPath For Output As #FF
        For i = To UBound(saArr)
            s = vbNullString
            For j = To UBound(saArr, 2)
                s = s & saArr(i, j) & sSepar
            Next j
            Print #FF, Left$(s, Len(s) - Len(sSepar))
        Next i
    Close #FF
End Sub

Remarque :
vient compléter le snippet de récupération du fichier :
http://www.codyx.org/snippet_recuperer-contenu-fichier-sous-forme-tableau-multidimensionnel-apres_508.aspx
Langage : Delphi 5
Date ajout : 29/06/2008
Posté par f0xi [Liste]
DateMAJ : 29/06/2008

 type
   T2DimArray = array[0..255, 0..255] of byte;
 
 
 procedure Save(const FileName: string; const A: T2DimArray);
 begin
   with TFileStream.Create(FileName, fmCreate) do
   try
     WriteBuffer(A, SizeOf(T2DimArray));
   finally
     Free;
   end;
 end;
 
 
 procedure Load(const FileName: string; var A: T2DimArray);
 begin
   with TFileStream.Create(FileName, fmOpenRead) do
   try
     ReadBuffer(A, SizeOf(T2DimArray));
   finally
     Free;
   end;
 end;
 
 

Snippets en rapport avec : Tableau, Fichier, Enregistrer, Écrire, Colonnes



Codes sources en rapport avec : Tableau, Fichier, Enregistrer, Écrire, Colonnes

{Visual Basic, VB6, VB.NET, VB 2005} ENREGISTRER LIRE ET MODIFIER/ÉCRIRE DANS UN FICHIER TEXTE AU FORMAT UNICODE
Ayant ramé pour trouver comment faire je vous offre cette petite source pour vous éviter de fastidie...

{Visual Basic, VB6, VB.NET, VB 2005} GETNAMES : RÉCUPÈRE ET ÉCRIT TOUS LES NOMS DE FICHIERS D'UN DOSSIER
J'ai fait ce petit programme tout simple, qui aurait pu être créé par n'importe quel débutant, car j...

{C / C++ / C++.NET} NOMBRE DE LIGNES ET DE COLONNES D'UN FICHIER
Voici ma première source, qui permet de trouver le nombre de colonnes et de lignes d'un fichier avec...

{Visual Basic, VB6, VB.NET, VB 2005} COMPRESSION
Fonction pour comprimer un tableau de byte...

{Javascript / DHTML} COCHER DES CASES DANS UN TABLEAU , CREÉ EN PHP AVEC POSSIBILITÉ DE LES RETENIR ET/OU ENREGISTRER DANS UN BD
pour un client il me fallait un grid de 98 cases heures/jours pour que les gens qui veulent suivre u...

{Flash} ENREGISTRER DANS UN FICHIER TEXTE AVEC L'AIDE D'UN EXE
Voici une classe permettant d'enregistrer dans un fichier texte, ca fonctionne grace à un éxécutable...

{Visual Basic, VB6, VB.NET, VB 2005} CALCUL TABLEAU SOURCE DES DATA DANS UN FICHIER TEXTE
Le code permet d'expliquer d'ouvrir un fichier de data et manipuler les données : - notion double...

{Delphi} CREER UN TYPE DE FICHIER ET LA GESTION QUI EN DECOULLE.
Rebonjour a tous! seconde source d'ajourd'hui pour repondre a un probleme posé sur le forum. Voic...

{JAVA / J2EE} LIRE ET ÉCRIRE UN FICHIER BMP
Cette petite classe permet d'obtenir une image provenant d'un fichier BMP et permet aussi d'en faire...

{Assembleur} EXEMPLES SIMPLES DE FICHIERS ÉCRITS AVEC NASM
Cette source a pour but d'aider les débutants utilisant Nasm (et Alink)à créer différents fichiers 1...