Discussion :

[toctoc]

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.

[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

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

[denokan]

tu peux tester un truc dans ce 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
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;

[cadetill]

Salut

Tu peux faire quelque chose comme ça

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

[toctoc]

Merci à tous