Post by mueh on Feb 4, 2024 1:45:55 GMT -5
Hi George !
DoMessageBox "The specified file (|K" + fn + "|B), cannot be found:" + $CRLF + _
"Created as a Zero length file", %MB_OK OR %MB_USERICON, "SPFLite - Missing File" '
is issued during restart of SPFLite for deleted file outside of SPFLite after -FILEOPEN support . (Between 3.0.23259 AND 3.0.23313 (Nov 09/2023))
MRFOpen is not set if -FILEOPEN is not used in following code .
I think Kill of MRFList is also not done .
Thanks
DoMessageBox "The specified file (|K" + fn + "|B), cannot be found:" + $CRLF + _
"Created as a Zero length file", %MB_OK OR %MB_USERICON, "SPFLite - Missing File" '
is issued during restart of SPFLite for deleted file outside of SPFLite after -FILEOPEN support . (Between 3.0.23259 AND 3.0.23313 (Nov 09/2023))
MRFOpen is not set if -FILEOPEN is not used in following code .
I think Kill of MRFList is also not done .
Thanks
SPFLite2.bas
'-----------------------------------------------------------------------------------------------+
'- Handle the MRFList and InitString merging |
'-----------------------------------------------------------------------------------------------+
MRF = gSQL.GetString("O", "MRFList", "") ' Get the MRF list
Init = gENV.InitString ' Get the InitString
IF ISNOTNULL(Init) THEN ' Something from the command line?
IF ISNOTNULL(MRF) AND gENV.ReOpenLast THEN ' Would a re-open have been done?
IF LEFT$(Init, 1) = "?" THEN ' Append InitString?
gENV.InitString = MRF + Init ' Do it
MRFOpen = %True ' Set MRF mode
ELSEIF RIGHT$(Init, 1) = "?" THEN ' Prepend InitString?
gENV.InitString = Init + MRF ' Do it
MRFOpen = %True ' Set MRF mode
ELSE ' Replace it then
gENV.InitString = Init '
END IF '
gSQL.UpdateString("O", "MRFList", "") ' Kill list so it is only used once
ELSE ' No re-open would have been done
IF LEFT$(Init, 1) = "?" THEN Init = CLIP$(LEFT, Init, 1) ' Remove extraneous ?
IF RIGHT$(Init, 1) = "?" THEN Init = CLIP$(RIGHT, Init, 1) ' Remove extraneous ?
gENV.InitString = Init ' Save it back
END IF '
ELSE ' No command line data
IF gENV.ReOpenLast AND ISNOTNULL(MRF) THEN ' Re-open possible?
gENV.InitString = MRF ' Save it back
END IF '
END IF '