OWBasic для Pocketviewer

Начало ВВЕДЕНИЕ Группа FILE Алфавитный указатель

Пример доступа к файлу с указателем файла

В этом примере все записки в одной категории читаются, и строка названия выводиться.

 
	INPUT "Категория: ",cat
	fp=-1:	            ! Устанавливается указатель файла для "first search"
$loop:	FILENEXT 3,cat,fp:  ! Чтение указателя для следующей записи
	IF fp=-1 GOTO ready:! No further record
	FILEREAD 3,cat,fp:  ! Чтение memo в FILEBUFFER
	FOR i=0 TO 20:      ! Первые 21 символ
	IF FILEBUFFER[i]=13 GOTO next
			    ! Конец строки?
	PRINT CHR$(FILEBUFFER[i]);
			    ! Вывод символа
	NEXT
$next:	PRINT:              ! Новая строка
	GOTO loop
$ready:	PRINT "Ready"

  • FILE - Доступ к файлу по указателю файла
  • FILEBUFFER - Внутренний буфер файла
Начало ВВЕДЕНИЕ Группа FILE Алфавитный указатель