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

Чтение данных с одного txt файла, запись данных во второй txt в определенную позицию

13.07.2014, 14:44. Просмотров 1714. Ответов 10
Метки нет (Все метки)

Добрый день, уважаемые форумчане! Нужна ваша помощь. Задача поставлена так: существует файл film2.txt (постараюсь его прикрепить для просмотра) в этом файле есть строки с именами режиссера фильма, продюсеров, композитора, оператора, жанром фильма, годом выпуска и т.д. В файле film1.txt есть эти данные. Нужно с первого файла вычитать фамилии и имена режиссера, продюсеров, композитора, жанр, год и вписать их во второй файл, на те места, где они прописаны во втором файле. Второй файл будет использоваться как шаблон, и вместо данных будет прописано:

<br>
<span class="title3">Продюсер:</span> сюда нужно будет вставить реальные данные с файла film1.txt<br>
<br>
<span class="title3">Сценарий:</span> сюда нужно будет вставить реальные данные с файла film1.txt<br>

Взять данные нужно здесь: (фрагмент файла film1.txt)

режиссер Джоэл Шумахер
сценарий Акива Голдсман, Боб Кейн
продюсер Питер МакГрегор-Скотт, Митчелл Е. Дотерайв, Уильям М. Элвин, ...
оператор Стивен Голдблатт

Заранее огромная благодарность всем кто ответит.
0
Вложения
Тип файла: txt film1.txt (4.1 Кб, 22 просмотров)
Тип файла: txt film2.txt (8.4 Кб, 19 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.07.2014, 14:44
Ответы с готовыми решениями:

Чтение из файла 'New.txt', запись четных строк в '1.txt', а нечетных в '2.txt'
В общем все работает, но есть &quot;НО&quot;, иначе бы не открывал тему. Содержимое исходного файла: 1 1 1...

Чтение данных из txt файла и запись их в Excel
помогите пожалста. Такая вот проблемка. Есть файл (*.txt) в нём такой вот текст примерно:...

Копирование данных из одного файла txt в другой файл txt
Помогите, пожалуйста, создать bat файл, который бы из одного документа, например, 1.txt копировал...

Ввод данных с txt файла, сортировка и запись результата в txt файлы
Доброго времени суток, такое задание, не могу сделать ввод данных из .тхт файла, чтобы потом...

10
Модератор
852 / 255 / 92
Регистрация: 23.03.2014
Сообщений: 1,557
17.07.2014, 21:03 2
Вопрос: а положение текста в файле (номер строки ) меняться будет?

Добавлено через 7 минут
Я понимаю, что файл - черновик к странице html, и очень возможно что не совсем оконченныый, но от ответа зависит подход к решению,

Добавлено через 9 минут
Если идея еще актуальна, тогда вопрос второй: т.к. файл -черновик html, то есть смысл не обрашать внимания на строки, поэтому, на мой взгляд, есть смысл. взять только имена из file1, но допустимо ли использовать при решении промежуточные файлы, либо только 2 текстовых?
0
0 / 0 / 0
Регистрация: 12.07.2014
Сообщений: 5
21.07.2014, 20:15  [ТС] 3
Здравствуйте Dax! Спасибо что ответили!!! Думал уже, что никто не поможет... Промежуточные файлы допустимо использовать. Мне важен конечный результат, чтобы в файле film2.txt имена и фамилии записывались на тех местах, где они расположены сейчас. Файл film2.txt - это конечный результат. Все имена и фамилии, год, жанр, рейтинги, описание фильма, актеры, названия, я сейчас ввожу руками, это занимает очень много времени. Фильмотека - мое хобби. Но много времени ей уделять не получается. Программа дала бы возможность быстрой записи нужной информации. Положение текста в файле film2.txt практически не меняется, кроме строки
"Описание", там текст занимает несколько строк, и строки "знаете ли вы что". В исходном файле, номера строк могут меняться, потому, как я не могу контролировать источник, откуда беру информацию. Я думал сделать поиск по ключевым словам (режиссер, продюсер, сценарий, жанр и т.д.) в файле film1.txt, далее идет копирование со строки, где находятся эти слова имен и фамилий личностей, или рейтинга, или названий стран и вставка скопированных данных в строго указанные места в файле film2.txt.

Еще раз спасибо, что вы откликнулись!!!
0
Модератор
852 / 255 / 92
Регистрация: 23.03.2014
Сообщений: 1,557
22.07.2014, 23:37 4
Есть кое-что, что необходимо проясниь, а именно - количество полей в одной записи(список) .
0
0 / 0 / 0
Регистрация: 12.07.2014
Сообщений: 5
23.07.2014, 22:37  [ТС] 5
Немного не понял, что подразумевается под количеством полей в одной записи? Добавлю рисунок конечного отображения странички: Если нужен список всех полей, которые будут заполняться, то их видно на рисунке. Еще одна проблема состоит в том, что поле "Описание" и поле "Знаете ли вы что" более длинные по содержанию... и еще поле "Знаете ли вы что" разбито на абзацы, отмеченные маркерами. Поле "Рейтинг" можно пропустить, так как оно сделано повторением символов, а считаю я сам. Поле "студии" и поля, относящиеся к до. информации о фильме пропускаем, буду добавлять руками...
0
Миниатюры
Чтение данных с одного txt файла, запись данных во второй txt в определенную позицию  
Sergio Leone
23.07.2014, 23:01
  #6

Не по теме:

Извините, что вмешиваюсь в ваше обсуждение проблемы,
меня уже неделю мучает вопрос - а почему, собственно, выбран Turbo Pascal ?!!!!!

0
0 / 0 / 0
Регистрация: 12.07.2014
Сообщений: 5
23.07.2014, 23:23  [ТС] 7
Ничего... Все нормально... Sergio Leone, спасибо, что написали!!! На самом деле, Turbo Pascal выбран потому, что я хотя бы что-то помню из универа об этом языке программирования... Язык программирования для решения, заданного мною вопроса не критичен... Я понимаю, что сейчас есть множество других сред программирования, но, увы... я с ними не знаком. Если можно реализовать мою просьбу проще и рациональнее, буду благодарен всем кто поможет!!!
0
Модератор
852 / 255 / 92
Регистрация: 23.03.2014
Сообщений: 1,557
24.07.2014, 09:29 8
Имелась ввиду вся информация о фильме (одном), которая должна быть внесена на сайт(оператор, сценарий и т. д. )
0
Sergio Leone
24.07.2014, 09:38
  #9

Не по теме:

Цитата Сообщение от user 2014 Посмотреть сообщение
На самом деле, Turbo Pascal выбран потому, что я хотя бы что-то помню из универа об этом языке программирования...
Знаете немного Pascal?! Отлично!!
Тогда возьмите FreePascal (или IDE Lazarus + FreePascalCompiler) - это тот же Паскаль, только современный. И полностью бесплатный.
Ну, или, если совесть не мучает, возьмите Delphi - это тоже Паскаль, только современный и не бесплатный! ;)


