IBM Lotus Symphony


Príkaz Input# [Runtime]

Načíta údaje z otvoreného sekvenčného súboru.

Syntax:

Input #FileNumber As Integer; var1[, var2[, var3[,...]]]

Parametre:

FileNumber: Číslo súboru, obsahujúceho údaje, ktoré chcete načítať. Tento súbor musí byť otvorený príkazom Open, používajúcim kľúčové slovo INPUT.

var: Číselná alebo reťazcová premenná, ku ktorej priradíte hodnoty, načítané z otvoreného súboru.

Príkaz Input# načíta číselné hodnoty alebo reťazce z otvoreného súboru a tieto údaje priradí k jedenej alebo viacerým premenným. Číselná premenná sa načítava až po prvý znak zalomenia riadka (Asc=13), posun riadka (Asc=10), medzeru alebo čiarku. Reťazcové premenné sa načítavajú až po prvý znak zalomenia riadka (Asc=13), posun riadka (Asc=10) alebo čiarku.

Údaje a typy údajov v otvorenom súbore sa musia zobraziť v rovnakom poradí ako premenné, odovzdané do parametra "var". Ak priradíte k číselnej premennej iné ako číselné hodnoty, parameter "var" bude mať priradenú hodnotu "0".

K reťazcovej premennej nemôžu byť priradené záznamy, oddelené čiarkami. Úvodzovky (") v súbore sú tiež ignorované. Ak chcete načítať tieto znaky zo súboru, použite príkaz Line Input# a načítajte čisté textové súbory (súbory, obsahujúce len tlačiteľné znaky) riadok po riadku.

Ak je koniec súboru dosiahnutý počas načítavania údajového prvku, nastane chyba a proces je prerušený.

Príklad:

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, "toto je riadok textu"

Print #iNumber, "Toto je iný riadok textu"

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


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky