Put Statement

Skribas rikordon al relativa dosiero aŭ bajtan sekvencon al duuma dosiero.

Vidu ankaŭ ordono: Get

Sintakso:

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

Parametroj:

FileNumber: Entjera esprimo kiu difinas la dosieron skribotan.

Position: Por relativaj dosieroj (dosieroj kun senvica atingo), la numero de la rikordo skribota.

Por duumaj dosieroj (duuma aliro), la pozicio de la bajto en la dosiero kie ekskribi.

Variable: Nomo de la variablo skribota al la dosiero.

Noto pri relativaj dosieroj: se la enhavo de ĉi tiu variablo ne kongruas al la longo de la rikordo specifita en la klaŭzo Len de la ordono Open, la spaco inter la fino de la ĵus skribita rikordo kaj la posta rikordo remburiĝos per ekzistantaj datumoj el la dosiero skribata.

Noto pri duumaj dosieroj: the enhavo de la variabloj skribiĝas al la specifita pozicio, kaj la dosiera skribilo enmetiĝas tuj post la lasta bajto. Nenia spaco lasiĝas inter la rikordoj.

Ekzemplo:

Sub ExampleRandomAccess

Dim iNumber As Integer

Dim sText As Variant REM Devas esti subtipo.

Dim aFile As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Random As #iNumber Len=32

    Seek #iNumber,1 REM Pozicio kie ekskribi

    Put #iNumero,, "Jen la unua linio de teksto" REM Plenigu linion per teksto

    Put #iNumero,, "Jen la dua linio de teksto"

    Put #iNumero,, "Jen la tria linio de teksto"

    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,,"Jen nova teksto"

    Get #iNumber,1,sText

    Get #iNumber,2,sText

    Put #iNumero,20,"Jen la teksto en rikordo 20"

    Print Lof(#iNumber)

    Close #iNumber

End Sub