Truncate a file: Difference between revisions

Content added Content deleted
Line 171: Line 171:
'''Solution:'''
'''Solution:'''
<lang j>require 'files' NB. needed for versions prior to J7
<lang j>require 'files' NB. needed for versions prior to J7
ftruncate=: [ fwrite~ [ fread@; 0 , ]
ftruncate=: [ fwrite~ [ fread@; 0 , ]</lang>
</lang>
'''Usage:'''
'''Usage:'''
<lang j> 'test.txt' fwrite~ 1000$ 'abcdefg' NB. create test file
<lang j>
'test.txt' fwrite~ 1000$ 'abcdefg' NB. create test file
'test.txt' ftruncate 567 NB. truncate test file
'test.txt' ftruncate 567 NB. truncate test file
567
567
fsize 'testtrunc.txt' NB. check new file size
fsize 'testtrunc.txt' NB. check new file size
567
567</lang>
</lang>


=={{header|Java}}==
=={{header|Java}}==