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

6
Convert_VFP9_PRG_2_BIN.vbs
View File

@@ -158,6 +158,11 @@ End Sub
Private Sub evaluateFile( tcFile ) Private Sub evaluateFile( tcFile )
lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) ) lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
lcFileName = FileSystemObject.GetFileName( tcFile )
laPoints = Split( lcFileName, "." )
lnPoints = UBound(laPoint)
'-- No proceso los archivos con m<>s de un punto (clases en archivos individuales) por performance
If lnPoints = 1 Then
oVFP9.SetVar "gc_Ext", lcExt oVFP9.SetVar "gc_Ext", lcExt
'PROCEDURE EvaluarConfiguracion 'PROCEDURE EvaluarConfiguracion
@@ -170,6 +175,7 @@ Private Sub evaluateFile( tcFile )
ReDim Preserve aFiles(nFile_Count) ReDim Preserve aFiles(nFile_Count)
aFiles(nFile_Count) = tcFile aFiles(nFile_Count) = tcFile
End If End If
End If
End Sub End Sub