Rechercher une chaine dans un fichier

Version imprimable

27/05/2008, 19h24
bigey3

Rechercher une chaine dans un fichier

salut,

j'ai fichier que je souhaiterais parcourir à la recherche d'une valeur commencant par [228
chaque chaine commencant par [228 trouvé devra etre écrit sur une ligne dans un autre fichier txt.

voici un extrait du fichier.

Removed 0 records from the SubscriberDisconnect table for subscribers that do not exist on AccountMSISDN.
DisconnectSubscriber SUCCESS for SubscriberID [4856] PhoneNumber [2289405374].
DisconnectSubscriber SUCCESS for SubscriberID [6332] PhoneNumber [2289408833].
DisconnectSubscriber SUCCESS for SubscriberID [8108] PhoneNumber [2289413143].
DisconnectSubscriber SUCCESS for SubscriberID [11035] PhoneNumber [2289421386].

merci de me donner un coup de main
27/05/2008, 19h37
ShaiLeTroll

SearchStringInFile ou SearchStringInBigFile , la 2nde étant plus rapide ...
28/05/2008, 16h03
Gilbert Geyer
Salut,

Tu fais SearchString='PhoneNumber [228' pour appeler SearchStringInBigFile cité par ShaiLeTroll qui te renverra le tableau 'OffSets' qui contiendra les positions des occurences trouvées dans le fichier
et ensuite ça oblige à relire le fichier une deuxième fois pour en extraire les numéros de téléphone (10 caractères) à partir des positions + length('PhoneNumber [');

Mais si ton fichier n'est pas trop long tu peux lire ton fichier texte ligne par ligne dans une boucle dans laquelle tu fais :
Code:

1 2 3 4 5 6 po:=pos('PhoneNumber [228',maLigne); if po>0 then begin numero:=copy(maLigne, po+length('PhoneNumber [', 10); StringListNum.Add(numero); end;
... et ensuite à la sortie de la boucle tu fais :
Code:

1 2 StringListNum.SaveToFile();
pour sauver sur le disque le résultat accumulé dans la stringList.
( ne pas oublier avant la boucle de faire StringListNum:=TStringList.create);

A+ :D
28/05/2008, 19h58
bigey3

j'ai rien pigé

salut

j'avoue n'avoir rien compris.
comment rassembler tout sa pour faire un code cohérent.

merci de me donner un coup de pouce.

Tu ne fais aucun effort, allez, je ponds ça directement sur le forum, surement erreur de syntaxe et erreur de runtime, tu peux au moins debugger ... c'est ni plus ni moins l'algo présenté par Gilbert Geyer à partir de ma fonction SearchStringInBigFile

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
31
32
33
procedure ExtractPhone(const SourceFileName, PhoneFileName: string);
const
  PHONE_LEN = 10;
var
  OffSets: TIntegerDynArray; // uses Types;
  I: Integer;
  StreamSrc, StreamDest: TFileStream;
  gap: Integer;
  Phone: string[PHONE_LEN];
begin
  if SearchStringInBigFile(SourceFileName, 'PhoneNumber [228', OffSets, True, MaxInt, False, False) > 0 then
  begin
    gap := Length('PhoneNumber ['); // Si 228 inclu !
    StreamSrc := TFileStream.Create(SourceFileName, fmOpenRead);
    try
      DeleteFile(PhoneFileName);
      StreamDest := TFileStream.Create(PhoneFileName, fmCreate);
      try
        for I := Low(OffSets) to High(OffSets) do
        begin
          StreamSrc.Seek(OffSets[I] + gap, soBeginning);
          StreamSrc.Read(Phone[1], PHONE_LEN);
          StreamDest.Write(Phone[1], PHONE_LEN);
          StreamDest.Write(BreakLine[1], Length(BreakLine)); // BreakLine: string = #13#10; existe dans delphi, je sais plus où
        end;
      finally
        StreamDest.Free();
      end;
    finally
      StreamSrc.Free();
    end;
  end;
end;

29/05/2008, 09h38
Aka Guymelef

Je me permet juste d'ajouter que la constante pour le retour chariot est sLineBreak, disponible dans l'unité System donc partout par défaut :D
29/05/2008, 15h25
ShaiLeTroll

Merci Aka, je savais bien que ça existait ... :mouarf:, je ne savais plus où, et je n'avais pas delphi sur le poste où j'était lorsque je tapais ce message ...
29/05/2008, 16h16
Gilbert Geyer

Bonjour,

Bizarre : J'ai testé la procedure ExtractPhone(const SourceFileName, PhoneFileName: string); de ShaiLeTroll qui utilise la version SearchStringInBigFile qui permet , si besoin est, de comptabiliser les occurrences de cheveauchement et ça n'a pas marché.
Après avoir galéré pour trouver le bug j'ai remplacé cette version de SearchStringInBigFile par sa version N-1 qui ne gère pas les occurrences de cheveauchement et enfin ça a marché.
Donc je signale à toutes fins utiles qu'il doit y avoir un bug de nature inconnue (pas de message d'erreur) dans la version qu'on trouve via le lien cité plus haut dans le message de ShaiLeTroll du 27/05/2008 18h37.

A+ :D
29/05/2008, 18h18
ShaiLeTroll

tu as testé en remplaçant

Code:

if SearchStringInBigFile(SourceFileName, 'PhoneNumber [228', OffSets, True, MaxInt, False, False) > 0 then

par

Code:

if SearchStringInBigFile(SourceFileName, 'PhoneNumber [228', OffSets, True, MaxInt, False) > 0 then

Sinon, si cela fonctionne au moins avec l'une des variantes, c'est que mon code fonctionne, tu as du corrigé autre chose ?

EDIT : Tient, sur le forum, ce n'est pas la dernière version de BigFile !
Yep, c'est un bug de Casse, j'étais en train de la modifier pour l'optimiser quand je l'ai mise sur le forum, et j'avais pas fini ! voici la bonne version de SearchStringInBigFile (j'ai mis à jour aussi le lien, pour qu'il pointe ici, autant ne pas mutiplier les version) :

EDIT 2 : Code Effacé car Incorrect voir ICI
30/05/2008, 11h18
Gilbert Geyer

Bonjour,

A ShaiLeTroll :

Citation:

tu as testé en remplaçant ... par ...

... exact.

Code:

tu as du corrigé autre chose ?

... oui, mais c'est des broutilles : pour faire marcher le code sous Delphi-5 j'ai été obligé :
- de déclarer le Type TIntegerDynArray = array of Integer;
- et de remplacer dans la procedure ExtractPhone le BreakLine puis le sLineBreak(*) par une constante locale (const CRLF = #13#10; ) et du coup j'ai également remplacé StreamDest.Write(BreakLine[1], Length(BreakLine)) par StreamDest.Write(CRLF[1], 2) puisque le Length est constant et égal à 2.

En plus le compilo a trébuché sur la ligne StreamSrc.Seek(OffSets[i] + gap, soBeginning); : avec soFromBeginning le pb est réglé.

Je viens de tester ta dernière mouture de SearchStringInBigFile : cette fois-ci ça a marché immédiatement.

(*) A propos de sLineBreak : sous Delphi-5 il décleche le message d'erreur Identificateur non déclaré : 'sLineBreak' et si j'ajoute 'System' dans le uses c'est le message d'erreur Identificateur redéclaré : 'System' qui bloque : d'où la création de la constante locale CRLF.

A+ :D

Ah oui, moi aussi, parfois il m'ajoute SysInit ou System dans les uses parce que j'ai utilisé le CTRL+ESPACE, alors que ces deux unités sont implicites, très con ... bon, sinon ça doit ça pour D6 ... (pour D5 semble falloir suivre les modifs de Gilbert Geyer)

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
31
32
33
procedure ExtractPhone(const SourceFileName, PhoneFileName: string);
const
  PHONE_LEN = 10;
var
  OffSets: TIntegerDynArray; // uses Types;
  I: Integer;
  StreamSrc, StreamDest: TFileStream;
  gap: Integer;
  Phone: string[PHONE_LEN];
begin
  if SearchStringInBigFile(SourceFileName, 'PhoneNumber [228', OffSets, True, MaxInt, False, False) > 0 then
  begin
    gap := Length('PhoneNumber ['); // Si 228 inclu !
    StreamSrc := TFileStream.Create(SourceFileName, fmOpenRead);
    try
      DeleteFile(PhoneFileName);
      StreamDest := TFileStream.Create(PhoneFileName, fmCreate);
      try
        for I := Low(OffSets) to High(OffSets) do
        begin
          StreamSrc.Seek(OffSets[i] + gap, soBeginning);
          StreamSrc.Read(Phone[1], PHONE_LEN);
          StreamDest.Write(Phone[1], PHONE_LEN);
          StreamDest.Write(sLineBreak[1], Length(sLineBreak));
        end;
      finally
        StreamDest.Free();
      end;
    finally
      StreamSrc.Free();
    end;
  end;
end;

pour le Stream, l'enum aurait été ajouté en D6 ? c'est pour forcer la version Int64 du Seek, il différencie un entier d'une enum lors du lien de la méthode ...

Code:

1
2
3
4
5
6
7
8
9
{ TStream seek origins }
 
  soFromBeginning = 0;
  soFromCurrent = 1;
  soFromEnd = 2;
 
type
{ TStream seek origins }
  TSeekOrigin = (soBeginning, soCurrent, soEnd);

30/05/2008, 13h26
Gilbert Geyer

Re-bonjour,

Citation:

pour le Stream, l'enum aurait été ajouté en D6 ? C'est con, c'est redondant ...

... ça peut aussi résulter d'une sorte d'harmonisation lors du passage de D5 vers D6 vu que d'autres paramètres d'autres méthodes ou fonctions sont souvent encapsulés dans une énum.
... mais heureusement que le compilo détecte le problème si on confond soFromBeginning avec soBeginning.

A+ :D
30/05/2008, 17h35
bigey3

merci

merci à tous pour votre participation.j'ai appris à travrs les échanges un peu plus.

je crois très bientot j'aurais plus d'expérience en delphi avec nos échanges sur le forum.