�ӱ���ij���ֶ��ж��Ƿ����ijЩ������ַ�����������£�

�и�����TaskDeploy(�������)�������ֶ�Participants�Ը�ʽ �û���,�û��� �������£�

admin,��,samlin
��,samlin,test
samlin,test,��
samlin,admin
samlin,test
samlin,test

���ˣ�������Ҫ������ָ�ɸ� 'samlin'�û��������¼��ô�죿

�������뵽�����������ʽ����Sql�ṩ�Ĺ��������ٰ�����һ�� like �Ӽ���ͨ�������Ȼ�����㲻���ҵ�Ҫ��ġ�

���Ǵ������Ѽ���һЩ���ϣ�������һ�¡�

���������һ���Զ��庯�����û����Ե�����������ж�ָ�����ַ����Ƿ�����������ʽ�Ĺ���.

CREATE FUNCTION dbo.find_regular_expression
(
@source varchar(5000),   --��Ҫƥ���Դ�ַ���
@regexp varchar(1000),  --�������ʽ
@ignorecase bit = 0  --�Ƿ����ִ�Сд��Ĭ��Ϊfalse
)
RETURNS bit  --���ؽ��0-false��1-true
AS
BEGIN
--0���ɹ�����������֣�ʧ�ܣ������� OLE �Զ������󷵻ص� HRESULT ������ֵ��
DECLARE @hr integer 
--���ڱ��淵�صĶ������ƣ��Ա�֮��Ըö�����в���
DECLARE @objRegExp integer   DECLARE @objMatches integer
--������
DECLARE @results bit

/*
���� OLE ����ʵ��,ֻ�� sysadmin �̶���������ɫ�ij�Ա����ִ�� sp_OACreate,
��ȷ����������VBScript.RegExp���
*/
EXEC @hr = sp_OACreate 'VBScript.RegExp', @objRegExp OUTPUT
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
/*
���������ֱ��������½�������������ԡ�������'VBScript.RegExp'�г��õ����Ծ�����
Dim regEx,Match,Matches         '����������
Set regEx = New RegExp         '����һ�����ʽ��
regEx.Pattern= patrn         '����ģʽ��
regEx.IgnoreCase = True         '�����Ƿ����ִ�Сд��
regEx.Global=True                             '����ȫ�ֿ����ԡ�
set Matches=regEx.Execute(string)             '�ظ�ƥ�伯��
RegExpTest = regEx.Execute(strng)       'ִ��������
for each match in matches                     '�ظ�ƥ�伯��
RetStr=RetStr &"Match found at position "
RetStr=RetStr&Match.FirstIndex&".Match Value is '"
RetStr=RetStr&Match.Value&"'."&vbCRLF Next
RegExpTest=RetStr
*/
EXEC @hr = sp_OASetProperty @objRegExp, 'Pattern', @regexp
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
EXEC @hr = sp_OASetProperty @objRegExp, 'Global', false
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
EXEC @hr = sp_OASetProperty @objRegExp, 'IgnoreCase', @ignorecase
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END 
--���ö��󷽷�
EXEC @hr = sp_OAMethod @objRegExp, 'Test', @results OUTPUT, @source
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
--�ͷ��Ѵ����� OLE ����
EXEC @hr = sp_OADestroy @objRegExp
IF @hr <> 0 BEGIN
SET @results = 0
RETURN @results
END
RETURN @results
END