View source for ScriptCore3.ExecRegExpr

 '''function ExecRegExpr(const ARegExpr, AInputStr: string): boolean'''
  ARegExpr: Regular Expression
  AInputStr: Input string
  Result: ''True'' if ''AInputString'' matches reg.exp. ''ARegExpr''

==Description==
Function checks if string ''AInputString'' matches regular expression ''ARegExpr''
Exception will '''not''' be raised if there are syntax errors in ''ARegExpr''.

For detailed information about Regular Expressions see [http://en.wikipedia.org/wiki/Regular_expression Regular_Expression on Wikipedia]

==Example==
Below example provides a script to test multiple {{link|ScriptCore3|ExecRegExpr}} calls.
===Script Code===
<syntaxhighlight lang="pascal">
type
  TRegTest = RECORD
    Reg: String;
	Str: TStringList;
  end;

var
  RegTest: array of TRegTest;
  i: integer;
  
procedure AddTest(RegExpr,Input: string);
var found: boolean; index,len: integer;
begin
  // maybe this regexpr is already there
  for i:=0 to GetArrayLength(RegTest)-1 do
  begin
    if RegTest[i].Reg = RegExpr then
	begin
	  found := TRUE;
	  index := i;
	  break;
	end;
  end;
  // add new TRegTest if not found
  if not found then
  begin
    len := GetArrayLength(RegTest);
	SetArrayLength(RegTest,len+1);
	index := GetArrayLength(RegTest)-1;
	RegTest[index].Str := File.CreateStringList;
	RegTest[index].Reg := RegExpr;
  end;
  // finally add string
  RegTest[index].Str.Append(Input);
end;

procedure FreeMem();
begin
  for i:=0 to GetArrayLength(RegTest)-1 do
    RegTest[i].Str.Free;
end;

procedure RunTests();
var i,j: integer;
begin
  WriteLn('-- ExecRegExpr Test Start --');
  WriteLn('');
  for i:=0 to GetArrayLength(RegTest)-1 do
  begin
    WriteLn(' '+RegTest[i].Reg);
	for j:=0 to RegTest[i].Str.Count-1 do
	  WriteLn('    '+iif(ExecRegExpr(RegTest[i].Reg,RegTest[i].Str[j]),'TRUE ','FALSE')+'    '+RegTest[i].Str[j]);
	WriteLn('');
  end;
  WriteLn('-- ExecRegExpr Test Stop --');
end;

begin
  AddTest('/buy (steyr|eagles|hk)','/buy steyr');
  AddTest('/buy (steyr|eagles|hk)','/buy hk');
  AddTest('/buy (steyr|eagles|hk)','/buy m79');
  
  AddTest('/login [A-Za-z0-9_]*[ \t][A-Za-z0-9_]*$','/login UserNamePassword');
  AddTest('/login [A-Za-z0-9_]*[ \t][A-Za-z0-9_]*$','/login UserName Password');
  AddTest('/login [A-Za-z0-9_]*[ \t][A-Za-z0-9_]*$','/login User Name Password haha');
  AddTest('/login [A-Za-z0-9_]*[ \t][A-Za-z0-9_]*$','/login User_Name01 MyP4sS');
  
  AddTest('/longword [A-Za-z0-9]{10,20}$','/longword 8letters');
  AddTest('/longword [A-Za-z0-9]{10,20}$','/longword 10lettersk');
  AddTest('/longword [A-Za-z0-9]{10,20}$','/longword 20LettersAreStillOk1');
  AddTest('/longword [A-Za-z0-9]{10,20}$','/longword 21LettersAreAlreadyNot');
  
  RunTests();
  
  FreeMem();
end.
</syntaxhighlight>
===Console output===
<pre>
13-08-25 14:54:25    Console Log Started
13-08-25 14:54:26 Welcome to Soldat 1.6.5
13-08-25 14:54:26  [*] Preparing scripts to be launched
13-08-25 14:54:26  [*] [Testing] Compilation started
13-08-25 14:54:26  [*] [Testing] Compilation complete
13-08-25 14:54:26  [*] [Testing] Loading bytecode
13-08-25 14:54:26  [*] [Testing] Bytecode loaded
13-08-25 14:54:26  [*] Done
13-08-25 14:54:26 -- ExecRegExpr Test Start --
13-08-25 14:54:26  /buy (steyr|eagles|hk)
13-08-25 14:54:26     TRUE     /buy steyr
13-08-25 14:54:26     TRUE     /buy hk
13-08-25 14:54:26     FALSE    /buy m79
13-08-25 14:54:26  /login [A-Za-z0-9_]*[ \t][A-Za-z0-9_]*$
13-08-25 14:54:26     FALSE    /login UserNamePassword
13-08-25 14:54:26     TRUE     /login UserName Password
13-08-25 14:54:26     FALSE    /login User Name Password haha
13-08-25 14:54:26     TRUE     /login User_Name01 MyP4sS
13-08-25 14:54:26  /longword [A-Za-z0-9]{10,20}$
13-08-25 14:54:26     FALSE    /longword 8letters
13-08-25 14:54:26     TRUE     /longword 10lettersk
13-08-25 14:54:26     TRUE     /longword 20LettersAreStillOk1
13-08-25 14:54:26     FALSE    /longword 21LettersAreAlreadyNot
13-08-25 14:54:26 -- ExecRegExpr Test Stop --
13-08-25 14:54:26 ctf_Ash by chakapoko maker
13-08-25 14:54:26  ASE Port: 23196
13-08-25 14:54:26  Connection for file server started. Port: 23083
13-08-25 14:54:26 Registering server @ ASE Master Server
13-08-25 14:54:26 Registering server @ 67.23.118.179
</pre>

[[Category:Functions]]