Discussion :

[The Ditch]

Bonjour,

J'aimerais pouvoir remplir un stringgrid avec des infos venant d'un fichier texte. Ce fichier est remplis par des informations données par l'utilisateur.

Je définit où ce trouve le fichier, je l'ouvre et fais un boucle pour le lire complétement. Les données qui devrait se trouvé dans les différentes colonne sont séparée par des ; il me manque quelque chose et je tourne en rond. voici les commande que je pense devoir utilisée, mais je suis un peu perdu... pouvez-vous m'aiguiller?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 StChemin        := ExtractFilePath(Application.ExeName);
 StFichier        := StChemin + 'job.txt';
 AssignFile (FichierText,StFichier);
 
 while not eof(FichierText) do
    begin
        Readln(FichierText,StLigne);
        copy (StLigne,;);
        LstBx.Items.Add(StLigne);
    End;

Merci

[mick605]

Salut

Je pense que l'erreur vient de la ligne

Code :

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

copy (StLigne,;);

Pour utiliser la fonction Copy, il faut donner un nombre de caractères a copier. Pour savoir combien de caracteres il faut copier pour arriver a un ";", utilise la fonction Pos.

Voici une manière plus simple je pense, à base de StringList :

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
18
19
20
var Fichier, Ligne : TStringList;
    i ,j : integer;
 
