Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
SubVersion, Tortoise SVN and Foxpro SCT , SCX
Message
De
28/08/2007 15:59:10
Dragan Nedeljkovich (En ligne)
Now officially retired
Zrenjanin, Serbia
 
 
À
28/08/2007 13:46:16
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows Server 2003
Network:
Windows 2003 Server
Database:
MS SQL Server
Divers
Thread ID:
01250974
Message ID:
01251000
Vues:
33
This message has been marked as the solution to the initial question of the thread.
>Hi guys,
>Have you ever try Subversion and Tortoise SVN on your Foxpro Project? Our Project is that the foxpro save SCX and SCT file in the randome case format , like Demo.SCX, demo.scx in which subversion recornize it as different file. In this case, Forms cannot be open due to memo corrupts perhaps because the SCX, and SCT does not match.
>
>Thank you in advance if you have any idea to this.

I wrote a bit of code to fix this... it's just a matter of running it when quitting Fox. It uses FileSystemObject. Put it in the root of your directory tree and just run it.
*[2007/06/16 19:04:05] dragan - this should end our problems with Tortoise upper/lowercase.
*-- can be set to be executed as a part of shutdown process.
Public oFso As  Scripting.FileSystemObject
oFso=Newobject('Scripting.FileSystemObject')
lcHome=Justpath(Justpath(Sys(16)))

oDir=oFso.GetFolder(lcHome)
doDir(oDir)
Release All


Procedure doDir(toDir)
Local loDir
If toDir.Name="."
	Return
Endif
For Each loDir In toDir.subfolders
	doDir(loDir)
Endfor

lcSvnDir=Addbs(toDir.Path)+".svn\text-base\"
If Directory(lcSvnDir)
	? toDir.path
	loSvnDir=oFso.GetFolder(lcSvnDir)
	For Each loFile In toDir.Files
		lcFile=loFile.Path
		lcFileShort=Justfname(lcFile)
		lcFullFile=Forcepath(lcFileShort+".svn-base", loSvnDir.Path)
		If File(lcFullFile)
			loSvnFile=oFso.Getfile(lcFullFile)
			lcNewName=Forcepath(JustStem(loSvnFile.name), Justpath(loFile.path))
			IF NOT lcNewName==lofile.path
				? lofile.name, "-->", JustStem(loSvnFile.name)
				oFso.MoveFile(lofile.Path, lcNewName)
			endif
		Endif
	Endfor
Endif

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform