Вариантов для хранения данных в настоящее время существует множество, но куда деваться от старых добрых текстовых файлов.
Давайте посмотрим, как можно содержимое таблицы построчно записать в текстовый файл, да и еще, скажем, в ОЕМ (DOS-овой) кодировке.
Возьмем таблицу с личными данными студентов и запишем в файл их ФИО:
#define cWordBreak ' ' && разделитель слов cTxtFile = putfile('Имя файла:', 'report', 'TXT') && стандартный диалог для сохранения файла if len(cTxtFile) > 0 hTxtFile = fcreate(cTxtFile) && создаем, открываем файл и получаем на него указатель if hTxtFile < 0 messagebox('Не удалось создать файл ' + cTxtFile) else use students && открываем таблицу scan && пробегаем по всем строкам таблицы cOutString = lname + cWordBreak + fname +; cWordBreak + sname * запись в файл nWriteResult = fputs(hTxtFile, ansitooem(cOutString)) if nWriteResult <= 0 messagebox('Ошибка записи в файл') exit endif endscan use && закрываем таблицу fclose(hTxtFile) && закрываем файл endif endif
Результат:
Получили нужный нам текстовый файл.