insert un caractère dans un fichier text.

Version imprimable

05/07/2006, 15h48
toctoc

insert un caractère dans un fichier text.

Bonjour

Comment peut on faire pour insèrer un caractère dans un fichier text?
EX: fichier text contient : abcdefg.hijklmn.opqrst.uvwxyz
résultat on veut avoir c'est ab.cd.ef.g.hi. etc...

Merci de votre aide.
05/07/2006, 16h05
denokan

tu dois charger entièrement ton ficher, faire les modifs en mémoire, pour enfin réécrire entièrement ton fichier. pour cela il existe différentes méthodes en fonction de la nature du fichier. le chargement dans un TStrings semble être le plus simple pour un petit volume de données
05/07/2006, 16h11
toctoc

Oui, le fichier est déjà chargé, mais ce qui coince c'est que je ne sais pas comment faire la boucle pour que le caractère ajoute automatiquement tout les deux lettres et que si la caractère qu'on veut ajouter existe il faut ajouter seulement les 2 lettres suivant ainsis de suite.
Ex: abcdefg.hiikl etc..
Résultat ab.cd.ef.g.hi.jk.l etc..

tu peux tester un truc dans ce genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
function Process(aString : String) : String;
var
  i : Integer;
begin
  // pour commencer on vire tous les points
  aString := StringReplace(aString, '.', '', [rfReplaceAll]);
  // ensuite on coupe deux à deux pour ajouter un point
  if Length(aString) > 1 then
    Result := Copy(aString, 1, 2);
  i := 3;
  while i <= Length(aString) do begin
    Result := Result + '.' + Copy(aString, i, 2);
    Inc(i, 2);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := Process(Edit1.Text);
end;

Salut

Tu peux faire quelque chose comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
var
  str: string;
  i: integer;
  cont: byte;
begin
  str := 'abcdefg.hiikl';
  i := 1;
  cont := 0;
  while i <= length(str) do
  begin
    if (str[i] <> '.') and (cont = 2) then
    begin
      cont := 0;
      insert('.', str, i);
    end
    else
      if str[i] = '.' then cont := 0
      else
        inc(cont);
    inc(i);
  end;
end;

A verifier ;)

A+

06/07/2006, 08h36
toctoc

Merci à tous