Input функциясы

Ескерту : Егер Microsoft Jet Expression қауіптілігі ықтимал өрнектің есептелуіне жол бермейтін құмсалғыш режимінде іске қосылғанда, осы бөлімдегі функция, әдіс, нысан немесе сипат доғарылады. Құмсалғыш режимі туралы толық ақпарат алу үшін Анықтамадағы "құмсалғыш режимін" іздеңіз.

Бұл функция Input не Binary күйінде ашылған файлдан таңбалар бар Жолдағы деректер түрі мәнін қайтарады.

Синтаксис

Input(сан, [# ] файл атауы)

Input функциясында осындай дәлелдер бар:

Дәлел

Сипаттама

сан

Міндетті. Қайтарылатын таңбалар санын анықтайтын әрбір жарамды сандық өрнек.

файл атауы

Міндетті. Әрбір жарамды файл нөмірі.


Ескертпелер

Input функциясы оқылған деректер Print # не Put амалдағышы арқылы файлға жазылады. Мына функцияны Input не Binary күйінде ашылған файлдармен пайдалану керек.

Input # нұсқауынан айырмасы Input функциясы барлық оқылған таңбалармен, үтірлермен, кірістірме қайтаруларымен, жол ауыстырулармен, тырнақшалармен және бастапқы бос орындармен қоса қайтарады.

Егер файлдар Binary күйінде ашылса, файлды Input функциясы арқылы оқу әрекеті EOFШын мәнін қайтарғанша қате тудырады. EOF орнына LOF және Loc функцияларын екілік файлдарды Input функциясын немесе EOF функциясын шақырғанда Get функциясын пайдалану керек.

Ескерту :  Мәтіндік файлдардағы деректер байттары үшін InputB функциясы қолданылады. InputB функциясын пайдаланғанда сан дәлелі таңбалар санын емес, қайтарылатын байттар санын көрсетеді.

Мысал

Ескерту : Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (VBA) модулінде пайдаланылуын көрсетеді. VBA модулімен жұмыс істеу туралы көбірек ақпарат алу үшін, жайылмалы шаршыдағы Іздеу түймешігінің қасындағы Жасақтаушы сілтемелері түймешігін нұқып, іздеу жолағына бір немесе бірнеше шартты ендіріңіз.

Бұл мысал Input функциясы файлдан таңбаларды бірден оқып және Тексеру терезесінде шығару үшін пайдаланады. Бұл мысалда TESTFILE деректердің бірнеше жолдарымен мәтіндік файл деп болжайды.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Get one character.
Debug.Print MyChar ' Print to the Immediate window.
Loop
Close #1 ' Close file.
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×