5 lines
240 B
Text
5 lines
240 B
Text
Truncate[file_, n_] := Module[{filename = file, nbbytes = n, temp},
|
|
temp = $TemporaryPrefix <> filename;
|
|
BinaryWrite[temp, BinaryReadList[filename, "Byte", nbbytes]];
|
|
Close[temp]; DeleteFile[filename]; RenameFile[temp, filename];
|
|
]
|