CreateMemberdataOfPrgBasedClasscode

Description:

This program creates the memberdata (Methods and Properties) of your referenced program.PRG:ClassName.
Pass the Fullpath of your .PRG and the contained classname you want to receive the memberdata.
As displayname the program use the same capitalization like written in your code.

Return value

_MEMBERDATA = ;
+ [<VFPData>] + CHR(13) ;
+ [<memberdata name="..." type="..." display="..."/>] + CHR(13) ;
+ [</VFPData>]

Sample - How does it works:

For testing purposes you can create a program like this

* Create this to C:\Dev\myTestProgram.prg
DEFINE CLASSmyTestClassName as Custom lShowProgress = .F.
DIMENSION lShowProgress_COMATTRIB[5]
lShowProgress_COMATTRIB[1] = 0x40	&& Hidden
lShowProgress_COMATTRIB[2] = "Description for TLB"lShowProgress_COMATTRIB[3] = "lShowProgress"lShowProgress_COMATTRIB[4] = "Boolean"lShowProgress_COMATTRIB[5] = 0PROTECTEDnProtectedPropertynProtectedProperty = 1
HIDDEN cHiddenPropertycHiddenProperty = "You can't see me"lRegulareProperty = .T.
DIMENSION aArrayAsProperty[1,3]
PROCEDUREIniT()
PROCEDUREDestroy
HIDDEN PROCEDUREmHiddenMethod(tcPara1)
PROTECTEDFUNCTIONmProtectedMethodFUNCTIONmRegularMethod
ENDDEFINE 

Now just create the memberdata for CLASS myTestClassName

_cliptext = CreateVfpMemberdataOfPrgBasedClass("C:\Dev\myTestProgram.prg", "myTestClassName")

Receive result

	_MEMBERDATA = ;
+ [<VFPData>] + CHR(13) ; + [<memberdata name="lshowprogress" type="property" display="lShowProgress"/>] + CHR(13) ; + [<memberdata name="nprotectedproperty" type="property" display="nProtectedProperty"/>] + CHR(13) ; + [<memberdata name="chiddenproperty" type="property" display="cHiddenProperty"/>] + CHR(13) ; + [<memberdata name="lregulareproperty" type="property" display="lRegulareProperty"/>] + CHR(13) ; + [<memberdata name="aarrayasproperty" type="property" display="aArrayAsProperty"/>] + CHR(13) ; + [<memberdata name="init" type="method" display="IniT"/>] + CHR(13) ; + [<memberdata name="destroy" type="method" display="Destroy"/>] + CHR(13) ; + [<memberdata name="mhiddenmethod" type="method" display="mHiddenMethod"/>] + CHR(13) ; + [<memberdata name="mprotectedmethod" type="method" display="mProtectedMethod"/>] + CHR(13) ; + [<memberdata name="mregularmethod" type="method" display="mRegularMethod"/>] + CHR(13) ;
+ [</VFPData>]