Ouaooooooooo Merci beaucoup, ça maaarche!
j'ai pas encore tout capté comment mais effectivement ça marche nickel, meme en mettant le fichier txt complet dans une variable de type Widestring
en modifant le debut:
----
AssignFile(FichierTest, 'test.txt');
Count := 0 ;
Reset(FichierTest);
Readln(FichierTest, Tmp);
Chaine := Tmp;
CloseFile(FichierTest);
Fini := False;
---- |
j'aurais jamais pensé qu'on pouvait ce permettre de rentrer une chaine aussi longue dans une variable widestring, apparement c limité à 2Go par Delphi enfin surtout la ram dispo...de toutes façons le jour où j'aurais un txt de rien que 500Ko il est pas arrivé
effectivement c'est peut être un peu bourrin pour des mecs comme toi qui maîtrise mais à mon niveau c'est plutôt "une bonne solution"
j'avait trouvé un moyen de localiser les :SAT, :TRP etc avec AnsiPos:
Tri1 := AnsiPos(':SAT', Tmp);
Tri2 := AnsiPos(':NET',Tmp);
Tri3 := AnsiPos(':TRP',Tmp);
Tri4 := AnsiPos(':CHN',Tmp);
showmessage ( inttostr(Tri1)+ ' ' + inttostr(Tri2)+
' '+ inttostr(Tri3)+ ' ' + inttostr(Tri4) ); |
malheureusement meme en bouclant il ne reprenait jamais au prochain ":CHN" par ex.
l'avantage de la variable c'est qu'on peut la "nettoyer" de ce qu'on vient de lire, ce que tu m'a montré, si j'ai bien compris, juste avant le premier end;
Encore en un grand merci de m'avoir débloqué, je commençait à m'arracher les cheveux (doucement quand meme), ptaint quand on est newbie ça fout les boules la programmation, vous devez être de vrais moines Tibétains vous les coder