romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 325 fdbozzo - 22/06/2014 20:53:17:

Browse Source 
- Arreglo de evaluación de soporte de tipo de archivo
This commit is contained in:
fdbozzo
2014-06-22 21:39:58 +02:00
parent 61efb46f79
commit 6884ef7cd7
7 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Convert_VFP9_BIN_2_PRG.vbs
View File

@@ -151,11 +151,11 @@ End Sub
Private Sub evaluateFile( tcFile ) Private Sub evaluateFile( tcFile )
lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) ) lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
oVFP9.SetVar "gc_Ext", lcExt oVFP9.SetVar "gc_Ext", lcExt
If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Bin2Prg(gc_Ext)") Then 'If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Bin2Prg(gc_Ext)") Then
nFile_Count = nFile_Count + 1 nFile_Count = nFile_Count + 1
ReDim Preserve aFiles(nFile_Count) ReDim Preserve aFiles(nFile_Count)
aFiles(nFile_Count) = tcFile aFiles(nFile_Count) = tcFile
End If 'End If
End Sub End Sub

4
Convert_VFP9_PRG_2_BIN.vbs
View File

@@ -158,11 +158,11 @@ End Sub
Private Sub evaluateFile( tcFile ) Private Sub evaluateFile( tcFile )
lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) ) lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
oVFP9.SetVar "gc_Ext", lcExt oVFP9.SetVar "gc_Ext", lcExt
If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin(gc_Ext)") Then 'If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin(gc_Ext)") Then
nFile_Count = nFile_Count + 1 nFile_Count = nFile_Count + 1
ReDim Preserve aFiles(nFile_Count) ReDim Preserve aFiles(nFile_Count)
aFiles(nFile_Count) = tcFile aFiles(nFile_Count) = tcFile
End If 'End If
End Sub End Sub

BIN
foxbin2prg.exe
View File

Binary file not shown.

4
foxbin2prg.pj2
View File

@@ -23,10 +23,10 @@ _CompanyName = "Fernando D. Bozzo"
_FileDescription = "Conversor bidireccional de binarios FoxPro 9 (scx,vcx,pjx) a texto para sustituir al scctext :-)" _FileDescription = "Conversor bidireccional de binarios FoxPro 9 (scx,vcx,pjx) a texto para sustituir al scctext :-)"
_LegalCopyright = "Creative Commons 4: Reconocimiento - CompartirIgual (by-sa): http://creativecommons.org/licenses/by/4.0/" _LegalCopyright = "Creative Commons 4: Reconocimiento - CompartirIgual (by-sa): http://creativecommons.org/licenses/by/4.0/"
_LegalTrademark = "Creative Commons 4: Reconocimiento - CompartirIgual (by-sa): http://creativecommons.org/licenses/by/4.0/" _LegalTrademark = "Creative Commons 4: Reconocimiento - CompartirIgual (by-sa): http://creativecommons.org/licenses/by/4.0/"
_ProductName = " FOXBIN2PRG v1.19.24" _ProductName = " FOXBIN2PRG v1.19.25"
_MajorVer = "1" _MajorVer = "1"
_MinorVer = "19" _MinorVer = "19"
_Revision = "24" _Revision = "25"
_LanguageID = "1034" _LanguageID = "1034"
_AutoIncrement = "0" _AutoIncrement = "0"
*</DevInfo> *</DevInfo>

BIN
foxbin2prg.pjt
View File

Binary file not shown.

BIN
foxbin2prg.pjx
View File

Binary file not shown.

9
foxbin2prg.prg
View File

@@ -1038,7 +1038,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
PROCEDURE EvaluarConfiguracion PROCEDURE EvaluarConfiguracion
LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ; LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
, tcClearUniqueID, tcOptimizeByFilestamp , tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile
LOCAL lcConfigFile, llExisteConfig, laConfig(1), I, lcConfData, lcExt, lcValue ; LOCAL lcConfigFile, llExisteConfig, laConfig(1), I, lcConfData, lcExt, lcValue ;
, lo_CFG AS CL_CFG OF 'FOXBIN2PRG.PRG' ; , lo_CFG AS CL_CFG OF 'FOXBIN2PRG.PRG' ;
@@ -1048,12 +1048,13 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
STORE 0 TO lnKey STORE 0 TO lnKey
tcRecompile = EVL(tcRecompile,'1') tcRecompile = EVL(tcRecompile,'1')
lcConfigFile = .c_Foxbin2prg_ConfigFile lcConfigFile = .c_Foxbin2prg_ConfigFile
tc_InputFile = EVL(tc_InputFile, .c_InputFile)
IF .l_AllowMultiConfig AND .l_Main_CFG_Loaded IF .l_AllowMultiConfig AND .l_Main_CFG_Loaded
IF EMPTY(.c_InputFile) IF EMPTY(tc_InputFile)
ERROR C_FILE_NOT_FOUND_LOC + ': .c_InputFile = "' + .c_InputFile + '"' ERROR C_FILE_NOT_FOUND_LOC + ': .c_InputFile = "' + tc_InputFile + '"'
ENDIF ENDIF
lcConfigFile = FORCEPATH( 'foxbin2prg.cfg', JUSTPATH(.c_InputFile) ) lcConfigFile = FORCEPATH( 'foxbin2prg.cfg', JUSTPATH(tc_InputFile) )
ENDIF ENDIF
lo_Configuration = .o_Configuration lo_Configuration = .o_Configuration