search regex [solved]

[rnervi]

I need to find this case in a sheet:
is good if inside two slash there are 3 chars  e.g. "AA/ABC/222"

so I built a regex:

Code: Pascal  [Select][+][-]

1. MySearchParams.SearchText := '~\/[a-z]{3}\/~gmi';
2. MySearchParams.Options := [soEntireDocument, soCompareEntireCell, soRegularExpr];
3. MySearchParams.Within := swWorkbook;

that in testfield (regex) it works

but seems ignored in the

 IF FindFirst(MySearchParams, foundWorksheet, foundRow, foundCol) THEN

(no match)

any ideas ?
ty

[wp]

FPSpreadsheet uses the regex coming with FPC (unit RegExpr), and that does not find it:

Code: Pascal  [Select][+][-]

1. uses
2.   RegExpr;
3.  
4.   procedure RunRegEx;
5.   var
6.     re: TRegExpr;
7.   begin
8.     re := TRegExpr.Create('~\/[a-z]{3}\/~gmi');
9.     if re.Exec('AA/ABC/222') then
10.     begin
11.       WriteLn(re.Match[1]);
12.       while re.ExecNext do
13.       begin
14.         WriteLn(re.Match[1]);
15.       end;
16.     end else
17.       WriteLn('-- not found --');
18.     re.Free;
19.   end;
20.  
21. begin
22.   RunRegEx;
23.   ReadLn;
24. end.

[Zvoni]

Code: Pascal  [Select][+][-]

1. program Project1;
2. {$mode objfpc}{$H+}
3. Uses Sysutils, Classes, regexpr;
4. Var
5.   r:TRegExpr;
6.   b:Boolean;
7.  
8. begin
9.   r:=TRegexpr.Create;
10.   r.Expression:='\/[a-z]{3}\/';
11.   r.ModifierG:=True;
12.   r.ModifierI:=True;
13.   r.ModifierM:=True;
14.   r.InputString:='AA/ABC/222';
15.   b:=r.Exec;
16.   IF b Then Writeln('Found') Else Writeln('not found');
17.   Readln;
18. end.

Writes "Found"

Conclusion: Leave out the Tildes, and set the Modifiers as shown

EDIT:
I could circumvent the "i" and "m" Modifiers, but haven't found how to avoid the "g"-Modifier

Code: Pascal  [Select][+][-]

1. program Project1;
2. {$mode objfpc}{$H+}
3. Uses Sysutils, Classes, regexpr;
4. Var
5.   r:TRegExpr;
6.   b:Boolean;
7.  
8. begin
9.   r:=TRegexpr.Create;
10.   r.Expression:='(?i)(?m)\/[a-z]{3}\/';
11.   r.ModifierG:=True;
12.   //r.ModifierI:=True;
13.   //r.ModifierM:=True;
14.   r.InputString:='AA/ABC/222';
15.   b:=r.Exec;
16.   IF b Then Writeln('Found') Else Writeln('not found');
17.   Readln;
18. end.

Returns "Found"

EDIT2: re "g"-Modifier
Seems there is no "Pattern"-Modifier for "g".
It's just the difference finding the first Match, or going through a loop finding all

OTOH, i wouldn't know whats sense it makes to find all occurences IN ONE GO in a spreadsheet.
It's always been "stop after first match", and "continue search" if it's not the match you are looking for

[Thaddy]

I used the simpler /[A-Za-z]{3}\/
Dunno if that is enough

[Zvoni]

I used the simpler /[A-Za-z]{3}\/
Dunno if that is enough

You'd still need the modifier for Multiline
my sample above works with TRegExpr

[rnervi]

ty to all will try and let know results

@Thaddy  : works like a charm