Discussion :

[belfort90]

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 :

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

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 :

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

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

[cedni]

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
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]);
}
}

[belfort90]

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

[ShaiLeTroll]

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 :

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

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 pouvait éclairer nos lanternes sur nos erreurs ? Cela serait sympa !
Idem, mettre un 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 !