Discussion :

[Invité]

Bonjour,

Le code suivant fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
      aStringList := TStringList.Create;
      aProcess := TProcess.Create(nil);
      aProcess.CommandLine := 'ls' ;
      aProcess.Options := aProcess.Options + [poUsePipes] - [poWaitOnExit];
      aProcess.Execute;
      aStringList.LoadFromStream(aProcess.Output);
      aProcess.Free;
      aStringList.SaveToFile('output.txt');
      aStringList.Free;

Mon fichier output.text contient alors 17 lignes.

Si je remplace aProcess.CommandLine := 'ls' ; par aProcess.CommandLine := 'ls | head -5';, le fichier output.txt est vide or en console, la commande avec head -5 me retourne bien 5 lignes.

Il s'agit très vraisemblablement d'un problème d'espaces et du | qui doivent être encadrés de simples ou doubles quotes à bon escient. Mais quelle est le bonne combinaison ?

Merci. Cordialement. Gilles

[batyann811]

Je vais peut être dire une connerie... mais je me lance quand même.

Je pense plutôt que ta commande 'ls | head' ne fonctionne pas car elle n'est pas exécutée pas un shell. Le '|' ne doit donc pas être interprété. Au lieu de ça la commande 'ls' doit recevoir '|' et 'head' en paramètre...

Ça devrait mieux marcher avec un truc de ce genre :

Code :

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

aProcess.CommandLine := 'sh -c ''ls | head -5'' ' ;

[Invité]

Merci,

L'explication est plausible, en effet. Je testerai le code demain (absent aujourd'hui).

Cordialement.Gilles

[Invité]

En effet,

Cela fonctionne correctement. Merci beaucoup.
Cordialement. Gilles