Truncate a file: Difference between revisions

Content added Content deleted

Inline

@@ Line 306: / Line 306: @@
 END SUB</lang>
-See also: [[#Liberty BASIC|Liberty BASIC]], [[#PowerBASIC|PowerBASIC]], [[#PureBasic|PureBasic]], [[#ZX Spectrum Basic|ZX Spectrum Basic]].
+See also: [[#FreeBASIC|FreeBASIC]], [[#Liberty BASIC|Liberty BASIC]], [[#PowerBASIC|PowerBASIC]], [[#PureBasic|PureBasic]], [[#ZX Spectrum Basic|ZX Spectrum Basic]].
 =={{header|BBC BASIC}}==
@@ Line 699: / 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}}==