Window 3.1h1 :
- aggiunta gestione flip pezzi per lavorare in prima fase interno invece di esterno - aggiunta cancellazione di tutti i vecchi file risultato in modalità manuale.
This commit is contained in:
@@ -46,6 +46,29 @@ if not vRes or #vRes < 1 then
|
||||
end
|
||||
local sMGrpName = EgtReplaceString( vRes[1], ' [===]', '')
|
||||
|
||||
-- cancello eventuali file generati dalla macchinata
|
||||
local sMGrpFile = sDir .. sMGrpName .. '.bwe'
|
||||
if EgtExistsFile( sMGrpFile) then
|
||||
local nOrigCtx = EgtGetContext()
|
||||
local nCtx = EgtCreateContext()
|
||||
if nCtx and EgtOpenFile( sMGrpFile) then
|
||||
local nMgId = EgtGetFirstInGroup( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'MachBase') or GDB_ID.NULL)
|
||||
if nMgId then
|
||||
local sNcName = EgtGetInfo( nMgId, 'NcName')
|
||||
if sNcName then
|
||||
local _, sSpecName, _ = EgtSplitPath( sNcName)
|
||||
local vFiles = EgtFindAllFiles( sDir .. sSpecName .. '*.*') or {}
|
||||
for i = 1, #vFiles do
|
||||
local sFileToErase = sDir .. vFiles[i]
|
||||
EgtEraseFile( sFileToErase)
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
EgtDeleteContext( nCtx)
|
||||
EgtSetContext( nOrigCtx)
|
||||
end
|
||||
|
||||
-- cancello tutti i file del direttorio con il nome della macchinata
|
||||
local vFiles = EgtFindAllFiles( sDir .. sMGrpName .. '.*') or {}
|
||||
for i = 1, #vFiles do
|
||||
|
||||
Reference in New Issue
Block a user