Fonction de position d'une chaineRésolu

Question

Voila mon soucis.
J'ai un fichier .txt avec plus de 70000 lignes, dont les lignes sont exactement &#231;a:
...
99;17/03/2005;18/03/2005;19/03/2005;GF044301;IM CHATEAUNEUF 2
100;17/03/2005;18/03/2005;19/03/2005;GF046401;IM CHATELLERAULT BIE LS
101;17/03/2005;18/03/2005;19/03/2005;GF051201;IM TOURS RASPAIL
3101;04/04/2005;05/04/2005;09/04/2005;GF016400;NETTO ST BARTHELEMY ANJOU
26569;17/05/2005;17/05/2005;21/05/2005;99;CLIENT ECHANTILLON ITM

...
Je voudrais extraire le num&#233;ro en gras sans le point virgule, mais mon probleme c'est qu'ils n'ont pas le meme nombre de caracteres. Je ne trouve pas la solution.

ni69 · Accepted Answer

Plus simplement, sans utiliser de fonction suppl&#233;mentaire :

MonChiffre := Copy(Line, 1, Pos(';' , Line)-1 );

 @+

        Nico  { http://www.ni69.new.fr }

        

               
<hr size="2" width="100%">        

N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

padsou · Answer

Fais &#231;a :

function StrToken(var sLine: string; cToken: char): string;
var
  iPos: Integer;
begin
  iPos := Pos(cToken, sLine);
  if iPos = 0 then
  begin
    Result := sLine; {No more tokens - return rest of string}
    sLine := '';
  end
  else
  begin
    Result := Copy(sLine, 1, iPos - 1); {Get first field without the token}
    Delete(sLine, 1, iPos); {Del 1st field w/token from orig. string}
  end;
end;

ensuite dans ton code tu fais :
monchiffre := strToken(maligne, ';');

Dezouille · Answer

Ouais, c'est exactement ce que j'ai fais, et &#231;a marche impecable

Fonction de position d'une chaine

3 réponses

Votre réponse

Discussions similaires