MyChat Scripts: PosEx, searching a substring in a string with offsett

The function for searching a substring in a string with offset.

Syntax

function PosEx(const sSubSt, sOriginal: string; iOffset: cardinal): integer;

Parameters and return values

Parameter	Type	Value
sSubSt	string	what string to search for;
sOriginal	string	source string where the searching performs;
iOffset	integer	offset from which the searching starts; must be >=1.

Function result

The index of the found substring. If substring is not found or the offset is less or equal to zero, a zero returns. The symbol numeration in the source string starts with 1.

Example

const
ORIGINAL = 'Head high, protest line,' + #13#10 +
'Freedom scribbled on your sign,' + #13#10 +
'Headline New York Times,' + #13#10 +
'Standing on the edge of a revolution.' + #13#10 +

'Hey! Hey! Just obey,' + #13#10 +
'Your secrets safe with the NSA,' + #13#10 +
'In God we trust or the CIA?' + #13#10 +
'Standing on the edge of a revolution.';

FIND = 'revolution';
var
x, iOffset, iCount: integer;
begin
iCount := 0;
iOffset := 1;

mLogScript(ORIGINAL, '');
mLogScript('Finding a word "' + FIND + '"...', '');

repeat
x := PosEx(FIND, ORIGINAL, iOffset);

if x <> 0 then begin
inc(iCount);
iOffset := x + 1;
end;
until x = 0;

mLogScript('Total entries: ' + IntToStr(iCount), '');
end.

Script work result

[11:50:22] (Log "PosEx"): Head high, protest line,

Freedom scribbled on your sign,

Headline New York Times,

Standing on the edge of a revolution.

Hey! Hey! Just obey,

Your secrets safe with the NSA,

In God we trust or the CIA?

Standing on the edge of a revolution.

[11:50:22] (Log "PosEx"): Finding a word "revolution"...

[11:50:22] (Log "PosEx"): Total entries: 2

[11:50:22] (Run "PosEx"): Script operation time: 4 ms

[11:50:22] (Run "PosEx"): Script done successfully.

MyChat Help