IBM Lotus Symphony


Open-setningen[kjøretid]

Åpner en datakanal.

Syntaks:

Open Filnavn som streng [For Mode] [Access IOMode] [Protected] As [#]Filnummer som heltall [Len = DatasetLength]

Parametere:

Filnavn: Navn og bane til filen du vil åpne. Hvis du røver å lese en fil som ikke finnes (Access = Read), vises en feilmelding. Hvis du prøver å skrive til en fil som ikke finnes (Access = Write), blir en ny fil opprettet.

Modus: Nøkkelord som angir filmodusen. Gyldige verdier: Append (Føy til sekvensiell fil), Binary (gir tilgang til data etter bytes ved hjelp av Get og Put), Input (åpner datakanal for lesing), Output (åpner datakanal for skriving) og Random (redigerer relative filer).

IOMode: Nøkkelord som definerer tilgangstypen. Gyldige verdier: Read (skrivebeskyttet), Write (lesebekyttet), Read Write (kan leses og skrives til).

Beskyttet: Nøkkelord som definerer sikkerhetsstatusen for en fil etter åpning. Gyldige verdier: Shared (filen kan åpnes med andre applikasjoner), Lock Read (filen er beskyttet mot lesing), Lock Write (filen er beskyttet mot skriving), Lock Read Write (nekter filtilgang).

FilNummer: Et heltallsuttrykk fra 0 til 511 som angir nummeret på en ledig datakanal. Du kan deretter sende kommandoer gjennom datakanalen for å få tilgang til filen. Filnummeret må bestemmes av FreeFile-funksjonen umiddelbart før Open-setningen.

DatasetLength: Definerer lengden på postene for filer med tilfeldig tilgang.

Merknadsikon Du kan bare endre innholdet i en fil som ble åpnet med Open-setningen. Hvis du prøver å åpne en fil som allerede er åpen, vises en feilmelding.

Eksempel:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "Dette er en linje med tekst"

Print #iNumber, "Dette er en annen linje med tekst"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

While not eof(iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumber

Msgbox sMsg

End Sub


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker