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.
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.
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
Donnez un poisson à un homme et il mangera pendant un jour... Apprenez-lui à pêcher et il s'assiéra dans une barque et boira de la bière toute la journée
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 : 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;
Donnez un poisson à un homme et il mangera pendant un jour... Apprenez-lui à pêcher et il s'assiéra dans une barque et boira de la bière toute la journée
Salut
Tu peux faire quelque chose comme ça
A verifier
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+
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager