Discussion :

[BuzzLeclaire]

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 :

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
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 :

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
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;

[Dr.Who]

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

sinon :

Code :

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

1
2
3
4
5
6
 
SetLength(BufferString, NbChar);
 
{...}
  Read(BufferString[1], NbChar);
{...}

avec

Code :

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

1
2
var
  BufferString : string ou AnsiString;

[BuzzLeclaire]

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 :

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
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 :

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
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 :

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
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.

[Gilbert Geyer]

Salut,

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

[BuzzLeclaire]

Salut Gilbert..

....
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 :

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

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

Où NbCar dépasse la deuxième ligne

....
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 :

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

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.

[Cl@udius]

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

Gnéé et depuis quand mon cher Buzz ?

[BuzzLeclaire]

Gnéé 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...

[BuzzLeclaire]

Gnéé et depuis quand mon cher Buzz ?

Effectivement...

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

Merci.

[Gilbert Geyer]

Bonjour,

...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 :

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

1
2
3
4
5

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

A+.

[BuzzLeclaire]

@ Gilbert,

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