Работа с файлом

@Iceprera · Регистрация: 14.01.2012

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

Даны два файла произвольного типа. С помощью процедуры Rename поменять местами их содержимое.

вопрос. как это сделать? с помощью rename можно только переименовать же? или я не прав? я хотел создать два файла и просто переименовать их, но так ничего не получилось. помогите кто сможет ребят =)

Одиночка · 20.03.2012, 23:15

А перименовать сначала один в произвольное имя.
Потом другой в то что нужно.
Потом первый из того, что сделал - в другой.
X->Z, Y->X, Z->Y.
Или я чего-то не понял.

@Iceprera · 21.03.2012, 08:18 **[ТС]**

Одиночка, спасибо попробую

Одиночка · 21.03.2012, 08:29

Есть какая-то функция для получения уникального имени файла. Извини не помню. Вечером найду.

@LegionnaireFH · 21.03.2012, 08:58

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

Приведите пример кода, который использовали для переименовывания файлов.

@aaleksander · 21.03.2012, 09:06

Сообщение от Одиночка

Есть какая-то функция для получения уникального имени файла. Извини не помню. Вечером найду.

Delphi
1
2
3
4
5
var
  tmpName: string;
begin
  SetLength(tmpName, MAX_PATH + 1);
  GetTempFileName('', 'tmp_', 0, PAnsiChar(tmpName));

@Iceprera · 21.03.2012, 18:39 **[ТС]**

LegionnaireFH,

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
var
   myFile : TextFile;
   text   : string;
 
 begin
  
   AssignFile(myFile, 'Test.txt');
   ReWrite(myFile);
 
 
   WriteLn(myFile, 'текст');
   WriteLn(myFile, 'текст2');
 
 
   CloseFile(myFile);
 
 
   DeleteFile('NewName.txt');
   Rename(myFile, 'NewName.txt');
 
 
   AssignFile(myFile, 'NewName.txt');
   ReSet(myFile);
 
 
   while not Eof(myFile) do
   begin
     ReadLn(myFile, text);
     ShowMessage(text);
   end;
 
  
   CloseFile(myFile);
 end;

vj;может как то так. создаю файл, записываю в него данные, делаю попытку переименовать , читаю, и закрываю опять. как переделать ее ? что бы соответствовала заданому условию

@LegionnaireFH · 21.03.2012, 19:36

Delphi
1
2
3
4
5
begin
  RenameFile('C:\Test.txt','C:\Test222.txt');
  RenameFile('C:\Test2.txt','C:\Test111.txt');
  readln;
end.

При условии, что у вас в локальном диске C:\ создан файл Test.txt с содержимым "текст" и файл Test2.txt с содержимым текст2. И не забудьте проверить содержимое файлов после завершения работы программы.

@Iceprera · 21.03.2012, 19:39 **[ТС]**

LegionnaireFH, а разве нельзя просто два файла запихать в папку спрограммой ?

@LegionnaireFH · 21.03.2012, 19:42

Можно. Тогда "C:\" в коде нужно убрать.

@Iceprera · 21.03.2012, 19:52 **[ТС]**

LegionnaireFH, =)

Одиночка · 21.03.2012, 23:23

А по моему для решения согласно условия задачи нужно писать такой код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program FileChangeFile;
{$APPTYPE CONSOLE}
uses
  Windows, SysUtils;
 
var
  tmpName: string;
begin
  {Получение уникального имени файла}
  SetLength(tmpName, MAX_PATH + 1);
  GetTempFileName('', 'tmp_', 0, PAnsiChar(tmpName));
  DeleteFile(tmpName);
 
  RenameFile('Имя файла 1',tmpName);
  RenameFile('Имя файла 2','Имя файла 1');
  RenameFile(tmpName,'Имя файла 2');
  readln;
end.

@Iceprera · 22.03.2012, 02:54 **[ТС]**

Одиночка, хороший вариант =) спасибо =)

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Iceprera 0 / 0 / 0 Регистрация: 14.01.2012 Сообщений: 42

	Работа с файлом 20.03.2012, 22:57. Показов 2142. Ответов 12 Метки нет (Все метки) Даны два файла произвольного типа. С помощью процедуры Rename поменять местами их содержимое. вопрос. как это сделать? с помощью rename можно только переименовать же? или я не прав? я хотел создать два файла и просто переименовать их, но так ничего не получилось. помогите кто сможет ребят =) 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	20.03.2012, 23:15
	А перименовать сначала один в произвольное имя. Потом другой в то что нужно. Потом первый из того, что сделал - в другой. X->Z, Y->X, Z->Y. Или я чего-то не понял. 1

@Iceprera 0 / 0 / 0 Регистрация: 14.01.2012 Сообщений: 42
	21.03.2012, 08:18 [ТС]
	Одиночка, спасибо попробую 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	21.03.2012, 08:29
	Есть какая-то функция для получения уникального имени файла. Извини не помню. Вечером найду. 1

@Iceprera 0 / 0 / 0 Регистрация: 14.01.2012 Сообщений: 42
	21.03.2012, 19:39 [ТС]
	LegionnaireFH, а разве нельзя просто два файла запихать в папку спрограммой ? 0

@LegionnaireFH 8 / 8 / 1 Регистрация: 20.03.2012 Сообщений: 28
	21.03.2012, 19:42
	Можно. Тогда "C:\" в коде нужно убрать. 1

@Iceprera 0 / 0 / 0 Регистрация: 14.01.2012 Сообщений: 42
	21.03.2012, 19:52 [ТС]
	LegionnaireFH, =) 0

@Iceprera 0 / 0 / 0 Регистрация: 14.01.2012 Сообщений: 42
	22.03.2012, 02:54 [ТС]
	Одиночка, хороший вариант =) спасибо =) 0

Работа с файлом

Решение