Запись в файл путем извлечения данных из других файлов

@katusha17 · Регистрация: 04.03.2014

Author24 — интернет-сервис помощи студентам

Короче, есть два текстовых файла, в одном из которых набор данных типа real, а в другом - типа string.
Из каждого файла вытаскиваю по очереди данные и записываю их в третий файл.
Вот код.

Pascal

Program ZAPIS;
var
x1,y1,z1,x2,y2,z2,x3,y3,z3:real;
f,f1,f2:text;
s:string;
begin
  assign (f,'coord.txt');
  reset(f);
  while not eof(f) do
        begin
        read (f,x1,y1,z1,x2,y2,z2,x3,y3,z3);
             begin
             assign (f1,'VidTrg.txt');
             reset(f1);
             while not eof(f1) do
                   begin
                   read (f1,s);
                        begin
                        assign (f2,'vivod.txt');
                        rewrite(f2);
                        write(f2,x1,y1,z1,x2,y2,z2,x3,y3,z3,s);
                        close(f2)
                        end;
                   end;
             close(f1);
             end;
        close(f);
        end;
end.

На 9 строчке выдает ошибку, что файл не открыт для чтения.
Как так может быть, когда файл я уже открыла (reset(f))?!

@Cyborg Drone · 01.07.2014, 17:18

Есть ли файл coord.txt в папке с программой?

@katusha17 · 01.07.2014, 17:35 **[ТС]**

да, есть

@Cyborg Drone · 01.07.2014, 17:51

Тогда не знаю.

@katusha17 · 01.07.2014, 19:57 **[ТС]**

что еще может быть не в порядке с кодом?((

@Cyborg Drone · 01.07.2014, 20:58

Ну, может ещё длинные и/или с русскими буквами имена путей к папке с программой... Турбо паскаль старенький, может и не понять... Киньте файлы в корень любого Вашего диска (ну, например, c:\) и задайте путь в программе в явном виде (для первого файла - 'c:\coord.txt', ну для остальных, полагаю, ясно).

@katusha17 · 01.07.2014, 21:13 **[ТС]**

В других частях программы файл я описывала так же и всё прекрасно работало; не вижу смысла перетаскивать нужный мне файл и прописывать полный путь к нему...
С переменными проблем тоже быть не может, т.к. переменные абсолютно те же самые, которые были у меня в других частях программы.
Был небольшой косяк, когда я на 9 строчке кода что-то поменяла и в итоге в результирующем файле оказались неправильно записаны только данные из первого файла, где содержится набор цифр, второй же (текст латинскими буквами) записался идеально.

Kodzaev · 01.07.2014, 21:31

katusha17, приложи к своему следующему сообщению файлы "coord.txt" и "VidTrg.txt". Я хочу посмотреть.

@katusha17 · 02.07.2014, 14:00 **[ТС]**

COORD.TXT

VIDTRG.TXT

@Puporev · 02.07.2014, 14:10

katusha17, Так я же ответил Вам недавно в какой-то теме.

Добавлено через 5 минут
https://www.cyberforum.ru/post6387683.html

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	01.07.2014, 17:18	2
	Есть ли файл coord.txt в папке с программой? 0

@katusha17 2 / 2 / 3 Регистрация: 04.03.2014 Сообщений: 71
	01.07.2014, 17:35 [ТС]	3
	да, есть 0

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	01.07.2014, 17:51	4
	Тогда не знаю. 0

@katusha17 2 / 2 / 3 Регистрация: 04.03.2014 Сообщений: 71
	01.07.2014, 19:57 [ТС]	5
	что еще может быть не в порядке с кодом?(( 0

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	01.07.2014, 20:58	6
	Ну, может ещё длинные и/или с русскими буквами имена путей к папке с программой... Турбо паскаль старенький, может и не понять... Киньте файлы в корень любого Вашего диска (ну, например, c:\) и задайте путь в программе в явном виде (для первого файла - 'c:\coord.txt', ну для остальных, полагаю, ясно). 0

@katusha17 2 / 2 / 3 Регистрация: 04.03.2014 Сообщений: 71
	01.07.2014, 21:13 [ТС]	7
	В других частях программы файл я описывала так же и всё прекрасно работало; не вижу смысла перетаскивать нужный мне файл и прописывать полный путь к нему... С переменными проблем тоже быть не может, т.к. переменные абсолютно те же самые, которые были у меня в других частях программы. Был небольшой косяк, когда я на 9 строчке кода что-то поменяла и в итоге в результирующем файле оказались неправильно записаны только данные из первого файла, где содержится набор цифр, второй же (текст латинскими буквами) записался идеально. 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	01.07.2014, 21:31	8
	katusha17, приложи к своему следующему сообщению файлы "coord.txt" и "VidTrg.txt". Я хочу посмотреть. 0

@katusha17 2 / 2 / 3 Регистрация: 04.03.2014 Сообщений: 71
	02.07.2014, 14:00 [ТС]	9
	COORD.TXT VIDTRG.TXT 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	02.07.2014, 14:10	10
	katusha17, Так я же ответил Вам недавно в какой-то теме. Добавлено через 5 минут https://www.cyberforum.ru/post6387683.html 0