Discussion :

[dmognin]

Bonjour.
Je cherche une solution pour lire un tableau rectangulaire qui est enregistré dans un fichier texte, pour pouvoir le mettre dans un tableau f (array of array).
Le fichier contient des valeurs sur n lignes et m colonnes.
Comment puis je procéder pour remplir case par case mon tableau f à partir du fichier ?
Je connais la fonction readln(a,b) par exemple pour deux colonnes, et qui va lire ligne par ligne dans une boucle. Mais je ne sais pas comment faire pour n colonnes. Je veux pouvoir remplir f[n,m] dans une boucle.
merci d'avance pour vos conseils

[philnext]

Je ne connais pas la structure de ton fichier mais je pense que le plus simple est de passer par une tStringList (function loadFromFile) qui récupère les lignes.
Puis de récupérer, ligne par ligne, les colonnes avec une autre tStringList en utilisant la fonction commatext pour transformer la ligne en tStringList.
Attention commatext pose un problème si il y a des espaces dans les lignes lues.

[ShaiLeTroll]

Les Delphi récents fournissent la fonction SplitString plus simple que la vieille ExtractStrings

CommaText ou DelimitedText avec un StrictDelimited à true, fait aussi l'affaire !

[philnext]

@ShaiLeTroll
Certes mais StrictDelimited n'existe pas (hélas !!) dans toutes les versions.

[ShaiLeTroll]

StrictDelimiter, c'est assez récent oui, D2005 non ?
A ce problème, il y a ExtractStrings qui existe au moins de depuis D4 !

ExtractStrings utilise des PChar, c'est un peu con, et n'était pas extrêmement rapide en D5, d'où mon propre Explode

[philnext]

ExtractString ? J'avais jamais vu !!
Bon comme tout le monde je me suis fait mon Explode à moi...avec un objectif de perf. ça ne colle pas à tous les cas de figures mais bon.

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
 
procedure Explode(sIn :String; tsOut : tstringlist; const separ : string=';');
//Splitte sIn en fonction de separ dans la tStringList tsOut
//Un peu style commatext mais sans le "bug" de l'espace..
 var iPos :Integer;
begin
  tsOut.Clear;
  iPos := pos(separ, sIn);
  While iPos <> 0 do
  begin
    tsOut.Add(copy(sIn,1,ipos-1));
    sIn:= Copy(sIn, iPos+1,length(sIn));
    iPos := pos(separ, sIn);
  end;
  if sIn <> '' then
    tsOut.Add(sIn);
end;