Rename .txt

[voytik]

Доброго времени суток!
Гложет вопрос на тему:

необходимо по запуску программы, чтобы у текстового файла изменялся номер в названии на +1 число
то есть допустим есть текстовый документ 'Отчет по предприятию 9', чтобы в итоге было не 9, а 10.
проблема состоит в том, что название до цифры будет меняться. После программа закрывается.
Возможно ли это реализовать?

я написал прогу, где при запуске txt документ создается новый и из старого достает всю инфу и имя, присваивая новому на 1 ед. выше, при этом старый txt удаляется. Недостаток только в том, что если переименовать файл новый как то, то следующий уже либо не создастся, либо создастся с одним только вышеупомянутым числом.
функцию Rename здесь может как то помочь?

ниже приведен пример, как это сделал я. ссылка на прогу: https://cloud.mail.ru/public/GEa4/vzuKNrd6K

#include <vcl.h>
#pragma hdrstop
#include <IdGlobal.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double pepa2 ;
 double pepa3 ;
double pepa=1  ;
AnsiString kira;
AnsiString text;
//--------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
 Memo2->Lines->Clear();
Memo2->Lines->LoadFromFile("C:\\ntw\\Win32\\Debug\\top.txt");


Edit1->Text=Memo2->Lines->Text;
pepa2=StrToInt(Edit1->Text);

 Memo3->Lines->Clear();
 Memo3->Lines->LoadFromFile("C:\\ntw\\Win32\\Debug\\"+ FloatToStr(pepa2) +".txt");

pepa3=pepa2+pepa;


AnsiString FileName="C:\\ntw\\Win32\\Debug\\" + FloatToStr(pepa2) + ".txt";
DeleteFile(FileName);

 kira=FloatToStr(pepa3);
 Memo1->Lines->Clear();
 Memo1->Lines->Text=Memo3->Lines->Text;
Memo1->Lines->SaveToFile("C:\\ntw\\Win32\\Debug\\" + kira + ".txt");

Memo1->Lines->Clear();
Memo1->Lines->Text=kira;
Memo1->Lines->SaveToFile("C:\\ntw\\Win32\\Debug\\top.txt");

Application->Terminate();

}

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Alex11223]

Сообщение от voytik

проблема состоит в том, что название до цифры будет меняться

Ну если число всегда в конце, то и доставайте все цифры начиная с конца и до первой не цифры.

Сообщение от voytik

pepa2

Сообщение от voytik

pepa3

Сообщение от voytik

pepa

Сообщение от voytik

Memo2

Сообщение от voytik

Memo3

Сообщение от voytik

Memo1

Вы там сами не путаетесь в таких именах?

Сообщение от voytik

__fastcall TForm1::TForm1(TComponent* Owner)
            : TForm(Owner) 
{ 
.......

Application->Terminate(); 
}

оО
Это такой хитрый способ сделать программу без GUI?
Про консольные приложения не слышали?)

[Serge_Bliznykov]

Сообщение от voytik

я написал прогу, где при запуске txt документ создается новый и из старого достает всю инфу и имя, присваивая новому на 1 ед. выше, при этом старый txt удаляется.

это неверно. Если старый файл не нужен, то быстрее, проще и лучше просто переименовывать файл.

Сообщение от voytik

проблема состоит в том, что название до цифры будет меняться.

А вот это действительно проблема.
Если имя файла не известно, то как Вы его будете искать?
Если у файла отличительные признаки, по которым его можно найти среди других?
Этот файл единственный TXT ?
или как?

[voytik]

Сообщение от Alex11223

Вы там сами не путаетесь в таких именах?

улыбнуло)
я делал на скорую руку, прошу прощение, что не презентовал

Сообщение от Alex11223

"оО
Это такой хитрый способ сделать программу без GUI?
Про консольные приложения не слышали?)"

есть такое :D

[voytik]

Сообщение от Serge_Bliznykov

это неверно. Если старый файл не нужен, то быстрее, проще и лучше просто переименовывать файл.

не знаю как...

Сообщение от Serge_Bliznykov

Если имя файла не известно, то как Вы его будете искать?

будет только 2 текстовых документа в папке Debug это Top - там счетчик стоит имен и тот второй рабочий txt

[Serge_Bliznykov]

Сообщение от voytik

будет только 2 текстовых документа в папке Debug это Top - там счетчик стоит имен и тот второй рабочий txt

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

я бы предложил такой вариант.
1) считываем через FindFirst()/FindNext() по маске "*.txt"
2) выделяем имя найденного файла, если это имя целое число, то, увеличиваем число на 1 и переименовываем файл.

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

[voytik]

Сообщение от Serge_Bliznykov

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

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