Truncate a file: Difference between revisions
Truncate a file en FreeBASIC
(Added solution for Action!) |
(Truncate a file en FreeBASIC) |
||
Line 306:
END SUB</lang>
See also: [[#FreeBASIC|FreeBASIC]], [[#Liberty BASIC|Liberty BASIC]], [[#PowerBASIC|PowerBASIC]], [[#PureBasic|PureBasic]], [[#ZX Spectrum Basic|ZX Spectrum Basic]].
=={{header|BBC BASIC}}==
Line 699:
CALL FILEHACK("foobar.txt",12)
END</lang>
=={{header|FreeBASIC}}==
{{trans|QuickBASIC}}
<lang freebasic>Sub truncateFile (archivo As String, longitud As Long)
If Len(Dir(archivo)) Then
Dim f As Long, c As String
f = Freefile
Open archivo For Binary As #f
If longitud > Lof(f) Then
Close #f
Error 62 'Input past end of file
Else
c = Space(longitud)
Get #f, 1, c
Close f
Open archivo For Output As #f
Print #f, c;
Close #f
End If
Else
Error 53 'File not found
End If
End Sub</lang>
=={{header|Go}}==
| |||