OWBasic для Pocketviewer

Начало ВВЕДЕНИЕ Группа БУФЕР ФАЙЛА Алфавитный указатель

Пример чтения в буфер файла

   Пример показывает, как использовать FBSTRING для чтения строки из текстового файла в буфер:


! Чтение первой записки memo в категории 2
fp=-1
FILENEXT 3,2,fp: ! Установить to на первую запись
FILEREAD 3,2,fp: ! Читать запись (=memo)
FBINIT:          ! Установить внутренний указатель на начало буфера
$m
  s$=FBSTRING$(rc): ! Чтение одной строки
  if rc>0 goto mend: ! Успешно ?
  ? s$ :            ! Выходная строка
  goto m :          ! повторить
$mend

  • FILEBUFFER - Внутренний буфер файла
  • FBSTRING - Чтение/Запись строки в буфер файла (Текст)
  • FILENEXT - Поиск следующей записи
  • FILEREAD - Чтение записи из файла
Начало ВВЕДЕНИЕ Группа БУФЕР ФАЙЛА Алфавитный указатель