Chercher/Remplacer un ou plusieurs caractères dans un fichier ?

Bonjour à tous,

Voici mon problème,

j'ai plusieurs dizaines de fichiers textes d'env. 100Mo à 150Mo chacun.
Ces fichiers contiennent des notices qui commencent toujours par la chaîne PATN

Dans certains de ces fichiers je viens de m'apercevoir que j'ai quelques CTRL-Z !
Et là normal mon While not EOF(F)... sort de sa boucle !

Je voudrais avant d'ouvrir mon fichier par la fonction AssignFile, faire une procédure
qui ouvre, Search/Replace les caractères CTRL-Z, puis sauvegarde le fichier.

Ce traitement n'est qu'à faire qu'une seule fois.

Auriez vous une procedure pour faire ça en sachant que j'ai trouvé que des solutions avec des TStringLists
et je pense pas que 150Mo soit accepté par les TStringList.

D'avance merci pour vos conseils,

Bruno

Regarde cette fonction SearchStringInFile pour remplacer

Sinon, utilise TFileStream ton fichier en mode binaire au lieu du mode Assign ( CTRL+Z c'est quoi comme code, car j'avais eu aussi ce problème, sur le caractère 16, si mes souvenirs de 2002 sont exacts)

Salut ShaiLeTroll,

Je connaissais cette fonction mais j'avoue que je ne sais pas encore comment l'utiliser pour faire un replace.
je vais fureter sur le net un peu :)

le code CTRL-Z, c'est le 26 ou 0x1A

Si tu l'as déjà utilisé en mode Search/Replace, je suis preneur, j'en peux plus de tous ces fichiers à traiter...déjà un mois que je fais des conversions, je sature un peu :roll:
(Txt->xml, xml->xml, sgml->xml etc....) Là il y a 1275 fichiers de 100Mo env. qui contiennent en tout 1 850 000 fichiers... (c'était le moment je me plains :aie::calim2: )

Merci pour le conseil,
Bruno

Re,

eh bien ce n'était pas bien long, j'ai retrouvé un post de toi ShaiLeTroll qui donne la solution à ce que je cherche à faire et
je viens de l'implémenter et ça fonctionne parfaitement !!!

Enfin une bonne chose :)

un post dans phidels:

http://www.phidels.com/php/forum/for...&postid=123509

J'avais même fait une fonction ReplaceStringInFile prête à l'emploi, je l'avais totalement oublié,
je l'ai effectivement retrouvé dans une application de Test quand j'ai essayé la version Pulsar de Delphi