mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 00:00:22 +00:00
Merge pull request #407 from SteveMcNeill/main
Update QB64PE for faster file saving
This commit is contained in:
commit
73b23abfb5
|
@ -12458,12 +12458,14 @@ END FUNCTION
|
|||
|
||||
SUB idesave (f$)
|
||||
ideerror = 6
|
||||
OPEN f$ FOR OUTPUT AS #151
|
||||
OPEN f$ FOR OUTPUT AS #151: CLOSE #151
|
||||
OPEN f$ FOR BINARY AS #151
|
||||
ideerror = 1
|
||||
IF INSTR(_OS$, "WIN") THEN LineEnding$ = CHR$(13) + CHR$(10) ELSE LineEnding$ = CHR$(10)
|
||||
FOR i = 1 TO iden
|
||||
a$ = idegetline(i)
|
||||
PRINT #151, a$
|
||||
outfile$ = outfile$ + idegetline(i) + LineEnding$
|
||||
NEXT
|
||||
PUT #151, 1, outfile$
|
||||
CLOSE #151
|
||||
IdeSaveBookmarks f$
|
||||
ideunsaved = 0
|
||||
|
|
Loading…
Reference in a new issue