Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/ffc/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/ffc/_regexp.vct


VERSION =   3.00_regexpClassLibrary^
AddObject^
CloneObject^
Comment^
ControlCount^
Controls^
Destroy^
NewObject^
Objects^
ParentClass^
Picture^
ReadExpression^
ReadMethod^
RemoveObject^
ResetToDefault^
SaveAsClass^
ShowWhatsThis^
WriteExpression^
WriteMethod^
PixelsClass1custom_regexp�pattern Contains the pattern (regular expression)
^matches[1,0] Array containing the results of the string test
*clear Clears all values
*execute Tests the pattern against the string
�� ����%F�f�U"T����*��T���-��UTHISPATTERNMATCHESF����������T��C�VBScript.RegExp�N��T�������T����
��T��	�a��T��C���
�����C���D�����T�
�-��
T����������#T��������������T�������������T��������T��-��T��-��
B�����UTCSTR
TLCASEMATTERSLOREGEXLOMATCH	LOMATCHESIPATTERNTHIS
IGNORECASEGLOBALEXECUTEMATCHESCOUNTTAMATCHINFO
FIRSTINDEXVALUEclear,��executej��1�2�2�1�R����1�A���17Ut)�PROCEDURE clear
this.pattern = "*"
this.matches = .f.
ENDPROC
PROCEDURE execute
LParameters tcStr, tlCaseMatters

Local loRegEx, loMatch, loMatches, i

loRegEx = CreateObject("VBScript.RegExp")
loRegEx.pattern = this.pattern
loRegEx.ignoreCase = !tlCaseMatters
loRegEx.global = .T.

loMatches = loRegEx.execute(tcStr)
Dimension this.matches[Max(loMatches.count,1),2]
taMatchInfo = .F.

i = 1
For Each loMatch In loMatches
	this.matches[i, 1] = loMatch.firstIndex + 1   && fox strings are not zero-based
	this.matches[i, 2] = loMatch.value
	i = i + 1
EndFor

loMatches = .F.
loRegEx = .F.

Return i -1
ENDPROC
8Height = 25
Width = 28
pattern = *
Name = "_regexp"
custom