Changeset: 132 - Agregado script para normalización de nombres de archivo en modo batch

Convert_VFP9_BIN_2_PRG.vbs

@@ -124,10 +124,10 @@ Private Sub evaluateFile( tcFile )
 				cFlagGenerateLog	= "'1'"
 			End If
 			If GetBit(nDebug,2) Then
-				cFlagDontShowErrMsg	= "'1'"
+				cFlagJustShowCall	= "1"
 			End If
 			If GetBit(nDebug,3) Then
-				cFlagJustShowCall	= "1"
+				cFlagDontShowErrMsg	= "'1'"
 			End If
 			
 			If nDebug = 0 Or nDebug = 2 Then

Convert_VFP9_PRG_2_BIN.vbs

@@ -124,10 +124,10 @@ Private Sub evaluateFile( tcFile )
 				cFlagGenerateLog	= "'1'"
 			End If
 			If GetBit(nDebug,2) Then
-				cFlagDontShowErrMsg	= "'1'"
+				cFlagJustShowCall	= "1"
 			End If
 			If GetBit(nDebug,3) Then
-				cFlagJustShowCall	= "1"
+				cFlagDontShowErrMsg	= "'1'"
 			End If
 			
 			If nDebug = 0 Or nDebug = 2 Then

Normalize_FileNames.vbs

@@ -0,0 +1,96 @@
+'---------------------------------------------------------------------------------------------------
+'	Normalize_FileNames.vbs - 06/01/2014 - Fernando D. Bozzo (fdbozzo@gmail.com)
+'---------------------------------------------------------------------------------------------------
+'	ENGLISH:
+'		Create a shortcut on user's "SendTo" folder and configure CAPS on filename_caps.cfg
+'
+'	ESPA<50>OL:
+'		Cree un acceso directo en la carpeta "SendTo" del usuario y configure las Capitalizaciones en filename_caps.cfg
+'---------------------------------------------------------------------------------------------------
+Const ForReading = 1 
+Dim WSHShell, FileSystemObject
+Dim oVFP9, nExitCode, cEXETool, cCMD, nDebug, cConvertType, aExtensions(8), filename_caps_log
+Dim i, x, str_cfg, aConf
+Set WSHShell = WScript.CreateObject("WScript.Shell")
+Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")
+Set oVFP9 = CreateObject("VisualFoxPro.Application.9")
+filename_caps_log	= Replace(WScript.ScriptFullName, WScript.ScriptName, "filename_caps.log")
+nExitCode = 0
+'---------------------------------------------------------------------------------------------------
+nDebug = 5		'Cumulative Flags: 0=OFF, 1=Create filename_caps LOG, 2=Only show script calls, 4=Don't show filename_caps error modal messages
+'---------------------------------------------------------------------------------------------------
+
+If WScript.Arguments.Count = 0 Then
+	nExitCode = 1
+	cErrMsg = "nDebug = " & nDebug
+	If GetBit(nDebug, 1) Then
+		cErrMsg	= cErrMsg & Chr(13) & "Bit 0 ON: (1) Create filename_caps LOG"
+	End If
+	If GetBit(nDebug, 2) Then
+		cErrMsg	= cErrMsg & Chr(13) & "Bit 1 ON: (2) Only show script calls"
+	End If
+	If GetBit(nDebug, 3) Then
+		cErrMsg	= cErrMsg & Chr(13) & "Bit 2 ON: (4) Don't show filename_caps error modal messages"
+	End If
+	MsgBox cErrMsg, 64, "No parameters - Debug Status"
+Else
+	cEXETool	= Replace(WScript.ScriptFullName, WScript.ScriptName, "filename_caps.exe")
+	If GetBit(nDebug, 1) And Not GetBit(nDebug, 2) And Not FileSystemObject.FileExists( filename_caps_log ) Then
+		FileSystemObject.CreateTextFile( filename_caps_log )
+	End If
+	
+	For i = 0 To WScript.Arguments.Count-1
+		scanDirs( WScript.Arguments(i) )
+	Next
+End If
+
+WScript.Quit(nExitCode)
+
+
+Private Sub scanDirs( tcArgument )
+	Dim omFolder, oFolder
+	If FileSystemObject.FolderExists( tcArgument ) Then
+		'-- Es un directorio
+		Set omFolder = FileSystemObject.GetFolder( tcArgument )
+		For Each oFile IN omFolder.Files
+			evaluateFile( oFile.Path )
+		Next
+		For Each oFolder IN omFolder.SubFolders
+			scanDirs( oFolder.Path )
+		Next
+	Else
+		'-- Es un archivo
+		evaluateFile( tcArgument )
+	End If
+End Sub
+
+
+Private Sub evaluateFile( tcFile )
+	cFlagGenerateLog	= "'0'"
+	cFlagDontShowErrMsg	= "'0'"
+	cFlagShowCall		= "'0'"
+	If GetBit(nDebug,1) Then
+		cFlagGenerateLog	= "'1'"
+	End If
+	If GetBit(nDebug,2) Then
+		cFlagJustShowCall	= "1"
+	End If
+	If GetBit(nDebug,3) Then
+		cFlagDontShowErrMsg	= "'1'"
+	End If
+	
+	cCMD	= "DO '" & cEXETool & "' WITH '" & tcFile & "','','F','',.F.," & cFlagDontShowErrMsg
+	If cFlagJustShowCall = "1" Then
+		MsgBox cCMD, 0, "PARAMETROS ENVIADOS"
+	Else
+		oVFP9.DoCmd( cCMD )
+		'nExitCode = oVFP9.Eval("_SCREEN.ExitCode")
+	End If
+End Sub
+
+
+Function GetBit(lngValue, BitNum)
+     Dim BitMask
+     If BitNum < 32 Then BitMask = 2 ^ (BitNum - 1) Else BitMask = "&H80000000"
+     GetBit = CBool(lngValue AND BitMask)
+End Function

