supprimer des mots d'un taille définite dans un memo

Version imprimable

06/05/2009, 16h13
farid0031

supprimer des mots d'un taille définite dans un memo

Salut à tous, on a un memo qui contient un texte (plusieurs lignes), je veux la suppression des mots qui ont une taille donnée par l'utilisateur.
Exemple:
"Pour toutes les malformations congénitables, problèmes respiratoires, insuffisances cardiaques ou ambiguité génitales,tous les parents de nouveaux-nés atteints par ces pathologie étaient obligés de s'adresser à ces cliniques privées, où les tarifs ne sont pas à la portée de toutes les familles."

taille=3 donc on aura : Pour toutes malformations congénitables, problèmes respiratoires, insuffisances cardiaques ou ambiguité génitales,tous parents de nouveaux-nés atteints pathologie étaient obligés de s'adresser à cliniques privées, où tarifs ne sont à la portée de toutes familles.

Merci bien
06/05/2009, 16h31
dz_robotix
salut,
le plus simple c'est de parcourir ton fichier (ou ta source de donnée), d'ouvrir un autre pour écrire le nouveau texte; et pour chaque mot que tu lis du premier tu vérifies sa taille si c'est superieur à 3 alors tu l'écris sur le 2° ex:
Code:

1 2 3 4 5 6 7 8 9 //lecture de ton texte mot par mot et mettre chaque tocken dans une chaine 'mot' .... if(mot.Length()>3){fprintf(fichier_out,mot);)} .....
06/05/2009, 16h51
Crayon
Sérieusement farid0031, c'est ton quatrième messages sur comment faire pour calculer la grandeur d'une String.

Il y a eu:
SVP, va faire un tour dans les tutoriels et dans la FAQ car tes questions son souvent très simple résoudre.

merci a tousse:yaisse2:, j'ai trouver la solution voila le code:

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
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i=1;
static int line=0; int k=0;int log_mot;
AnsiString chaine,nam;
int j; int taille=StrToInt(Form1->Edit1->Text);
if(line < Memo1->Lines->Count)
                             {
chaine=Memo1->Lines->Strings[line];
while(k!=chaine.Length()){
while(chaine[i]==' ') i++;
 j=i;
while(chaine[j]!=' ') j++;
  if(chaine[j-1]==',') {log_mot=(j-i)-1;nam=Memo1->Lines->Strings[line].SubString(i,log_mot+2);}
    else {log_mot=j-i;nam=Memo1->Lines->Strings[line].SubString(i,log_mot+1);}
 if(log_mot==taille){
 
int position=Memo1->Lines->Text.Pos(nam);//indique l'index de chaine
if (position!=0)
  {
 Memo1->SetFocus();
 Memo1->SelStart=position-1;
 Memo1->SelLength=nam.Length();
 Memo1->ClearSelection();
  }
         }
else {i=j+1;k=k+nam.Length();}
chaine=Memo1->Lines->Strings[line];
 
                    }
line++;
Button1Click(Sender);
 
 
}
 
else {ShowMessage("l'operation est terminer");
 line=0;Form1->Edit1->Clear(); }
}