diff --git a/Convert_VFP9_BIN_2_PRG.vbs b/Convert_VFP9_BIN_2_PRG.vbs index 091edb4..2e0fd2f 100644 --- a/Convert_VFP9_BIN_2_PRG.vbs +++ b/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 diff --git a/Convert_VFP9_PRG_2_BIN.vbs b/Convert_VFP9_PRG_2_BIN.vbs index c3ee167..ad4fcd8 100644 --- a/Convert_VFP9_PRG_2_BIN.vbs +++ b/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 diff --git a/Normalize_FileNames.vbs b/Normalize_FileNames.vbs new file mode 100644 index 0000000..e06849f --- /dev/null +++ b/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Ñ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 diff --git a/foxbin2prg.pj2 b/foxbin2prg.pj2 index ec7a140..d218fe5 100644 --- a/foxbin2prg.pj2 +++ b/foxbin2prg.pj2 @@ -2,7 +2,7 @@ * (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡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" * @@ -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" /> * .ITEM('__newproject.f2b').Remove() diff --git a/foxbin2prg.pjt b/foxbin2prg.pjt index e087fb7..fe04924 100644 Binary files a/foxbin2prg.pjt and b/foxbin2prg.pjt differ diff --git a/foxbin2prg.pjx b/foxbin2prg.pjx index 7d3b79c..09c4ecc 100644 Binary files a/foxbin2prg.pjx and b/foxbin2prg.pjx differ diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 2cf3c67..955b108 100644 --- a/foxbin2prg.prg +++ b/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) - toFSO.MoveFile( FORCEPATH( laFile(1,1), JUSTPATH(tcFileName) ), tcFileName ) - THIS.writeLog( ' => Se renombrará a [' + tcFileName + ']' ) - ELSE - THIS.writeLog( ' => No se renombrará a [' + tcFileName + '] porque ya estaba correcto.' ) - ENDIF + *IF ADIR( laFile, tcFileName, '', 1 ) > 0 AND laFile(1,1) <> JUSTFNAME(tcFileName) + * toFSO.MoveFile( FORCEPATH( laFile(1,1), JUSTPATH(tcFileName) ), tcFileName ) + * THIS.writeLog( ' => Se renombrará a [' + tcFileName + ']' ) + *ELSE + * THIS.writeLog( ' => No se renombrará a [' + tcFileName + '] porque ya estaba correcto.' ) + *ENDIF + THIS.writeLog( lcLog ) ENDPROC