Module
Contents
Index 🔎︎

# Put Statement

Escriu un registre d'un fitxer relatiu o d'una seqüència de bytes en un fitxer binari.

Vegeu també: Expressió Get

## Sintaxi:

    Put [#] FileNumber As Integer, [position], Variable

## Paràmetres:

FileNumber: Qualsevol expressió d'enter que defineix el fitxer on voleu escriure.

Posició: Per a fitxers relatius (fitxers d'accés aleatori), el nombre del registre que voleu escriure.

Per als fitxers binaris (accés binari), la posició del byte al fitxer on voleu començar a escriure.

Variable: Nom de la variable que voleu escriure al fitxer.

Nota per a fitxers relatius: Si el contingut d'esta variable no coincideix amb la longitud del registre que s'especifica a la clàusula Len de l'expressió Open, l'espai entre el final del registre que s'acaba d'escriure i el registre següent s'omple amb dades existents del fitxer al qual escriviu.

Nota per als fitxers binaris: El contingut de les variables s'escriu en la posició especificada, i la busca del fitxer s'insereix directament després de l'últim byte. No es deixa cap espai entre els registres.

## Exemple:

    Sub ExampleRandomAccess

    Dim iNumber As Integer

    Dim sText As Variant ' Ha de ser un tipus de variant

    Dim aFile As String

        aFile = "c:\data.txt"

        iNumber = Freefile

        Open aFile For Random As #iNumber Len=32

        Seek #iNumber,1 ' Posició per començar a escriure

        Put #iNumber,, "Esta és la primera línia de text" ' Ompliu la línia amb text

        Put #iNumber,, "Esta és la segona línia de text"

        Put #iNumber,, "Esta és la tercera línia de text"

        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 #iNumber,,"Això és text nou"

        Get #iNumber,1,sText

        Get #iNumber,2,sText

        Put #iNumber,20,"Este és el text del registre 20"

        Print Lof(#iNumber)

        Close #iNumber

    End Sub