TFileStream avec ReadBuffer sur longueur strings déterminé

Bonjour à toutes et à tous,

J'essaie de lire un fichier txt par TfileStream, je souhaiterais envoyé la taille de la chaine à retourner, mais cela ne fonctionne pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function ReadFilesTxt(Fichier: TStringList; NbCar:Integer): String; Var Stream : TFileStream; i: Integer; begin // Result := ''; for i := 0 to Fichier.Count - 1 do begin with TFileStream.Create(Fichier[i], fmOpenRead or fmShareDenyWrite) do begin try ReadBuffer(Result[NbCar],Sizeof(Result[NbCar])); Finally Free; end; end; end; end;

---

Par contre si je fais cela sa fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

function ReadFilesTxt(Fichier: TStringList; NbCar:Integer): String; Var Stream : TFileStream; i: Integer; Value: String[20]; begin Result := ''; for i := 0 to Fichier.Count - 1 do begin with TFileStream.Create(Fichier[i], fmOpenRead or fmShareDenyWrite) do begin try ReadBuffer(Value,Sizeof(Value)); Result := Value; Finally Free; end; end; end; end;

---

ce que je comprend pas c'est que ta fonction, ne renverra que la derniere ligne du dernier fichier ... ?!

sinon :

Code:

---

1 2 3 4 5 6

SetLength(BufferString, NbChar);   {...} Read(BufferString[1], NbChar); {...}

---

avec

Code:

---

1 2	var BufferString : string ou AnsiString;

---

Citation:

---

Envoyé par Dr.Who

ce que je comprend pas c'est que ta fonction, ne renverra que la derniere ligne du dernier fichier ... ?!

---

En fait j'ai fais cela entre temps :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

function ReadVersion(FileName: TFileName): Integer; Var i,j: Integer; Value: String[180]; begin Result := -1; with TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite) do begin try Try ReadBuffer(Value,SizeOf(Value)); Value := Copy(Value,PosEndMot(Value,'#VER'),3); Result := StringInInteger(Value); Except Result := -1; End; finally Free; end; end; end;

---

Pour info mon fichier comporte X lignes, je ne suis interresser que par la deuxième ligne, et surtout dans cette deuxieme ligne je souhite ressortir le chiffre qui se trouve à droite de '#VER'.
La ligne 2 ressemble à cela
#VER 5
ou
#VER 14

Comme je n'arrive pas a prendre que le deuxieme ligne, j'utilise ma procédure pour
1) rechercher ici dans les 180 premières caractères la position de la fin du mot #VER
2) de transformer la suite en nombre.

Sa parrait compliquer mais cela fonctionne.

Mes autres procedures :
PosEndMot

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

function PosEndMot(S:String; searchS: String): Integer; Var i: integer; nbS, nbSearch: Integer; begin Result := -1; nbS := Length(s); nbSearch := Length(searchS); i := 1; while (i <= nbS) do begin if Copy(S,i,nbSearch) = SearchS then begin Result := i + nbSearch; Break; end; Inc(i); End; end;

---

StringInInteger

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

function StringInInteger(S:String): Integer; Var i : integer; nbS : integer; DebPos, FinPos: integer; begin result := -1; nbS := Length(s); i := 1; while (i <= nbS) do begin if (Ord(s[i]) >= 48) And (Ord(s[i]) <= 57) then begin DebPos := i; FinPos := 0; while (i <= nbS) And (Ord(s[i]) >= 48) And (Ord(s[i]) <= 57) do // de 0 à 9 do begin inc(FinPos); inc(i); end; break; end; inc(i); end; Try result := StrToInt(Copy(S,DebPos,FinPos)); Except Result := -1; End; end;

---

Je vais essayer ton SetLength.

Merci.

Salut,

Citation:

---

Pour info mon fichier comporte X lignes, je ne suis interresser que par la deuxième ligne, et surtout dans cette deuxieme ligne je souhite ressortir le chiffre qui se trouve à droite de '#VER'.
La ligne 2 ressemble à cela
#VER 5
ou
#VER 14

---

