diff --git a/FoxBin2Prg__Compilar_en_Español.vbs b/FoxBin2Prg__Compilar_en_Español.vbs new file mode 100644 index 0000000..9c30316 --- /dev/null +++ b/FoxBin2Prg__Compilar_en_Español.vbs @@ -0,0 +1,21 @@ +'--------------------------------------------------------------------------------------------------- +' FoxBin2Prg__Compilar_en_Español.vbs - 10/08/2014 - Fernando D. Bozzo (fdbozzo@gmail.com) +'--------------------------------------------------------------------------------------------------- +' - FoxBin2Prg ya viene en Español por defecto, pero si lo llega a necesitar, solo ejecute este script. +'--------------------------------------------------------------------------------------------------- +Const ForReading = 1 +Dim WSHShell, FileSystemObject +Dim oVFP9, nExitCode, cOrigFile, cDestFile +Dim nRet +Set WSHShell = WScript.CreateObject("WScript.Shell") +Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject") +Set oVFP9 = CreateObject("VisualFoxPro.Application.9") +foxbin2prg_exe = Replace(WScript.ScriptFullName, WScript.ScriptName, "foxbin2prg.exe") +nExitCode = 0 +cOrigFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "foxbin2prg.h") +cPath = FileSystemObject.GetParentFolderName( cOrigFile ) +nRet = FileSystemObject.DeleteFile( cOrigFile, True ) +oVFP9.DoCmd( "SET DEFAULT TO '" & cPath & "'" ) +oVFP9.DoCmd( "BUILD EXE foxbin2prg.exe FROM foxbin2prg.pjx RECOMPILE" ) +WSHShell.run foxbin2prg_exe +WScript.Quit(nExitCode) diff --git a/FoxBin2Prg__Compile_in_English.vbs b/FoxBin2Prg__Compile_in_English.vbs new file mode 100644 index 0000000..1306797 --- /dev/null +++ b/FoxBin2Prg__Compile_in_English.vbs @@ -0,0 +1,22 @@ +'--------------------------------------------------------------------------------------------------- +' FoxBin2Prg__Compile_in_English.vbs - 10/08/2014 - Fernando D. Bozzo (fdbozzo@gmail.com) +'--------------------------------------------------------------------------------------------------- +' - Just execute on FoxBin2Prg main directory, and you get an EXE with texts translated +'--------------------------------------------------------------------------------------------------- +Const ForReading = 1 +Dim WSHShell, FileSystemObject +Dim oVFP9, nExitCode, cOrigFile, cDestFile +Dim nRet +Set WSHShell = WScript.CreateObject("WScript.Shell") +Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject") +Set oVFP9 = CreateObject("VisualFoxPro.Application.9") +foxbin2prg_exe = Replace(WScript.ScriptFullName, WScript.ScriptName, "foxbin2prg.exe") +nExitCode = 0 +cOrigFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "foxbin2prg_en.h") +cDestFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "foxbin2prg.h") +cPath = FileSystemObject.GetParentFolderName( cOrigFile ) +nRet = FileSystemObject.CopyFile( cOrigFile, cDestFile, True ) +oVFP9.DoCmd( "SET DEFAULT TO '" & cPath & "'" ) +oVFP9.DoCmd( "BUILD EXE foxbin2prg.exe FROM foxbin2prg.pjx RECOMPILE" ) +WSHShell.run foxbin2prg_exe +WScript.Quit(nExitCode) diff --git a/FoxBin2Prg__kompilieren_auf_Deutsch.vbs b/FoxBin2Prg__kompilieren_auf_Deutsch.vbs new file mode 100644 index 0000000..e7a5ab1 --- /dev/null +++ b/FoxBin2Prg__kompilieren_auf_Deutsch.vbs @@ -0,0 +1,22 @@ +'--------------------------------------------------------------------------------------------------- +' FoxBin2Prg__kompilieren_auf_Deutsch.vbs - 10/08/2014 - Fernando D. Bozzo (fdbozzo@gmail.com) +'--------------------------------------------------------------------------------------------------- +' - Führen Sie einfach auf FoxBin2Prg Hauptverzeichnis, und Sie erhalten eine EXE-Datei mit Texten übersetzt bekommen +'--------------------------------------------------------------------------------------------------- +Const ForReading = 1 +Dim WSHShell, FileSystemObject +Dim oVFP9, nExitCode, cOrigFile, cDestFile +Dim nRet +Set WSHShell = WScript.CreateObject("WScript.Shell") +Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject") +Set oVFP9 = CreateObject("VisualFoxPro.Application.9") +foxbin2prg_exe = Replace(WScript.ScriptFullName, WScript.ScriptName, "foxbin2prg.exe") +nExitCode = 0 +cOrigFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "foxbin2prg_de.h") +cDestFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "foxbin2prg.h") +cPath = FileSystemObject.GetParentFolderName( cOrigFile ) +nRet = FileSystemObject.CopyFile( cOrigFile, cDestFile, True ) +oVFP9.DoCmd( "SET DEFAULT TO '" & cPath & "'" ) +oVFP9.DoCmd( "BUILD EXE foxbin2prg.exe FROM foxbin2prg.pjx RECOMPILE" ) +WSHShell.run foxbin2prg_exe +WScript.Quit(nExitCode)