Discussion :

[promenneur77]

bonjour,
je cherche une fonction permetant de remplacer les 2 dernier caractere de la 2eme ligne dans fichier.
ex:

fichier:

@ echo
10.253.214.16
pause


je voudrais mettre 1 a la place de 16 pour avoir :

@ echo
10.253.214.1
pause

merci d'avance

[delphidebutant]

2 solutions :

len := Length(chaine);

chaine[len-1] := 'a';
chaine[len-2] := 'b';

ou alors

souschaine := Copy(Chaine, debut, fin) avec des arguments évidents.

puis chaine := souschaine1 + souschaine2;

sinon, ya ça :
http://delphi.developpez.com/faq/?page=langage

[edam]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure remplace(nom:string);
var  st:TStrings;
begin
 
     if not FileExists(nom) then exit;
     st:=TStringList.Create;
     try
       st.LoadFromFile(nom);
       st[1]:=copy(st[1],1,length(st[1])-1);
       st.SaveToFile(nom);
     finally
       st.Free;
     end;
end;

[promenneur77]

ca marche tres bien si je veut 1 en fin d'adresse IP
mais j'arrive pas a meme 10 par exemple

[edam]

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
procedure remplace(nom:string);
var  st:TStrings;
begin
 
     if not FileExists(nom) then exit;
     st:=TStringList.Create;
     try
       st.LoadFromFile(nom);
       st[1]:=copy(st[1],1,length(st[1])-1)+'0';
// affect ce que tu veux, st[1] est la ligne 2,
       st.SaveToFile(nom);
     finally
       st.Free;
     end;
end;

normalement j'aime pas ce bricolage