Выгрузка текстового документа в файл. Загрузка из файла в текстовый документ.

Так как сайт по для подготовки к экзаменам и обучению, я буду стараться писать статьи с примерами и пояснениями.
Для записи в файл используем Записать(<ИмяФайла>, <Кодировка>, <РазделительСтрок>), а для загрузки
Прочитать (<ИмяФайла>, <Кодировка>, <РазделительСтрок>)

Пример:

Имеется данные 5 человек в текстовом поле, необходимо выгрузить в файл и открыть.
Исходные данные: 
Иванов Иван Иванович, 20-05-1985;
Петрова Анна Ивановна, 28-08-1986;
Иванов Ольга Ивановна, 24-12-1983;
Сидоров Петр Сергеевич, 10-11-1975;
Малеева Анастасия Дминтиевна, 22-02-1999;
Результат в файле: 
Иванов Иван Иванович  20.05.1985г.
Петрова Анна Ивановна 28.08.1986г.
Иванов Ольга Ивановна 24.12.1983г.
Сидоров Петр Сергеевич 10.11.1975г.
Малеева Анастасия Дминтиевна 22.02.1999г.
//создаем новый тестовый документ
ТекДок=Новый ТекстовыйДокумент;
//указываем кодировку,
ТекДок.УстановитьТипФайла(КодировкаТекста.UTF8);
// добавляем текст
ТекДок.ДобавитьСтроку("Иванов Иван Иванович, 20-05-1985;");
ТекДок.ДобавитьСтроку("Петрова Анна Ивановна, 28-08-1986;");
ТекДок.ДобавитьСтроку("Иванов Ольга Ивановна, 24-12-1983;");
ТекДок.ДобавитьСтроку("Сидоров Петр Сергеевич, 10-11-1975;");
ТекДок.ДобавитьСтроку("Малеева Анастасия Дминтиевна, 22-02-1999;");
// записываем в переменную ВрСтрока текущий текст
ВрСтрока = ТекДок.ПолучитьТекст();
// удаляем запятую
ВрСтрока = СтрЗаменить(ВрСтрока,",","");
// заменяем "-" на точку
ВрСтрока = СтрЗаменить(ВрСтрока,"-",".");
// заменяем ";" на "г."
ВрСтрока = СтрЗаменить(ВрСтрока,";","г.");
// записываем в текстовый документ данные из ВрСтрока
ТекДок.УстановитьТекст(ВрСтрока);
//ТекДок.Показать(); // для проверки
//записываем в файл Клиент.txt
ТекДок.Записать("C:\Клиент.txt");
Осталось самое простое это открыть созданный файл и проверить результат
// создам новый тестовый документ
ТекДок2=Новый ТекстовыйДокумент;
// получу данные из файла
ТекДок2.Прочитать( "C:\Клиент.txt",КодировкаТекста.UTF8);
// выведем на экран
ТекДок2.Показать();
// в результате получили требуемый результат


comments powered by Disqus

Популярное