Contenido
Índice 🔎︎

# Put# Statement

Escribe un registro en un archivo relativo o una secuencia de bytes en un archivo binario.

Use Print# statement to print data to a sequential text file. Use Write# statement to write data to a sequential text file with delimiting characters.

### Sintaxis:

    Put [#]fileNum, [recordNum|filePos], variable

### Parámetros:

fileNum: Any integer expression that defines the file that you want to write to.

recordNum, filePos: For relative files (random access files), the number of the record that you want to write.

En archivos binarios (acceso binario), la posición del byte del archivo en que se desee empezar a escribir.

variable: Name of the variable that you want to write to the file.

Nota para archivos relativos: Si el contenido de esta variable no coincide con la longitud del registro que se especifica en la cláusula Len de la instrucción Open, el espacio entre el final del registro escrito recientemente y el siguiente se rellena con los datos existentes del archivo al que está escribiendo.

Nota para archivos binarios: El contenido de las variables se escribe en la posición especificada y el puntero del archivo se inserta directamente después del último byte. No se deja espacio entre los registros.

### Ejemplo:

    Sub ExampleRandomAccess
        Dim iNumber As Integer
        Dim sText As Variant ' Debe ser un variant
        Dim aFile As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Seek #iNumero,1 ' Posición al principio
        Put #iNumber,, "Esta es la primera línea de texto" ' Rellenar la línea con texto
        Print #iNumero, "Esta es la segunda línea de texto"
        Print #iNumero, "Esta es la tercera línea de texto"
        Seek #iNumber,2
        Get #iNumber,,sText
        Print sText
        Close #iNumber
        iNumber = Freefile
        Open aFile For Random As #iNumber Len=32
        Get #iNumber,2,sText
        Put #iNumero,,"Esto es un texto nuevo"
        Get #iNumber,1,sText
        Get #iNumber,2,sText
        Put #iNumero,20,"Este es el texto del registro 20"
        Print Lof(#iNumber)
        Close #iNumber
    End Sub

Temas relacionados

Close Statement

Get Statement

Open Statement