Discussion :

[LE CHAKAL]

Salut,

Existe-t'il une fonction qui récupère dans un tableau les différentes phrases d'un texte (à la manière d'un explode en php).

Je dois en effet récupérer les différentes phrases d'un texte. Mon séparateur est le point .

Dois-je écrire ce code ou quelqu'un connait-il une fonction toute faite .

Je vous remercie.

[nouanda]

ben, j'avais trouve sur le site de michel bardou pleins de fontions utiles sur les chaines (que j'utilise souvent...). en particulier, celles qui servent a extraire des chaines
-a droite d'un separateur
-entre deux separateurs
-a gauche du separateur

c bien pratique, vraiment. Merci Michel, au passage (oups, les modos vont peut-etre pas apprecier...)

[Ctrl+F2]

...

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
procedure ExtrairePhrases2(RichEdit : TRichEdit );
var
    Texte, phrase, caractere: string;
    i, LongueurTexte: integer;
    separateurs: string;
 
begin
    phrase := '';
    Texte := RichEdit.Text;
    LongueurTexte := Length(Texte);
    separateurs :='!.?'; //Etablit la liste des séparateurs de phrases
 
    for i:=0 to LongueurTexte-1 do
    begin
        caractere := Texte[i];
        phrase := phrase + caractere;
        if Pos(caractere, separateurs) <> 0 then
        begin
            ShowMessage(Trim(phrase));
            phrase := '';
        end;
    end;
end;

[LE CHAKAL]

Merci Ctrl-F2 pour ton aide.

La fonction que tu me présente ici marche parfaitement à ceci prêt. Elle ne détexte pas la dernière phrase si celle si ne se termine pas par un délimiteur. Tu me diras c'est un peux normal.

Comment modifier la fonction pour détecter également une éventuelle dernière phrase qui se terminerait soit par un caractère quelconque.

Merci beaucoup de m'aider.

[LE CHAKAL]

Je te signale Monsieur Sébastien MERIC qu'il m'arrive de taper du code.
Lis un peu le code que j'ai proposé dans le forum (Sujet : Problème de pointeur) le mercredi 14 Aout 2002.

Si je demande de l'aide, c'est que je bute sur un os et que j'en ai vraiment besoin.


A bon entendeur.

[Ctrl+F2]

Voici une version améliorée qui complète la réponse de Sébastien et corrige une erreur d'index :

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
procedure ExtrairePhrases3(RichEdit : TRichEdit );
var
    Texte, phrase, caractere: string;
    i, LongueurTexte: integer;
    separateurs: string;
 
begin
    phrase := '';
    Texte := RichEdit.Text;
    LongueurTexte := Length(Texte);
    separateurs :='!.?'; //Etablit la liste des séparateurs de phrases
 
    for i:=1 to LongueurTexte do
    begin
        caractere := Texte[i];
        phrase := phrase + caractere;
        if Pos(caractere, separateurs) <> 0 then
        begin
            ShowMessage(Trim(phrase));
            phrase := '';
        end
        else if i=LongueurTexte then
            ShowMessage(Trim(phrase));
    end;
end;

[LE CHAKAL]

Merci beaucoup a vous tous : Ctrl+F2, Nouanda et Sébastien Méric pour m'avoir aidé à résoudre ce problème . C'est très sympa.

Je ne manquerai pas de vous renvoyer l'appareil si l'occasion s'en présentait.