Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/regexp.sct

#"VERSION =   3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1�Height = 319
Width = 348
DoCreate = .T.
Caption = "Using Regular Expressions"
Name = "Frmsolution1"
C_solutions1.Top = 288
C_solutions1.Left = 192
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 288
Behindscenes1.Left = 8
Behindscenes1.TabIndex = 10
Behindscenes1.Name = "Behindscenes1"
Shape2.Name = "Shape2"
Label1.Caption = "Type or select a regular expression and click the Find button. The results will be shown in the listbox."
Label1.TabIndex = 2
Label1.Name = "Label1"
Label4.TabIndex = 1
Label4.Name = "Label4"
Cmdclose1.Top = 288
Cmdclose1.Left = 264
Cmdclose1.TabIndex = 11
Cmdclose1.Name = "Cmdclose1"
wPROCEDURE Error
LPARAMETERS nError, cMethod, nLine

thisform._regExp.clear()
thisform.lbxResults.Clear()
ENDPROC
�� ]i%����U2�������C�������C�����UNERRORCMETHODNLINETHISFORM_REGEXPCLEAR
LBXRESULTSError,��1�1l)listboxlistbox
lbxResultsFrmsolution1�FontSize = 8
ColumnCount = 2
ColumnWidths = "75"
RowSource = "thisform._regExp.matches"
Height = 122
ColumnLines = .F.
Left = 12
TabIndex = 9
Top = 156
Width = 324
Name = "lbxResults"

commandbutton
commandbutton	cmdSelectFrmsolution1yTop = 108
Left = 264
Height = 23
Width = 72
FontSize = 8
Caption = "Select File"
TabIndex = 6
Name = "cmdSelect"
jPROCEDURE Click
lcFile = GETFILE()
If !EMPTY(lcFile)
	Thisform.txtFile.Value = lcFile
Endif
ENDPROC
�� ���A%����U6T��C���%�C��
��/�T��������ULCFILETHISFORMTXTFILEVALUEClick,��1�1A1_)�
commandbutton
commandbuttonCommand2Frmsolution1Top = 72
Left = 264
Height = 23
Width = 72
FontSize = 8
Caption = "Find"
Default = .T.
TabIndex = 4
Name = "Command2"
7PROCEDURE Click
thisform._regExp.clear()
thisform.lbxResults.RowSourceType = 0

thisform._regExp.pattern = ALLTRIM(thisform.cbxRegExp.displayValue)
thisform._regExp.execute(FILETOSTR(LOCFILE(thisform.txtFile.Value)), .F.)

thisform.lbxResults.RowSourceType = 5
thisform.lbxResults.Requery()