foxbin2prg.pj2

@@ -2,7 +2,7 @@
 * (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
 * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
 *--------------------------------------------------------------------------------------------------------------------------------------------------------
-*< FOXBIN2PRG: Version="1.18" SourceFile="C:\DESA\foxbin2prg\foxbin2prg.pjx" Generated="2014/01/06 04:40:58" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*< FOXBIN2PRG: Version="1.18" SourceFile="C:\DESA\foxbin2prg\foxbin2prg.pjx" Generated="2014/01/07 00:46:40" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
 *
 LPARAMETERS tcDir
 
@@ -26,7 +26,7 @@ _LegalTrademark = "Open Source"
 _ProductName = " FOXBIN2PRG"
 _MajorVer = "1"
 _MinorVer = "18"
-_Revision = " 176"
+_Revision = " 177"
 _LanguageID = "1034"
 _AutoIncrement = "1"
 *</DevInfo>
@@ -51,7 +51,7 @@ loProject = _VFP.Projects('foxbin2prg.pjx')
 
 WITH loProject.FILES
 	.ADD('config\config.fpw')		&& *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" />
-	.ADD('foxbin2prg.prg')		&& *< FileMetadata: Type="P" Cpid="1252" Timestamp="1143350514" ID="1130644423" ObjRev="544" />
+	.ADD('foxbin2prg.prg')		&& *< FileMetadata: Type="P" Cpid="1252" Timestamp="1143388948" ID="1130644423" ObjRev="544" />
 	*</BuildProj>
 
 	.ITEM('__newproject.f2b').Remove()

foxbin2prg.prg

@@ -944,12 +944,13 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
 		THIS.writeLog( '- Se ha solicitado capitalizar el archivo [' + tcFileName + ']' )
 		lcLog	= ''
 		DO (tcEXE_CAPS) WITH tcFileName, '', 'F', lcLog, .T.
-		IF ADIR( laFile, tcFileName, '', 1 ) > 0 AND laFile(1,1) <> JUSTFNAME(tcFileName)
+		*IF ADIR( laFile, tcFileName, '', 1 ) > 0 AND laFile(1,1) <> JUSTFNAME(tcFileName)
-			toFSO.MoveFile( FORCEPATH( laFile(1,1), JUSTPATH(tcFileName) ), tcFileName )
+		*	toFSO.MoveFile( FORCEPATH( laFile(1,1), JUSTPATH(tcFileName) ), tcFileName )
-			THIS.writeLog( '  => Se renombrar<61> a [' + tcFileName + ']' )
+		*	THIS.writeLog( '  => Se renombrar<61> a [' + tcFileName + ']' )
-		ELSE
+		*ELSE
-			THIS.writeLog( '  => No se renombrar<61> a [' + tcFileName + '] porque ya estaba correcto.' )
+		*	THIS.writeLog( '  => No se renombrar<61> a [' + tcFileName + '] porque ya estaba correcto.' )
-		ENDIF
+		*ENDIF
+		THIS.writeLog( lcLog )
 	ENDPROC