Dans ReadVersion() après avoir créé ton FileStream il faut préciser la Position à laquelle se trouve le début de la 2ième ligne qui t'intéresse avant de faire la lecture avec ReadBuffer(). A cet effet, si tu déclares une var FS : TFilestream, il suffira d'ajouter la ligne FS.Position:=LongueurDeLaPremiereLigne;
tu peux aussi utiliser FS.Seek(LongueurDeLaPremiereLigne, soFromBeginning);
Ceci suppose que tu connaisses la LongueurDeLaPremiereLigne.
Mais si tu ne la connais pas une parade consisterait à lire à partir de FS.Position:=0 un nombre de caractères supérieur à la somme des deux premières lignes et en supposant qu'on appelle Lu la string correspondante, repérer la position de '#VER' avec
PosVer:=pos('#VER',Lu);<- PosVer du type integer, suivi par :
sNum:=copy(Lu,PosVer+5,2); <- sNum du type string
sNum:=Trim(snum);
et le nombre qui se trouve à droite de '#VER' est donc :
MonNombre:=StrToInt(sNum);

A+.

P.S : Je suppose ici que que la partie numérique de #VER 14 ne dépasse pas 2 caractères

Salut Gilbert.. ;)

Citation:

---

Envoyé par Gilbert Geyer

....
Mais si tu ne la connais pas une parade consisterait à lire à partir de FS.Position:=0 un nombre de caractères supérieur à la somme des deux premières lignes ...

---

C'est justement ce que j'ai fais avec :

Code:

---

1 2	SetLength(BufferString,NbCar); ReadBuffer(BufferString[1],NbCar);

---

Où NbCar dépasse la deuxième ligne

Citation:

---

Envoyé par Gilbert Geyer

....
P.S : Je suppose ici que que la partie numérique de #VER 14 ne dépasse pas 2 caractères

---

C'est là mon problème, j'en suis pas sur à 100% d'où ma procédure :
function StringInInteger(S:String): Integer;
Qui fais en sorte de retourner les chiffres qui sont coller l'un a l'autre apres la position de "#VER"

Par contre je pourrais eviter ma procédure :

Code:

---

function PosEndMot(S:String; searchS: String): Integer;

---

Avec ta proposition : PosVer:=pos('#VER',Lu);

Mais je peux pas l'utiliser, en effet ma première ligne c'est '#COMP....' et si j'utilise Pos('#VER',Lu); il me retournera toujours 1 car la fonction pos recherche que le première caractère de subStr, mais cela tu pouvais pas le savoir (je parle de ma premiere ligne).
Donc j'utilse ma fonction :
function PosEndMot(S:String; searchS: String): Integer; qui me garantie de me retourner la bonne position.

Je te remercie pour ta réflexion, qui me permet de confirmer la mienne, faut toujour demander au spécialiste leur façon de faire.:ccool:

Citation:

---

Envoyé par BuzzLeclaire

... il me retournera toujours 1 car la fonction pos recherche que le première caractère de subStr, ...

---

Gnéé :koi: et depuis quand mon cher Buzz ?

Citation:

---

Envoyé par Cl@udius

Gnéé :koi: et depuis quand mon cher Buzz ?

---

Depuis que je viens de le testé Le claude..., justement moi aussi je trouves bizard... mais c'est le cas.

Bon evidement tu viens de me mettre un super doute... je reteste...

:mouarf:

Citation:

---

Envoyé par Cl@udius

Gnéé :koi: et depuis quand mon cher Buzz ?

---

Effectivement... :aie:

enfin bref j'ai du me planter sur mes essais.

Merci.:ccool:

Bonjour,

Citation:

---

...ta proposition : PosVer:=pos('#VER',Lu);
... je peux pas l'utiliser, en effet ma première ligne c'est '#COMP....' et si j'utilise Pos('#VER',Lu); il me retournera toujours 1 car la fonction pos recherche que le première caractère de subStr,

---

... décidément ton Delphi est vraiment bizarre en supposant que ton test ait été correct
... Pos renvoie la valeur d'index du premier caractère de la sous-chaîne spécifiée qui se trouve dans une chaîne et la sous-chaine ne peut s'y trouver que si tous les caractères de la sous-chaine y sont présents donc Pos ne peut se contenter de rechercher uniquement le premier caractère de la sous-chaine. Exemple :

Code:

---

1 2 3 4 5

Lu:='xxxx#COMPoooooooooo#VER 14'; PosVer:=pos('#VER',Lu); ShowMessage('i = '+IntToStr(i)); //Affiche i = 20

---

A+. :)

@ Gilbert,

Non t'inkiete c'est moi le fautif :aie: , (post juste au dessus).

:ccool: