Satura rādītājs
EOF apraksts
Atgriež vērtību, kas norāda, vai faila beigas ir sasniegtas (Būla).
EOF sintakse
VBA redaktorā varat ierakstīt “EOF (”), lai skatītu EOF funkcijas sintaksi:
Funkcija EOF satur šādu argumentu:
Faila numurs: Jebkurš derīgs faila numurs.
Excel VBA EOF funkcijas piemēri
Lai pārbaudītu EOF funkciju, D diskā izveidojiet teksta failu “test.txt” (D: \ test.txt) Pieņemsim, ka faila saturs ir šāds.
| 123 | abc1 2 3xy z |
Lūdzu, palaidiet šādu kodu.
| 1234567891011 | Apakšējā ievade_Fx_Example ()Dim strContent kā virkneDim MyCharAtveriet "D: \ test.txt", lai ievadītu kā #1 'Atvērt failu.Darīt, kamēr nav EOF (1) 'Cilpa līdz faila beigām.MyChar = Input (1, #1) 'Iegūstiet vienu rakstzīmi.strContent = strContent & MyChar 'CilpaMsgBox strContentAizvērt #1 'Aizvērt failu.Beigu apakš |
Tad rezultāts būs šāds.
Šeit tika izmantota funkcija EOF, lai noteiktu, vai faila beigas ir sasniegtas.
