Truncate a file: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed/added comments and whitespace.) |
No edit summary |
||
Line 853: | Line 853: | ||
ser: say '***error***' arg(1); exit 13 /*display an error message and exit. */</lang> |
ser: say '***error***' arg(1); exit 13 /*display an error message and exit. */</lang> |
||
'''output''' is identical to the 1<sup>st</sup> REXX version. <br><br> |
'''output''' is identical to the 1<sup>st</sup> REXX version. <br><br> |
||
=={{header|Ring}}== |
|||
<lang ring> |
|||
file = "C:\Ring\ReadMe.txt" |
|||
fp = read(file) |
|||
fpstr = left(fp, 100) |
|||
see fpstr + nl |
|||
write(file, fpstr) |
|||
</lang> |
|||
Output: |
|||
<pre> |
|||
The Ring Programming Language |
|||
http://ring-lang.net/ |
|||
Version 1.0 |
|||
Release Date : January 25, 2016 |
|||
</pre> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |