Discussion :

[Tooms]

J'ai une ligne de fichier texte du type : x g h l .....
(x,g,h, sont des valeurs ).Je sais que sous PERL il existe une focntion "split" qui permet d'extraire juste les valeurs comprises entre les espaces. Existe t il la méme fonction sous Delphi.? J'ai cherché dans l'aide mais j'ai pas trouvé.
Merci d'avance

[bidochon]

Je ne connais pas de fonction toute faite qui permette de le faire.
Par contre sous delphi tu ouvres le fichier (TextFile)
Et a l'aide des chaine de caracteres, tu remplaces les espaces par rien avec ce code :

Code :

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

1
2
3
4
5
6
7
 
var
st : string;
F : TextFile;
...
Readln(F,St);
While Pos(' ',St)>0 then St[Pos(' ', St)] := '';

Amic@lement

[Tooms]

dsl je me suis mal exprimé. En fait j'aimerais que chaque valeur entre espaces soient extraites et replacer dans un tableau. de facon a ce que la premiére valeur de ma 1° ligne du fichier text aille dans la 1° case de la 1° colonne etc.....

[bidochon]

oui c'est possible mais ca complique un peu le code a ecrire
essayes quelque chose du genre :

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
 
var 
Tablo2D : Array[0..x,0..y] of char;
              //tablo 2 dimensions (x par y) de caracteres
st : string; 
F : TextFile; 
col,ligne,i : word;
... 
col:=0;
ligne:=0;
While not Eof(F) do
Begin
Readln(F,St); 
  for i:=1 to Length(st) do 
  Begin
    If st[i]<>' ' then
     Begin
        Tablo2D[col,ligne]:=st[i];
        ligne:=ligne+1  // ca peut s'optimiser
     End;
  End;
col:=col+1;
End;

C'est du brut, je ne l'ai pas verifier ou compiler mais l'idée est la
@mic@lement

[Tooms]

Merci je vais essayer de me dépatouiller avec tout ca méme si me parait un peu chinois