...
 
  Fichier:=TStringList.Create;
  Fichier.LoadFromFile(ExtractFilePath(Application.ExeName)+'job.txt';
  Ligne:=TStringList.Create;
  Ligne.Delimiter:=';';
 
  for i:=0 to Fichier.Count-1 do
  begin
    Ligne.DelimitedText:=Fichier[i];
 
    for j:=0 to Ligne.Count-1 do
      StringGrid1.Cells[j,i]:=Ligne[j];
  end;
 
  Ligne.Free;
  Fichier.Free;

Bonne chance

[nuxtay]

Salut,
juste un, deux petit truc en plus...

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
18
19
20
21
var
    Ligne, Fichier  : TStringList;
    I, J            : Integer;
begin
    Ligne := TStringList.Create;
    Fichier := TStringList.Create;
    try
        Fichier.LoadFromFile(ExtractFilePath(Application.ExeName)+'Job.txt');
        Ligne.Delimiter := ';';
        Ligne.StrictDelimiter := True;//Pour le caractère espace
        for I := 0 to Fichier.Count - 1 do
        begin
            Ligne.DelimitedText := Fichier.Strings[I];
            for J := 0 to Ligne.Count - 1 do
                StringGrid1.Cells[J,I] := Ligne.Strings[J];
        end;
    finally
        Ligne.Free;
        Fichier.Free;
    end;
end;

@+

[Andnotor]

Juste un petit truc... en moins
Chaque ligne (ou colonne) d'une grille est accessible à travers une TStringList.

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
18
19
20
21
22
var
  F :TStringList;
  i: Integer;
 
begin
  F := TStringList.Create;
 
  try
    F.LoadFromFile(ExtractFilePath(Application.ExeName)+'Job.txt');
    StringGrid1.RowCount := F.Count;
 
    for i := 0 to F.Count -1 do
      with StringGrid1.Rows[i] do
      begin
        Delimiter       := ';';
        StrictDelimiter := TRUE; //Pour le caractère espace si les chaînes ne sont pas entre guillemets !
        DelimitedText   := F[i];
      end;
  finally
    F.Free;
  end;
end;

[mick605]

Salut,
juste un, deux petit truc en plus...
@+

Juste un petit truc... en moins
Chaque ligne (ou colonne) d'une grille est accessible à travers une TStringList.

Merci a vous deux d'avoir amélioré mon code
En général je met le Try Finally, mais la j'ai oublié ^^

Merci pour ta technique AndNotOr, je connaissais pas ...

[nuxtay]

Bien sûr, pourquoi pas pensé...
Super Andnotor, maintenant c'est le Top...
@+

[The Ditch]

Juste un petit truc... en moins
Chaque ligne (ou colonne) d'une grille est accessible à travers une TStringList.

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
18
19
20
21
22
var
  F :TStringList;
  i: Integer;
 
begin
  F := TStringList.Create;
 
  try
    F.LoadFromFile(ExtractFilePath(Application.ExeName)+'Job.txt');
    StringGrid1.RowCount := F.Count;
 
    for i := 0 to F.Count -1 do
      with StringGrid1.Rows[i] do
      begin
        Delimiter       := ';';
        StrictDelimiter := TRUE; //Pour le caractère espace si les chaînes ne sont pas entre guillemets !
        DelimitedText   := F[i];
      end;
  finally
    F.Free;
  end;
end;

Merci pour vos réponses.

J'ai encore quelques questions:

StrictDelimiter := TRUE -> n'est pas connu dans ma version. Je suis en Delphi 6

Je ne vois rien dans mon Stringgrid. Pourtant les datas son bien luent.

J'ai rajouté un ShowMessage(F[i]); et je les voyent. Y a-t-il un paramètre du stringgrid a modifier?

Voici ma procédure:

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
18
19
20
21
22
Procedure TFArch.FormActivate(Sender: TObject);
var
  F :TStringList;
  i: Integer;
 
begin
 
 F := TStringList.Create;
 
  try
    F.LoadFromFile(ExtractFilePath(Application.ExeName)+'Job.txt');
    StringGrid1.RowCount := F.Count;
 
    for i := 0 to F.Count -1 do
      begin
        StringGrid1.Rows[i].Delimiter       := ';';
        StringGrid1.Rows[i].DelimitedText   := F[i];
        ShowMessage(F[i]);
      end;
  finally
    F.Free;
  end;

Voici le contenu de mon fichier texte:

Code :

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

Job1;Ma description;C:\;C:\dest1;C:\LiveBackup Cache\

The Ditch

[Cl@udius]

Salut

Cela devrait pourtant.
Question bête (au cas où): tu as bien 5 colonnes définies dans ton StringGrid (propriété ColCount) ?

A près il faut voir si les espaces sont interprétés comme délimiteur en l'absence du paramètre StrictDelimiter.

@+

[The Ditch]

Bonjour,

Oui le colcount est a 5.

j'ai aussi dans les options mis goEditing a True

The Ditch

[ShaiLeTroll]

Sans StrictDelimiteur les espaces vont effectivement parasisté l'affaire

ExtractsStrings peut-être utilisé pour découper une chaine, un paramètre de retour acceptant une TStrings peut être ensuite assignés à Rows[]

Sinon, Explode via un array of string (TStringDynArray) permet aussi de découper sans risque de caractère parasite !

Possible que DelimitedText pose problème, j'ai un vieux code ou j'utilisais Text + StringReplace

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
F := TStringList.Create;
 
  try
    F.LoadFromFile(ExtractFilePath(Application.ExeName)+'Job.txt');
    StringGrid1.RowCount := F.Count;
 
    for i := 0 to F.Count -1 do
       StringGrid1.Rows[i].Text   := StringReplace(F[i], ';', #10, [rfReplaceAll, rfIgnoreCase]);;
 
  finally
    F.Free;
  end;

[The Ditch]

J'ai trouvé, j'ai mes données.

J'ai supprimer le StringGrid et remis un autre. J'ai du modifié un paramètre quelques part mais où??

Quoiqu'il en soit, j'ai mes données.

Il me reste un soucis de delimiter, il me prend les espace comme delimiter

[nuxtay]

Salut,
pour les espaces on peut aussi modifier le séparateur et le mettre entre guillemet...

Code :

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

1
2
3
StringGrid1.Rows[i].DelimitedText := '"'+
    StringReplace(F[I],StringGrid1.Rows[i].Delimiter,
    '"'+StringGrid1.Rows[i].Delimiter+'"',[rfReplaceAll])+'"';

@+

[Cl@udius]

J'ai supprimer le StringGrid et remis un autre. J'ai du modifié un paramètre quelques part mais où??

DefaultDrawing à False ? Quelque chose comme ça qui parasite le rendu.

Il me reste un soucis de delimiter, il me prend les espace comme delimiter

Soit tu utilises la variante de ShaiLeTroll qui substitue le séparateur par un saut de ligne, ou bien tu mets des guillemets autour des chaines contenant des espaces dans ton fichier .txt.

@+

[The Ditch]

Bonjour

Voici comment j'ai solutionné mon pb:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
     begin
 if OpenDialog1.Execute then
    begin
      AssignFile (Ftext, OpenDialog1.FileName);
      reset (ftext);
      cptrow := 1;
 
      while not eof (ftext) do
        begin
          readln(ftext,ligne);
          ligne := ligne + ';';
          cptcol := 0;
          mot  := '';
          for i := 1 to length(ligne) do
            if ligne[i] <> ';' then mot := mot + ligne [i]
              else
                begin
                  if cptcol < 5 then StringGrid1.Cells[cptcol,cptrow] := mot;
                  mot := '';
                  inc(cptcol);
                end;
           inc(cptrow);
           if cptrow >= StringGrid1.RowCount then StringGrid1.RowCount := cptrow +1;
        end;
 
 
      closefile(ftext);
 
    end;
end;

Merci à tous,