Discussion :

[ghan77]

voilà tout est dans le titre comment mettre ce qu'il y a dans un tableau dans un fichier texte .txt donc avec genre un espace entre chaque cellulle d'une même ligne ou des points virgules.Merci de votre aide!

[Graffito]

Bonjour,

Voici un code de base pour crééer un fichier txt avec des points vigules comme délimiteurs ASCII et qui sera compatible avec Excel.

Attention, s'il y a des ";" dans les cellules du tableau il faut faire un traitement spécial pour les sauvegarder et les récupérer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var tsl : tstringlist ;
      s :string ;      
begin
tsl:=tstringlist.create ;
for y:=0 to tstringgrid1.rows.count do begin 
     s:='' ;
     for x:=0 to tstringgrid1.rows.count do s:=s+tstringgrid1.cells(x,y)+';' ;
     tsl.add(s) ;
     end ;
tsl.savetofile('myfile.txt') ;
tsl.free ;
end ;

[petitcoucou31]

salut ,

tu doit simplement parcourir tout ton tableau ligne par ligne , pour chaque ligne cumuler dans un string toutes les cellules de ta ligne en inserant un caractere entre chaque colonne et ecrit ta ligne dans le fichier texte avant de passer a la suivante.
tu peux inclure cela dans la routine de sauvegarde.

bye

[ghan77]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var tsl : tstringlist ;
      s :string ;      
begin
tsl:=tstringlist.create ;
for y:=0 to tstringgrid1.rows.count do begin 
     s:='' ;
     for x:=0 to tstringgrid1.rows.count do s:=s+tstringgrid1.cells(x,y)+';' ;
     tsl.add(s) ;
     end ;
tsl.savetofile('myfile.txt') ;
tsl.free ;
end ;

Merci pour ton code et je l'ai modifié vu qu'il y avait des erreurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
tsl:tstringlist ;
s:string ;
y,x:integer;
begin
tsl:=tstringlist.create ;
for y:=0 to stringgrid1.RowCount-1 do
     begin
     s:='' ;
     for x:=0 to stringgrid1.ColCount-1 do
     s:=s+stringgrid1.cells[x,y]+';' ;
     tsl.add(s) ;
     end ;
tsl.savetofile('essai.txt') ;
tsl.free ;
ShowMessage('Transfert Données Effectué!!!')
end ;

et il faut mettre le fichier texte là où il y a le programme!je pense que l'on peut mettre la direction d'un répertoire si l'on mais je n'ai pas testé!

Merci encore!