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

Changeset: 468 fdbozzo - 09/11/2014 00:36:27:

Browse Source 
- Adapto el script de conversión PRG a BIN para ignorar los archivos de clases individuales (archivo.clase.tx2)
This commit is contained in:
fdbozzo
2014-11-09 15:10:18 +01:00
parent 6ba908cd68
commit ec6a185464
1 changed files with 17 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Convert_VFP9_PRG_2_BIN.vbs
View File

@@ -158,17 +158,23 @@ 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 lcFileName = FileSystemObject.GetFileName( tcFile )
laPoints = Split( lcFileName, "." )
'PROCEDURE EvaluarConfiguracion lnPoints = UBound(laPoint)
' LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ; '-- No proceso los archivos con m<>s de un punto (clases en archivos individuales) por performance
' , tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile If lnPoints = 1 Then
oVFP9.SetVar "gc_Ext", lcExt
oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '', '', '', '', '', '', '', '', '" & tcFile & "' )" )
If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin(gc_Ext)") Then 'PROCEDURE EvaluarConfiguracion
nFile_Count = nFile_Count + 1 ' LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
ReDim Preserve aFiles(nFile_Count) ' , tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile
aFiles(nFile_Count) = tcFile
oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '', '', '', '', '', '', '', '', '" & tcFile & "' )" )
If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin(gc_Ext)") Then
nFile_Count = nFile_Count + 1
ReDim Preserve aFiles(nFile_Count)
aFiles(nFile_Count) = tcFile
End If
End If End If
End Sub End Sub