Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Why VCX uniqueid not unique
Message
From
28/11/2003 12:28:33
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
28/11/2003 11:56:32
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00854238
Message ID:
00854249
Views:
19
>Hi All,
>
>I'm trying to compare two VCX files to see why there are certain changes in functionality between two versions of an application. I figured I would relate on uniqueid and browse the differences in properties and methods. Only to find that the UniqueID field is in no way unique. Does anyone know why this is and, more importantly, how I can do an accurate comparison?
>
>As always, thanks in advance for any assistance.
>
>Aloha,
>
>James

James,
Get programmatic versions of them using scctext.prg and compare with something like windiff, araxis merge etc. I use slightly modified version of below code (matching my environment for ease):
Local lcExtension, lcType, lcFileSet1,lcFileSet2

lcExtension = InputBox('File type','Select','SCX',10000,'SCX')
lcDir1 = GetDir()
lcDir2 = GetDir()
lcSub      = InputBox('Subfolder','Select','forms',10000,'forms')
DO case
	Case Upper(lcExtension) = 'SCX'
		lcType = 'K'
	Case Upper(lcExtension) = 'VCX'
		lcType = 'V'
	Case Upper(lcExtension) = 'LBX'
		lcType = 'B'
	Case Upper(lcExtension) = 'MNX'
		lcType = 'M'
	Case Upper(lcExtension) = 'FRX'
		lcType = 'R'
	Case Upper(lcExtension) = 'DBC'
		lcType = 'd'
EndCase
lcSkeleton = '*.'+lcExtension
lcExt      = 'SCC'
lcTarg1    = 'c:\Check1'
lcTarg2    = 'c:\Check2'
Erase (Addbs(lcTarg1)+'*.*')
Erase (Addbs(lcTarg2)+'*.*')

CreateDirectories(lcDir1,lcSub)
CreateDirectories(lcDir2,lcSub)
CreateDirectories(lcTarg1,lcSub)
CreateDirectories(lcTarg2,lcSub)

GetText(lcDir1, lcTarg1, lcSub, lcSkeleton, lcExt, lcType)
GetText(lcDir2, lcTarg2, lcSub, lcSkeleton, lcExt, lcType)


FUNCTION CreateDirectories
LPARAMETERS tcSource, tcSub
tcSource = ADDBS(tcSource)
If !Directory(tcSource)
	Md (tcSource)
	MD (tcSource+tcSub)
ELSE
	IF !DIRECTORY(tcSource+tcSub)	
		MD (tcSource+tcSub)
	endif
Endif


Function GetText
Lparameters tcSource, tcTarget, tcSub, tcSkeleton, tcExt, tcType
LOCAL ix, lnFiles, lcInFile, lcOutFile
LOCAL ARRAY arrFiles[1]
tcSource = ADDBS(tcSource)+ADDBS(tcSub)
tcTarget = ADDBS(tcTarget)+ADDBS(tcSub)
lnFiles = Adir(arrFiles, tcSource + tcSkeleton)
For ix=1 To lnFiles
	lcInFile  = tcSource+arrFiles[ix,1]
	lcOutFile = Forceext(tcTarget+arrFiles[ix,1], tcExt)
	Do (Home()+'scctext.prg') With lcInFile, tcType, lcOutFile, .T.
Endfor
For example to compare vcx'es in 2 projects I enter VCX as extension and Classes as subfolder and it creates text versions in (all projects have same base directory skeleton. ie: c:\myProj1\classes c:\myProj2\classes exist in both):

c:\check1\classes
c:\check2\classes

Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Reply
Map
View

Click here to load this message in the networking platform