И ещё. А зачем Вам знать язык программирования, когда Вы всё равно программу самостоятельно не пишете, а просите кого-то написать Вам?! Вы собираетесь её дорабатывать?

0
Модератор
852 / 255 / 92
Регистрация: 23.03.2014
Сообщений: 1,557
24.07.2014, 10:07 10
Есть кое что в наработках (среда .net так как кодировка)
получился некоторый прсмотщик(пишет резервнй файл с информацией, по номеру строки в черновике показывает ее, чтоб понятно было куда вписывать, дальше -пока завис )
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
53
54
55
56
57
58
59
60
61
62
63
64
65
unit my;
interface
type film=record
director:string;
prod:string;
cpmpozer:string;
oper:string;
kind:string;
end;
var gr:film;
type fal=TEXT;
type far= array[1..120] of film;
type fas=array[1..1120 ] of string;
var fp:fal;
var x:far;
var y:fas;
var s,str:string;
var m,j,n:integer;
var v:char;
var fp1,fp2,fp3:fal;
procedure rescue(fp:fal; x:far );
procedure open(var fp:fal; var y:fas);
procedure find(var m:integer; var fp, fp1:fal;  var s:string; var v:char);
implementation
procedure rescue(fp:fal; x:far );
var i:integer;
begin
rewrite(fp);
writeln('how many films');
readln(n);
for I:=1 to n do begin
with x[i] do begin
writeln('enter director name');
readln(director);
writeLN (fp,director);
end;
end;
close(fp);
writeln('резерв есть ');
end;
procedure open(var fp:fal; var y:fas); 
begin
reset(fp);
J:=1;
while not eof(fp) do begin
readln(fp,y[j]);
WRITELN('DIRECTORS');
writeln(y[j],' ');
writeln;
j:=j+1;
end;
close(fp);
end;
procedure find(var m:integer; var fp, fp1:fal;  var s:string; var v:char);
var i:integer;
begin
writeln('введите номер строки с которой начмнается ввод данных');
read(m);
reset(fp1);
for I:=1 to m do
readln(fp1,s);
writeln(s);
close(fp1);
end;
end.
Pascal
1
2
3
4
5
6
7
8
9
program prog;
uses my;
begin
assign(fp, 'f:\files\cost\turbo\RESERV.TXT');
assign(fp1, 'f:\files\cost\turbo\copy.txt'); 
rescue(fp, x );
open( fp,y);
find( m, fp, fp1,s,v);
end.
Добавлено через 4 минуты
Если у кого-нибудь есть идеи как довести это до ума -давайте доведем
Я взялся из интереса говорю сразу.
Завис на том, что положение строк в обоих файлах произвольное(по задумкеuser 2014, ) - сложновато вывести позицию чтения и записи.
Ногами сильно прошу не бить.
0
0 / 0 / 0
Регистрация: 12.07.2014
Сообщений: 5
24.07.2014, 23:24  [ТС] 11
Добрый вечер!!! Изначально, я думал строить алгоритм на поиске строк с ключевыми словами - режиссер, продюсер, жанр, год и т.д., так как структура файла film1.txt практически не меняется, за исключением описания и "знаете ли вы что...", далее копируем найденные строки, удаляем лишние символы. Далее открываем файл film2.txt и ищем строки, содержащие ключевые слова Продюсер:</span>, Сценарий:</span> и т.д. и сюда поочередно для каждого поля вставляем строки, скопированные с файла film1.txt. Ну... как-то так.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.07.2014, 23:24

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

Чтение и парсинг одного файла, запись данных во второй. Исправить код
Задание. Есть текстовый файл, он имеет структуру: Имя1 время1 время2. То есть примерно в файле...

Чтение и запись данных из txt в Excel
Всем привет! Подскажите, пожалуйста, как записать в Excel данные из txt-файла, если мне надо,...

Чтение данных из txt файла
Необходимо считать число из первой строки текстового файла и записать его значение в размерность...

Чтение и анализ данных из TXT файла
Добрый день. Помогите пожалуйста. Есть файл в котором данные вот такого содержания: Нужно ...


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

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

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