Ich bin leider nicht gerade der ordentlichste mit meinen Dateien. Projekte sind in vielen Ordnern verteilt oder auch mal in irgendwelchen Backup-Ziparchiven verschollen. Von daher ist dieser kurze Code ganz nützlich.
Code: Alles auswählen
Procedure SaveSourceCodeToFile(path.s="")
DataSection
startSourceCode:
IncludeBinary #PB_Compiler_File
endSourceCode:
EndDataSection
Protected hFile.i
If path=""
path = SaveFileRequester("Save Program Source As...", "", "PureBasic Source (*.pb)|*.pb", 0)
EndIf
If path
If GetExtensionPart(path) <> "pb"
path + ".pb"
EndIf
hFile = CreateFile(#PB_Any, path)
If hFile
WriteData(hFile, ?startSourceCode, ?endSourceCode - ?startSourceCode)
CloseFile(hFile)
EndIf
EndIf
EndProcedure
Code: Alles auswählen
If LCase(ProgramParameter(0))="savesource" Or LCase(ProgramParameter(0))="-savesource"
SaveSourceCodeToFile(ProgramParameter(1))
EndIf