Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP Source File Comparison Tools
Message
 
To
02/01/2003 09:53:26
General information
Forum:
Visual FoxPro
Category:
Third party products
Miscellaneous
Thread ID:
00737309
Message ID:
00737654
Views:
21
Hi Gary,

>What are VFP developers generally using for source code/SCX/VCX comparison to establish version differences (code additions/changes/deletions)?

I'm using Beyond Compare. It has a nice plugin called uConvert that calls an external application to convert any file to text before comparing it. I'm using the following VFP program to convert VFP specific files which lets me compare VFP files in Beyond Compare directly without having to maintain a separate VCA/SCA/MNA, etc. file.
LParameter tcSource, tcTarget

	Set Safety off

	*------------------------------------------------------------------
	* Determine type of source file
	*------------------------------------------------------------------
	Local lcType, lcFile, lcAction
	lcAction = ""
	DO Case
	Case InList( Upper(JustExt(m.tcSource)), "SCT", "SCX" )
		lcType = "K"
		lcFile = ForceExt(m.tcSource,"SCX")
	Case InList( Upper(JustExt(m.tcSource)), "LBT", "LBX" )
		lcType = "B"
		lcFile = ForceExt(m.tcSource,"LBX")
	Case InList( Upper(JustExt(m.tcSource)), "MNT", "MNX" )
		lcType = "M"
		lcFile = ForceExt(m.tcSource,"MNX")
	Case InList( Upper(JustExt(m.tcSource)), "SCT", "SCX" )
		lcType = "K"
		lcFile = ForceExt(m.tcSource,"SCX")
	Case InList( Upper(JustExt(m.tcSource)), "FRT", "FRX" )
		lcType = "R"
		lcFile = ForceExt(m.tcSource,"FRX")
	Case InList( Upper(JustExt(m.tcSource)), "VCT", "VCX" )
		lcType = "V"
		lcFile = ForceExt(m.tcSource,"VCX")
	Case InList( Upper(JustExt(m.tcSource)), "FPT", "DBF" )
		lcType = ""
		lcAction = "XML"
		lcFile = ForceExt(m.tcSource,"DBF")
	Otherwise 
		lcAction = "COPY"
		lcType = ""
	Endcase
	
	*------------------------------------------------------------------
	* Call either SCCText or just copy the file
	*------------------------------------------------------------------
	DO Case
	Case m.lcAction = "COPY"
		Copy File (m.tcSource) to (m.tcTarget)
	Case m.lcAction = "XML"
		USE (m.lcFile) Shared
		CursorToXML(Alias(),m.tcTarget,1,2+8+512+4096,0,"1")
	Otherwise
		DO SccText with m.lcFile, m.lcType, m.tcTarget, .T.
	Endcase
--
Christof
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform