Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 06.06.2012
Сообщений: 5
1

Слияние двух текстовых файлов

25.10.2012, 14:45. Просмотров 1251. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста!! нужно разработать программу слияния двух текстовых файлов в один файл по принципу: строка первого файла, две строки от второго файла. Предусмотреть проверку существования исходных файлов и результирующего файла с выдачей диагностических сообщений, а также разбивку результирующего файла на страницы с указанием номера страницы. Длина страницы 60 строк. За ранее спасибо!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.10.2012, 14:45
Ответы с готовыми решениями:

Создание и обработка текстовых файлов
Хеллоу, нужна помощь. Выровнять текст в файле по правому краю самой длинной строки этого файла.

Слияние двух текстовых файлов
Ребят помогите плизз задали курсовую в универе на тему Разработать программу слияния двух...

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

Разработка программы для для слияния двух текстовых файлов
Требуется программа для слияния двух текстовых файлов. Условие задачи: "Разработать программу...

3
59 / 59 / 12
Регистрация: 24.10.2012
Сообщений: 168
25.10.2012, 16:15 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Program Sliv;
var
  tf1,tf2,tf3:TextFile;
  Str:Integer = 1;
  Count:Integer = 0;
 
Procedure AddStr(tf:TextFile);
var s:string;
begin
  if Eof(tf) then Exit;
  readln(tf,s);
  writeln(tf3,s);
  Inc(Count);
  if Count<60 then Exit;
  Inc(Str); 
  Writeln(tf3,'------ Страница № ' + intToStr(Str) + ' ------');
  Count:=0;
end;
 
begin
  if not fileExists('TextFile1') then Begin
    Writeln('Файл № 1 не найден');
    Readln;
    Halt(0);
  end;
  if not fileExists('TextFile2') then Begin
    Writeln('Файл № 2 не найден');
    Readln;
    Halt(0);
  end;
  if fileExists('TextFile3') then Begin
    Writeln('Файл № 3 уже существует');
    Readln;
    Halt(0);
  end;
 
  AssignFile(tf1,'TextFile1');
  AssignFile(tf2,'TextFile2');
  AssignFile(tf3,'TextFile3');
  reset(tf1);
  reset(tf2);
  rewrite(tf3);
  Writeln(tf3,'------ Страница № ' + intToStr(Str) + ' ------');
  While (not Eof(tf1)) or (not Eof(tf2)) do begin
    AddStr(tf1);
    AddStr(tf2);
    AddStr(tf2);
  end;
  CloseFile(tf3);
  CloseFile(tf2);
  CloseFile(tf1);
  end.
Написал прямо тут. Может где немного синтаксически ошибся.
0
0 / 0 / 0
Регистрация: 06.06.2012
Сообщений: 5
25.10.2012, 23:28  [ТС] 3
ни чего страшного спасибо огромное

 Комментарий модератора 
Правило форума 3.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
124 / 114 / 15
Регистрация: 26.04.2012
Сообщений: 330
Записей в блоге: 3
13.12.2012, 10:29 4
U-III, Алгоритм верный, правда код более Дельфийский.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2012, 10:29

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Создание программы с использованием текстовых файлов и файлов записи
Дан текстовый файл в котором хранится информация о 6 спорсменах. В нечетных строчкеах записаны ФИО,...

Осуществить слияние файлов в один
Имеются два файла сортировочных целых чисел All1 и All2 осуществить слияние файлов в один с...

Слияние элементов файлов F1 и F2 в файл F3
Дано два файла F1 и F2, каждый с которых содержит числа, благоустроенные за ростом. Разработать...

Работа с файлами. Слияние 2-х файлов в один.
Здравствуйте. Помогите сделать такую задачу - пусть файлы c и d с компонентами, являющимися...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.