Discussion :

[Beauserge]

Bonjour

J'ai un RichEdit qui contient plusieurs lignes de texte dont certaines commencent par un jour de la semaine (lundi, mardi, etc ...)
Je cherche une procédure pour supprimer une ligne uniquement si un jour de la semaine est le 1er mot de cette ligne

J'ai dans mon code ci dessous une procédure qui fonctionne uniquement si le jour est dimanche (en prenant exemple avec la lettre d) mais j'aimerai l'adapter avec le nom des jours de la semaine complet (de lundi à dimanche) et je ne trouves pas .....


A vous lire
Cordialement
Beauserge

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 TForm1.Button1Click(Sender: TObject);
var X: Integer;
ligne:Integer;
begin   
// ligne sur laquelle se trouve le curseur
Ligne:= SendMessage(richedit1.Handle, EM_LINEFROMCHAR, Richedit1.SelStart, 0);
 
  for X:= Richedit1.Lines.Count-1 downto 0 do
      begin
         if LowerCase(Richedit1.lines[X][1])='d' then  // si jour de la semaine commence par lettre d au début de la ligne
             begin
               Richedit1.Lines.Delete(ligne);
             end;
      end;
end;

[paulfr]

Bonjour

Extraire le premier mot de la ligne avec Pos pour trouver le premier espace ' ', puis Copy pour obtenir le mot
et vérifier que c'est bien un jour de semaine.

PL

[retwas]

Tu peux utiliser les regex, le pipe "|" permet de matcher plusieurs mots :

Code :

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

/^(lundi|mardi|mercredi)

[Beauserge]

Bonsoir

Peux tu développer davantage Paulfr car ça m'aide pas beaucoup ....

Quant au Regex Retwas, je sais pas ce que c'est .

A+
Beauserge

[Andnotor]

Code :

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

1
2
3
4
uses StrUtils;
 
if AnsiStartsText('dimanche', Richedit1.lines[X]) then
  ...

[SergioMaster]

Bonjour,

Quant au Regex Retwas, je sais pas ce que c'est .

les expressions régulières, elles pourraient "presque" faire le tout en une passe (contrôle et suppression) grâce au Regex.Replace
[Edit]
test rapide, mais qui met à blanc les lignes contenant un jour en début de ligne

Code :

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

1
2
3
4
5
6
7
8
 
uses ... System.RegularEpressions
...
var ARegEx: TRegEx; // je crée l'expression avant mais la syntaxe TRegEx.Replace(chaine,expression,remplacement,options) est possible
begin
 ARegEx:=TregEx.Create('^(lundi|mardi|mercredi|jeudi|vendredi|samedi|dimanche).*$',[roIgnoreCase,roMultiline,ronotEmpty]);
 RichEdit1.Text:=ARegEx.Replace(RichEdit1.Text,''); // 
end;

Seul hic, avec Replace je ne sais pas pas supprimer une ligne vide

donc voilà comment je m'en sort

Code :

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

1
2
3
4
5
6
7
procedure TForm8.Button2Click(Sender: TObject);
var x  : integer;
begin
 for x:=0 to pred(richedit1.Lines.count) do
   if TRegEx.isMatch(Richedit1.Lines[x],'^(lundi|mardi|mercredi|jeudi|vendredi|samedi|dimanche).*$') then
       RichEdit1.Lines.Delete(x);
end;

[\Edit]

pour la réponse de Paul, à mon avis le copy n'est même pas nécessaire

il faut changer la ligne 10 du code fourni en

Code :

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

1
2
3
4
         if   pos(LowerCase(Richedit1.lines[X],'dimanche')=1
         OR pos(LowerCase(Richedit1.lines[X],'lundi')=1
         .....     
         then  // si jour de la semaine commence la phrase

et le AnsiStartsText d'AndNotOr est beaucoup plus élégant que le pos

ceci écrit que se passerai t-il si le jour est en caractère gras ou autre mise en forme ? je n'utilise que rarement Richedit et ne sait donc pas exactement ce qui est contenu dans une 'lines' de ce dernier quand il y a des mises en forme
[edit]
j'ai profité de mon test avec les expressions régulières pour vérifier, à priori la mise en forme (j'ai testé uniquement le gras) n'est pas prise en compte dans cette restitution

[Beauserge]

Bonjour Andnotor et SergioMaster

J'ai essayé les expressions régulières SergioMaster mais dans le uses ... "System.RegularEpressions" ne passe pas (le compilateur me renvoie l'erreur fichier .dcu System.RegularEpressions introuvable !)

Code :

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

uses ... System.RegularEpressions

J'ai donc testé avec la méthode de Andnotor qui fonctionne
Voici un bout de mon code - Par contre y'a t'il moyen de simplifier mon code pour éviter la répétition des RichEdit1.lines.delete (x) après chaque if et de réaliser (l'opération après suppression d'une ligne) si une des conditions est remplie ?

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
var
quantite: integer;
    ...
       if AnsiStartsText('dimanche', Richedit1.lines[x])then
           RichEdit1.Lines.Delete(x);
 
         if AnsiStartsText('lundi', Richedit1.lines[x])then
           RichEdit1.Lines.Delete(x);
 
         if AnsiStartsText('mardi', Richedit1.lines[x])then
           RichEdit1.Lines.Delete(x);
 
         if AnsiStartsText('mercredi', Richedit1.lines[x])then
           RichEdit1.Lines.Delete(x);
 
          Quantite:=StrToInt(Editquantite.text);  // opération après suppression d'une ligne
          Editquantite.text:=IntToStr(Quantite-1);   // suite opération
....

A vous lire
Cordialement

Beauserge

[SergioMaster]

J'ai essayé les expressions régulières SergioMaster mais dans le uses ... "System.RegularEpressions" ne passe pas

c'est le problème de ne pas indiquer la version de Delphi utilisé à chaque nouvelle question. Cela fonctionne parfaitement avec des versions qui ont cette unité

Voici un bout de mon code - Par contre y'a t'il moyen de simplifier mon code pour éviter la répétition des RichEdit1.lines.delete (x) après chaque if et de réaliser (l'opération après suppression d'une ligne) si une des conditions est remplie ?

AnsiStartstext renvoi un booleen donc il suffit de faire des OR

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
       if   AnsiStartsText('dimanche', Richedit1.lines[x])
       OR  AnsiStartsText('lundi', Richedit1.lines[x])
       OR AnsiStartsText('mardi', Richedit1.lines[x])
       OR AnsiStartsText('mercredi', Richedit1.lines[x])
       OR ....
       then begin 
          RichEdit1.Lines.Delete(x);
          ...
       else begin
         ....
       end;

A vous lire
Cordialement

Beauserge[/QUOTE]

[Beauserge]

c'est vrai excuse moi SergioMaster d'avoir oublié de préciser que je travaille avec Delphi 7 Edition personnel

bien noté pour le OR (mais je n'arrive pas à compiler mon code) - 2 erreurs au niveau des end que je ne comprends pas ! (voir image écran)




Beauserge

[popo]

l'instruction "or if" n'existe pas.
SergioMaster t'a pourtant donné la syntaxe !

[Beauserge]

Autant pour moi Popo et merci !!! J'ai oublié de mettre mes lunettes :-)
C'est impec à présent

Merci beaucoup à fortiori à SergioMaster ainsi que Andnotor pour votre aide

A+
Beauserge