Truncate a file

Truncate a file is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

The task is to demonstrate how to truncate a file to a specific length. This should be implemented as a routine that takes two parameters: the filename and the required file length (in bytes). The truncation can be achived using system or library calls intended for such a task, if such methods exist, or by creating a temporary file of a reduced size and renaming it, if no other method is possible. The file may contain non human readable binary data in an unspecified format, so the routine should be "binary safe", leaving the contents of the untruncated part of the file unchanged. If the specified filename does not exist, or the provided length is not less than the current file length, then the routine should raise an appropriate error condition and exit.

PureBasic

PureBasic has the internal function TruncateFile that cuts the file at the current file position and discards all data that follows. <lang PureBasic>Procedure SetFileSize(File$, length.q)

 Protected fh, pos, i
 If FileSize(File$) < length
   Debug "File to small, is a directory or does not exist."
   ProcedureReturn #False
 Else 
   fh = OpenFile(#PB_Any, File$)
   FileSeek(fh, length)
   TruncateFile(fh)
   CloseFile(fh)
 EndIf
 ProcedureReturn #True

EndProcedure</lang>