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
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
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
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;
ca marche tres bien si je veut 1 en fin d'adresse IP
mais j'arrive pas a meme 10 par exemple
normalement j'aime pas ce bricolage
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;![]()
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