4 / 4 / 1
Регистрация: 14.03.2011
Сообщений: 31
1

Запись из файла в файл

14.05.2011, 17:51. Показов 751. Ответов 4
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var
c:string; i,j:integer;
s:array[1..100] of string[20];
f1,f2:text;
Begin
assign(f1,'C:\file1');
assign(f2,'C:file2');
reset(f1);
reset(f2);
k:=0;
while not eof(f1) do begin
k:=k+1;
readln(f1,s[k]);
end;
for i:=1 to k do
begin
append(f2);
writeln(f2,s[i]);
end;
close(f1);
close(f2);
end.
В файлах f1 и f2 находятся слова в таком виде
f1:
солнце
небо
вода
природа
f2:
вода
солнце

Нужно что бы после выполнения программы файл f2 выглядел вот так
f2:
вода
солнце
небо
природа

У меня пока получилось только дописать в конец второго файла все слова из первого файла, не могу понять как организовать проверку на совпадения слов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2011, 17:51
Ответы с готовыми решениями:

Запись в 2 файла, сравнение и запись в 3-ий файл
Нуждаюсь в помощи с программами, написаны, вот надо готовить отчеты, но проблема в том, что у нас...

Надо организовать чтение из файла и запись в файл
Есть массив m на n, надо организовать чтение из файла и запись в файл

Запись - чтение двумерного массива в файл - из файла
Ребят, помогите пожалуйста к задаче https://www.cyberforum.ru/pascal/thread100714.html написать...

Запись подготовленных данных во внешний файл и программа обработки созданного внешнего файла.
ВОт надо программку написать)а я хз как( Подготовить данные об абитуриентах, поступающих в...

4
46 / 46 / 5
Регистрация: 24.03.2011
Сообщений: 315
14.05.2011, 18:37 2
Хотел написать алгоритм,но вот увидел вашу программу и задумался...

Вы что, специально ее вставили,чтобы ее приняли за ваши "наработки" или что?

Мало того,что программа не выводит описанного вами значения, но она еще написана на скорую руку-переменные не объявлены;те, которые объявлены вообще не в деле.
0
4 / 4 / 1
Регистрация: 14.03.2011
Сообщений: 31
14.05.2011, 18:46  [ТС] 3
Не понимаю в чем проблема, но для вас постараюсь объяснить, это не полноценная программа, а всего лишь часть моего курсового проекта, никакого вывода мне не нужно, это просто кусок кода который должен выполнять одну функцию записывать слова из 1 файла во второй, а те слова которые уже есть во втором файле пропускать.
0
46 / 46 / 5
Регистрация: 24.03.2011
Сообщений: 315
14.05.2011, 19:48 4
Код писать лень,напишу алгоритм:

в строку "й" кидаем весь файл1.
в строку "у" кидаем первую строку файла номер1.
файл2 кидаем в строку "к".
если "у" есть в строке "к"(функция pos),тогда все ок,иначе к:=к+у;
удаляем строку "у" из строки "й" и создаем новое значение строки "у"-следующая строка из файла "й"(и все вышеперечисленное делаем до тех пор,пока "й" не будет пустым.
потом переписываем значение файла2: функцией rewrite записываем туда строку "к".

Функции,которые пригодятся вам:
Eof(f)
Eoln(f)
0
4 / 4 / 1
Регистрация: 14.03.2011
Сообщений: 31
14.05.2011, 20:19  [ТС] 5
не прокатит, у строки диапазон 1..255, а у меня во втором файле 5000 слов. так что это не вариант

Добавлено через 14 минут
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
uses crt;
var
c:string; i,j,k,d,h,p:integer;
s:array[1..100] of string[20];
s1:array[1..100] of string[20];
s2:array[1..100] of string[20];
f1,f2:text;
Begin
assign(f1,'C:\file1');
assign(f2,'C:file2');
reset(f1);
reset(f2);
k:=0;
while not eof(f1) do begin
k:=k+1;
readln(f1,s[k]);
end;
d:=0;
p:=0;
while not eof(f2) do begin
d:=d+1;
readln(f2,s1[d]);
end;
writeln(d);
h:=0;
for i:=1 to k do
 begin
  for j:=1 to d do
   begin
    if s[i]<>s1[j] then inc(h);
    if h=d then
     begin
      inc(p);
      s2[p]:=s[i];
     end;
   end;
 end;
append(f2);
for i:=1 to p do
 begin
 writeln(f2,s2[p]);
 end;
close(f1);
close(f2);
end.
Вот тщетная попытка решить проблему, но вот записывается только первое слово и всё.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2011, 20:19

Переписать с сохранением порядка следования компоненты файла а1 в файл f2 а файла f2 в файл f1
Помогите пожалуйста товарищи программисты решить мой вариант на тему файлы... Вариант 5 1. Даны...

Запись чисел из файла 1, и запись в файл 2 в отсортированном виде
Задание: Есть файл 1, в нем находятся числа, нужно их отсортировать по возрастанию и записать в...

Чтение из файла А, выборка и запись в файл В (текстовые)
Нужно считывать из файла file1.txt данные. сразу сравнить и записать. Как это реализовать? Сразу на...

Вычислить среднее арифметическое чисел из файла и запись всех чисел меньших него в файл B.txt
Напишите программу, в которой происходит чтение целых чисел из файла A.txt (произведите проверку на...


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

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

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