Іздеу функциясы

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

Ашу амалдағышы арқылы ашылатын файлдағы ағымдық оқу/жазу орнын көрсететін Ұзын деректер түрі түріндені мәнін анықтау үшін.

Синтаксис

Іздеу(файлнөмірі)

Міндетті файлнөміріаргумент - жарамды файл нөмірі бар бүтін сан деректер түрі.

Ескерімдер

Іздеу функциясы, 1 мен 2,147,483,647 (яғни 2^31 – 1) қоса алғандағы мәнді қайтарады.

Төмендегі мысалда, файлға қатынаудың әрбір режиміне арналған қайтарылатын мәндер сипатталған.

Режим

Қайтарылатын мән

Кездейсоқ

Келесі оқылған немесе жазылған жазбаның нөмірі

Бинарлық,
Шығыс,
Қосу,
Кіріс

Келесі операция орын алатын байттың орналасуы. Файлдағы ең бірінші байттың орналасу деңгейі - 1, екінші байттың орналасу деңгейі - 2, т.с.с.


Мысал

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

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

Type Record    ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

Кездейсоқ режимде ашылған файлдар үшін, Іздеу функциясы, келесі жазбаның нөмірін қайтарады.

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

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

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

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

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

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

×