ENDPROC
��� ��@`%-L<�U���C�����T�������T����C������ ��CCC��	�
���-�����T���������C�����UTHISFORM_REGEXPCLEAR
LBXRESULTS
ROWSOURCETYPEPATTERN	CBXREGEXPDISPLAYVALUEEXECUTETXTFILEVALUEREQUERYClick,��11�22,)�comboboxcombobox	cbxRegExpFrmsolution1_FontSize = 8
Height = 24
Left = 12
TabIndex = 3
Top = 72
Width = 240
Name = "cbxRegExp"
6PROCEDURE Init
this.addItem("Fox..o")
this.addItem("be{1,2}n")
this.addItem("th(at|eir)")
this.addItem("[a-zA-Z]*e")
this.addItem("[a-zA-Z]*e\b")
this.addItem("(\w{2,})\s\1")
this.addItem("(\n\*.*\n)|&" + "&.*\n")
this.addItem("(\s(\w{5})\s(\w{6,}))")
this.Value = this.List(this.listCount)
ENDPROC
�� ��U�%X|f�U��C�Fox..o������C�be{1,2}n������C�
th(at|eir)������C�
[a-zA-Z]*e������C�[a-zA-Z]*e\b������C�(\w{2,})\s\1����%��C�(\n\*.*\n)|&�&.*\n����%��C�(\s(\w{5})\s(\w{6,}))����T���C������UTHISADDITEMVALUELIST	LISTCOUNTInit,��1a�����QQ�1+)�textboxtextboxtxtFileFrmsolution1nFontSize = 8
Height = 23
Left = 12
ReadOnly = .T.
TabIndex = 5
Top = 108
Width = 240
Name = "txtFile"
;PROCEDURE Init
this.Value = Home() + "foxpro.h"
ENDPROC
�� ��k�%\pj�UT���C�Q�foxpro.h��UTHISVALUEInit,��1�10)�_regexp..\..\..\ffc\_regexp.vcxcustom_regExpFrmsolution1BTop = 288
Left = 228
Height = 17
Width = 24
Name = "_regExp"
labellabelLabel2Frmsolution1rFontSize = 8
Caption = "Position"
Height = 16
Left = 12
Top = 140
Width = 40
TabIndex = 7
Name = "Label2"
labellabelLabel3Frmsolution1�AutoSize = .T.
FontSize = 8
Caption = "Matching String"
Height = 16
Left = 96
Top = 140
Width = 76
TabIndex = 8
Name = "Label3"
_hyperlinklabel..\..\..\ffc\_hyperlink.vcxlabel_hyperlinklabel1Frmsolution1�Caption = "Tips"
Left = 48
MouseIcon = ..\..\..\ffc\graphics\h_point.cur
Top = 293
TabIndex = 12
lautotooltip = .F.
Name = "_hyperlinklabel1"
�PROCEDURE Init
#DEFINE TIPS_TOOLTIP_LOC	"Tips for using Regular Expressions"
LOCAL lcTarget
DO CASE
CASE !EMPTY(HOME(2)) AND FILE(HOME(2)+"Solution\FFC\regexp1.htm")
	lcTarget = HOME(2)+"Solution\FFC\regexp1.htm"
CASE FILE(HOME()+"Samples\Solution\FFC\regexp1.htm")
	lcTarget = HOME()+"Samples\Solution\FFC\regexp1.htm"
OTHERWISE
	RETURN
ENDCASE
THIS.ctarget=lcTarget
THIS.ToolTipText = TIPS_TOOLTIP_LOC

ENDPROC
�� ��lb%��
��U4���
H����;�CC��Q�
�%CC��Q�Solution\FFC\regexp1.htm0	��{�,T��C��Q�Solution\FFC\regexp1.htm��3�CC�Q� Samples\Solution\FFC\regexp1.htm0����1T��C�Q� Samples\Solution\FFC\regexp1.htm��2���B��T������2T����"Tips for using Regular Expressions��ULCTARGETTHISCTARGETTOOLTIPTEXTInit,��1r���1�AA!2�)�_hyperlinklabel..\..\..\ffc\_hyperlink.vcxlabel_hyperlinklabel2Frmsolution1kCaption = "Reference"
Left = 96
Top = 293
TabIndex = 13
lautotooltip = .F.
Name = "_hyperlinklabel2"
�PROCEDURE Init
#DEFINE REF_TOOLTIP_LOC	"Reference guide for using Regular Expressions"
LOCAL lcTarget
DO CASE
CASE !EMPTY(HOME(2)) AND FILE(HOME(2)+"Solution\FFC\regexp2.htm")
	lcTarget = HOME(2)+"Solution\FFC\regexp2.htm"
CASE FILE(HOME()+"Samples\Solution\FFC\regexp2.htm")
	lcTarget = HOME()+"Samples\Solution\FFC\regexp2.htm"
OTHERWISE
	RETURN
ENDCASE
THIS.ctarget=lcTarget
THIS.ToolTipText = REF_TOOLTIP_LOC

ENDPROC
�� ��%��
��U?���
H����;�CC��Q�
�%CC��Q�Solution\FFC\regexp2.htm0	��{�,T��C��Q�Solution\FFC\regexp2.htm��3�CC�Q� Samples\Solution\FFC\regexp2.htm0����1T��C�Q� Samples\Solution\FFC\regexp2.htm��2���B��T������=T����-Reference guide for using Regular Expressions��ULCTARGETTHISCTARGETTOOLTIPTEXTInit,��1r���1�AA�2�)�Arial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Arial, 0, 8, 5, 14, 11, 30, 3, 0
Arial, 0, 8, 5, 14, 11, 30, 3, 0
�Height = 319
Width = 348
DoCreate = .T.
Caption = "Using Regular Expressions"
Name = "Frmsolution1"
C_solutions1.Top = 288
C_solutions1.Left = 192
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 288
Behindscenes1.Left = 8
Behindscenes1.TabIndex = 10
Behindscenes1.Name = "Behindscenes1"
Shape2.Name = "Shape2"
Label1.Caption = "Type or select a regular expression and click the Find button. The results will be shown in the listbox."
Label1.TabIndex = 2
Label1.Name = "Label1"
Label4.TabIndex = 1
Label4.Name = "Label4"
Cmdclose1.Top = 288
Cmdclose1.Left = 264
Cmdclose1.TabIndex = 11
Cmdclose1.Name = "Cmdclose1"

HelpContextID = 1231627