Discussion :

[Ardely]

Bonjour,
J'aimerais bien savoir si c'est possible de remplacer un caractère dans un fichier ASCI par un autre caractère de même longueur à une position donné.

Exemple:
J'ai un fichier de 5M et je dois remplacer le caractère 'A' a la position 728 par le caractère 'B' sans a réécrire par une boucle du début jusque a la fin, est-ce possible!

J'utilise pour le moment une fonction avec une boucle BlockRead et BlockWrite.

Merci beaucoup pour votre aide.
Salutations

[Yurck]

Oui

Utilises un fichier typé, puis seek puis blockwrite.

En fonction de ton besoin réel tu déclares ton fichier comme étant un fichier d'enregistrement de taille 768 et tu fais un seek(2) ou alors un
un fichier d'enregistrement de taille 1 et tu fais un seek(768)

cordialement

[Ardely]

Merci pour ta réponse aurais-tu un petit examples...
Salutations.

[Just-Soft]

Oui

Utilises un fichier typé, puis seek puis blockwrite.

En fonction de ton besoin réel tu déclares ton fichier comme étant un fichier d'enregistrement de taille 768 et tu fais un seek(2) ou alors un
un fichier d'enregistrement de taille 1 et tu fais un seek(768)

cordialement

et ça ce n'est un petit exemple, non ?

[Yurck]

et ça ce n'est un petit exemple, non ?

+1

Maintenant il est vrai que cela dépend tu delphi que tu utilises l'aide et les exemples ont semble-t-il disparu avec le temps.

L'exemple que j'évoquais plus haut sort de mes souvenirs des années folles du turbo pascal.

Aujourd'hui en Delphi 2009 on écrirais un truc du genre :

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
Var
  F : TFileStream;
  v : char;
begin
  F := TFileStream.Create('XXX.XX',fmOpenReadWrite);
  try
    v := 'B';

    F.Seek(228 - 1, soBeginning);
    F.WriteBuffer(v, 1);

  finally
    F.Destroy;
  end;
end;

A noter que bien que l'aide soit peu riche un petit sur seek (ce que je viens de faire) t'aurais éclairer.

a+

[Ardely]

Merci de m'avoir éclairer.. je vois maitenant comment faire.
Salutation et très bonne journée.