Truncate a file: Difference between revisions
Content added Content deleted
(→{{header|J}}: Add J) |
|||
| Line 167: | Line 167: | ||
<lang Unicon>truncate(f := open(filename, "bu"), newsizeinbytes) & close(f)</lang> |
<lang Unicon>truncate(f := open(filename, "bu"), newsizeinbytes) & close(f)</lang> |
||
Note: The Unicon book incorrectly indicates that truncate doesn't work on Windows. |
Note: The Unicon book incorrectly indicates that truncate doesn't work on Windows. |
||
=={{header|J}}== |
|||
'''Solution:''' |
|||
<lang j>require 'files' NB. needed for versions prior to J7 |
|||
ftruncate=: [ fwrite~ [ fread@; 0 , ] |
|||
</lang> |
|||
'''Usage:''' |
|||
<lang j> |
|||
'test.txt' fwrite~ 1000$ 'abcdefg' NB. create test file |
|||
'test.txt' ftruncate 567 NB. truncate test file |
|||
567 |
|||
fsize 'testtrunc.txt' NB. check new file size |
|||
567 |
|||
</lang> |
|||
=={{header|Java}}== |
=={{header|Java}}== |
||