https://foro.gambas-es.org/viewtopic.php?f=5&t=5646&p=33395#p33395
-----------------------------------
vuott
Sabado, 16 Julio 2016, 17:52

Truncar Un Archivo A Una Determinada Dimensión Con La Función Externa Truncate()
-----------------------------------
Con la función externa [i]truncate( )[/i], declarada en el file de sistema "[i]/usr/include/unistd.h[/i]", es posible truncar un archivo preservando un número [i]tot[/i] de los sus primeros byte, como especificado en el segundo parametro de la misma función externa.


En este ejemplo practico el fichero debe tener un tamaño superior a 1000 byte:
 [code linenumbers=false syntax=gambas]Library "libc:6"

' int truncate (const char *__file, __off_t __length)
' Truncate FILE to LENGTH bytes.
Private Extern truncate(__file As String, __length As Long) As Integer


Public Sub Main()
 
 Dim err As Integer
 
' Preserva los primeros 1000 byte del archivo:
  err = truncate("/ruta/del/archivo", 1000)
  If err < 0 Then Error.Raise("Imposible truncar el archivo !") 

End[/code]


