Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Get all procedure names in a project
Message
 
 
To
06/01/2009 17:01:01
James Blackburn
Qualty Design Systems, Inc.
Kuna, Idaho, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01371489
Message ID:
01371517
Views:
16
Thanks a lot.

>>>How about this
>>>
>>>LOCAL laproclist[1],lavcxlist[1], lnRes, lnx
>>>aaa= _vfp.ActiveProject
>>>	
>>>FOR lnx = 1 TO aaa.Files.Count 
>>>	dd=aaa.Files.Item[lnx]
>>>	DO CASE
>>>	CASE dd.type = "V"
>>>		lnRes = AVCXCLASSES(lavcxlist,JUSTFNAME(dd.name))
>>>		*// Process here 
>                  *// lavcxlist[xxx,1] is the class name plus method ie myclass.mymethod.
>                  *// lavcxlist[xxx,2]  is the line number the class.method starts. 
>                  *// you can use  EDITSOURCE to go directly to the code. 
>                  EDITSOURCE("myprgname.prg",lavcxlist[xxx,2],GETWORDNUM(lavcxlist[xxx,1],2,"."))
>>
>>                                        *Yes, I was thinking along these lines, but we need to extract the methods' names here... 
>>
>>>	CASE dd.type = "P"		
>>>		lnRes = APROCINFO(laproclist,JUSTFNAME(dd.name))
>>>		*// Process here 
>>>	OTHERWISE
>>>
>>>	ENDCASE
>>>NEXT 
>>>
>>>
>>>
>>>>>>We had, well, let's just say, a questionable procedure name popup on a client's PC as part of an error message. We now need a way to find all the procedure/function names in our system and review them. Any reasonably easy way to do that?
>>>>>
>>>>>Take a look at APROCINFO function to see if it helps you
>>>>
>>>>That was cool, but I need to traverse the entire project and files.
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform