Remplacer un texte dans memo

Bonjour,

ce que je voudrais c'est supprimer le texte entre deux limiteurs, et remplacer par un autre texte
par exemple
si j'ai :

Code:

---

1 2 3 4 5 6 7 8 9

int a,b,c; char char1,char2 ; ShowMessage("Hello wordl");   //je dois y avoir int d,e,f,g; char char1,char2 ; ShowMessage("Hello wordl");

---

J'ai fait comme suit

Code:

---

1 2 3 4 5 6 7

int m = Pos("int", memo->Lines->Text); int n = Pos(';', memo->Lines->Text); int br = memo->Lines->Count ; if((m>0)&&(n>0)&&(m<n))   memo->Lines->Text = LeftStr(memo, m-1)+' d,e,f,g' + RightStr(memo, br - n)

---

mais sa m'a supprimer tout le texte !

Quelqu'un a une idée sur comment faire...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

void __fastcall TForm1::FormCreate(TObject *Sender) { Memo1->Clear(); Memo1->Lines->Add("1231"); Memo1->Lines->Add("1232"); Memo1->Lines->Add("1233"); Memo1->Lines->Add("avant1intapres1"); Memo1->Lines->Add("4561"); Memo1->Lines->Add("4562"); Memo1->Lines->Add("avant2;apres2"); Memo1->Lines->Add("789"); Memo1->Lines->Add("101112"); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString Temp1 ; int i = 0 ; int m = -1 ; int n = -1 ; TStringList *List = new TStringList();   for ( i =0 ; i < Memo1->Lines->Count; i++ ) if ( AnsiPos("int", Memo1->Lines->Strings[i] ) && m == -1) m = i ;   if ( m > 0 ) { for ( i =m ; i < Memo1->Lines->Count; i++ ) if ( AnsiPos(";", Memo1->Lines->Strings[i] ) && n == -1) n = i ;   // lignes avant 1ere condtion for ( i = 0 ; i < m ; i++ ) List->Add( Memo1->Lines->Strings[i]); // partie gauche de la ligne où on trouve la 1ere condition List->Add( Memo1->Lines->Strings[m].SubString( 0 , Memo1->Lines->Strings[m].Pos("int")-1 ) ); // partie droite de la ligne où on trouve la seconde condition List->Add( Memo1->Lines->Strings[n].SubString( Memo1->Lines->Strings[n].Pos(";")+1 , Memo1->Lines->Strings[n].Length() ) ); // lignes apres la seconde condition for ( i = n+1 ; i < Memo1->Lines->Count ; i++ ) List->Add( Memo1->Lines->Strings[i]);     Memo1->Clear();   for ( int j = 0 ; j < List->Count ; j++ ) Memo1->Lines->Add(List->Strings[j]); } }

---

Je vous remercie pour votre réponse !

Sinon on peut juste supprimer ce qui est entre les limiteurs mais je ne vois pas comment le remplacer par un autre text :cry:

StringReplace
StuffString avec #include <StrUtils.hpp> !

Si on peut supprimer, on peut aussi concaténer
SubString(1, Pos - 1) + MaChaineEnPlus + SubString(Pos + 1, MaxInt);

En C++Builder, String[1] c'est le 1er caractère, [0] est corrigé automatiquement en [1] mais il ne faut pas l'oublier,
Idem SubString comme à 1 et corrige le 0

Code:

---

1 2 3 4 5 6 7 8 9

String t = memo->Lines->Text; // Text est une opération lente, il préférable de la stocker String st = "int"; int m = Pos(st, t); int n = Pos(';', t); int br = t.Length() ; // Count c'est en nombre de ligne par en nombre de caractère if((m>0)&&(n>0)&&(m<n)) //memo->Lines->Text = LeftStr(t, m -1 + st.Length())+" d,e,f,g" + RightStr(t, br - n + 1); memo->Lines->Text = StuffString(t, m + st.Length(), n - m - st.Length(), " d,e,f,g");

---

EDIT :
Est-ce que le membre qui colle des :moinsser: pouvait éclairer nos lanternes sur nos erreurs ? Cela serait sympa !
Idem, mettre un :plusser: sur une question d'un membre ne me semble pas pertinent !
Le système de vote permet d'identifier la réponse utile ou alors qualifie une contribution !