Шаг 41 - Сохраняем данные в текстовый файл

Вариантов для хранения данных в настоящее время существует множество, но куда деваться от старых добрых текстовых файлов.

Давайте посмотрим, как можно содержимое таблицы построчно записать в текстовый файл, да и еще, скажем, в ОЕМ (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

Результат:

41_1.gif (8836 b)

Получили нужный нам текстовый файл.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Клементьев В.А.