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

Changeset: 324 fdbozzo - 22/06/2014 20:08:36:

Browse Source
This commit is contained in:
fdbozzo
2014-06-22 20:08:45 +02:00
parent 5ff7d54951 70d1966312
commit 61efb46f79
2 changed files with 22 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Convert_VFP9_BIN_2_PRG.vbs
View File

@@ -14,7 +14,7 @@
Const ForReading = 1 Const ForReading = 1
Dim WSHShell, FileSystemObject Dim WSHShell, FileSystemObject
Dim oVFP9, nExitCode, cEXETool, cCMD, nDebug, lcExt, foxbin2prg_cfg, aFiles(), nFile_Count Dim oVFP9, nExitCode, cEXETool, cCMD, nDebug, lcExt, foxbin2prg_cfg, aFiles(), nFile_Count
Dim i, x, str_cfg, aConf, cErrMsg, cFlagGenerateLog, cFlagDontShowErrMsg, cFlagJustShowCall, cFlagRecompile, cNoTimestamps Dim i, x, str_cfg, aConf, cErrMsg, cFlagGenerateLog, cFlagDontShowErrMsg, cFlagJustShowCall, cFlagRecompile, cNoTimestamps, cErrFile
Set WSHShell = WScript.CreateObject("WScript.Shell") Set WSHShell = WScript.CreateObject("WScript.Shell")
Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject") Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")
Set oVFP9 = CreateObject("VisualFoxPro.Application.9") Set oVFP9 = CreateObject("VisualFoxPro.Application.9")
@@ -112,11 +112,19 @@ Else
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.HIDE()" ) oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.HIDE()" )
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance = NULL" ) oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance = NULL" )
oVFP9.DoCmd( "oFoxBin2prg = NULL" )
If GetBit(nDebug, 4) Then If GetBit(nDebug, 4) Then
MsgBox "End of Process!", 64, WScript.ScriptName If oVFP9.Eval("oFoxBin2prg.l_Error") Then
MsgBox "End of Process! (with errors)", 48, WScript.ScriptName
cErrFile = oVFP9.Eval("FORCEPATH('FoxBin2Prg.LOG',GETENV('TEMP') )")
oVFP9.DoCmd("STRTOFILE( oFoxBin2prg.c_ErrorLog, '" & cErrFile & "' )")
WSHShell.run cErrFile
Else
MsgBox "End of Process!", 64, WScript.ScriptName
End If
End If End If
oVFP9.DoCmd( "oFoxBin2prg = NULL" )
End If End If
WScript.Quit(nExitCode) WScript.Quit(nExitCode)

14
Convert_VFP9_PRG_2_BIN.vbs
View File

@@ -14,7 +14,7 @@
Const ForReading = 1 Const ForReading = 1
Dim WSHShell, FileSystemObject Dim WSHShell, FileSystemObject
Dim oVFP9, nExitCode, cEXETool, cCMD, nDebug, lcExt, foxbin2prg_cfg, aFiles(), nFile_Count Dim oVFP9, nExitCode, cEXETool, cCMD, nDebug, lcExt, foxbin2prg_cfg, aFiles(), nFile_Count
Dim i, x, str_cfg, aConf, cErrMsg, cFlagGenerateLog, cFlagDontShowErrMsg, cFlagJustShowCall, cFlagRecompile, cNoTimestamps Dim i, x, str_cfg, aConf, cErrMsg, cFlagGenerateLog, cFlagDontShowErrMsg, cFlagJustShowCall, cFlagRecompile, cNoTimestamps, cErrFile
Set WSHShell = WScript.CreateObject("WScript.Shell") Set WSHShell = WScript.CreateObject("WScript.Shell")
Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject") Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")
Set oVFP9 = CreateObject("VisualFoxPro.Application.9") Set oVFP9 = CreateObject("VisualFoxPro.Application.9")
@@ -119,11 +119,19 @@ Else
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.HIDE()" ) oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance.HIDE()" )
oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance = NULL" ) oVFP9.DoCmd( "oFoxBin2prg.o_Frm_Avance = NULL" )
oVFP9.DoCmd( "oFoxBin2prg = NULL" )
If GetBit(nDebug, 4) Then If GetBit(nDebug, 4) Then
MsgBox "End of Process!", 64, WScript.ScriptName If oVFP9.Eval("oFoxBin2prg.l_Error") Then
MsgBox "End of Process! (with errors)", 48, WScript.ScriptName
cErrFile = oVFP9.Eval("FORCEPATH('FoxBin2Prg.LOG',GETENV('TEMP') )")
oVFP9.DoCmd("STRTOFILE( oFoxBin2prg.c_ErrorLog, '" & cErrFile & "' )")
WSHShell.run cErrFile
Else
MsgBox "End of Process!", 64, WScript.ScriptName
End If
End If End If
oVFP9.DoCmd( "oFoxBin2prg = NULL" )
End If End If
WScript.Quit(nExitCode) WScript.Quit(nExitCode)