Срочно!!!

← →
OzoM (2007-09-08 16:05) [0]

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

← →
vpbar © (2007-09-08 16:10) [1]

10 баксов к вечеру сделаю. Нужно ТЗ поподробнее.

← →
oxffff © (2007-09-08 16:10) [2]

> Нужно ТЗ поподробнее.

А как файлы расширять будешь?

← →
vpbar © (2007-09-08 16:11) [3]

Как как в ширь :)

← →
Anatoly Podgoretsky © (2007-09-08 16:12) [4]

> vpbar (08.09.2007 16:11:03) [3]

А углублять?

← →
oxffff © (2007-09-08 16:13) [5]

> Anatoly Podgoretsky © (08.09.07 16:12) [4]
> > vpbar (08.09.2007 16:11:03) [3]
>
> А углублять?

Это следующее.

Срочно!!! Углублять !!!

← →
vpbar © (2007-09-08 16:17) [6]

Нее как углублять я незнаю. Поэтому не возьмусь.

← →
Dib@zol © (2007-09-08 16:18) [7]

program Test;

{$APPTYPE CONSOLE}
{$Warnings off}
{$Hints off}

uses
Windows;

var
buf, ext : string;

function RemoveExt(s:string):string;
var i : Word;
begin
Result:=s;
i:=Length(Result);
while (i<>0)and(Result[i]<>".") do begin
Delete(Result, i, 1);
Dec(i);
end;
end;

begin
Write("Enter a full filename with an extenstion: ");
ReadLn(buf);
Write("Enter the new extenstion: ");
ReadLn(ext);
MoveFile(PChar(buf), PChar(RemoveExt(buf)+ext));
Write("Removing done! Press any key... ");
ReadLn;
end.

← →
Anatoly Podgoretsky © (2007-09-08 16:22) [8]

> vpbar (08.09.2007 16:17:06) [6]

Тогда возьмись за удлинение.

← →
oxffff © (2007-09-08 16:23) [9]

Dib@zol © (08.09.07 16:18) [7]

:)

SysUtils

function ExtractFileExt(const FileName: string): string;

← →
Anatoly Podgoretsky © (2007-09-08 16:24) [10]

> oxffff (08.09.2007 16:23:09) [9]

ChangeFileExt наиболее правильно.

← →
Черный Шаман (2007-09-08 16:31) [11]

function GhangeExt(Filename: String; NewExt: string): boolean; var lNewFileName: String; begin Result := False; //проверка на дирректорию if DirectoryExists(Filename) then Exit; if not FileExists(Filename) then Exit; // lNewFileName := ChangeFileExt(Filename,NewExt); Result := MoveFileA(@Filename[1], @lNewFileName[1]); end;

Использование
GhangeExt("d:\config.sys", ".sas");

← →
oxffff © (2007-09-08 16:34) [12]

> Anatoly Podgoretsky © (08.09.07 16:24) [10]
> > oxffff (08.09.2007 16:23:09) [9]
>
> ChangeFileExt наиболее правильно.

О. :)

Вот что значит опыт.

← →
Anatoly Podgoretsky © (2007-09-08 16:37) [13]

> Черный Шаман (08.09.2007 16:31:11) [11]

Теперь делаем последний вздох

Ren old new

← →
DrPass © (2007-09-08 16:54) [14]

> Черный Шаман (08.09.07 16:31) [11]

> if DirectoryExists(Filename) then Exit;
> if not FileExists(Filename) then Exit;
> //
> lNewFileName := ChangeFileExt(Filename,NewExt);
> Result := MoveFileA(@Filename[1], @lNewFileName[1]);

Ты, когда утром идешь в школу, предварительно звонишь директору, спрашиваешь, не закрыли ли еще школу? Потому, небось, звонишь завучу, спрашиваешь, не отменили ли занятия? Потом еще проходишь медосмотр и тесты на биоритмы, и только в случае успеха собираешь портфель?

← →
ProgRAMmer Dimonych © (2007-09-08 16:56) [15]

> DrPass © (08.09.07 16:54) [14]
> Ты, когда утром идешь в школу, предварительно звонишь директору,
> спрашиваешь, не закрыли ли еще школу? Потому, небось, звонишь
> завучу, спрашиваешь, не отменили ли занятия? Потом еще проходишь
> медосмотр и тесты на биоритмы, и только в случае успеха
> собираешь портфель?

Спасибо, надо взять на вооружение :)

← →
oxffff © (2007-09-08 17:34) [16]

> Спасибо, надо взять на вооружение :)

По анкете ты уже закончил школу.
Или решил задержаться?

← →
Черный Шаман (2007-09-08 17:35) [17]

> Anatoly Podgoretsky © (08.09.07 16:37) [13]
>
> > Черный Шаман (08.09.2007 16:31:11) [11]
>
> Теперь делаем последний вздох
>
> Ren old new

Однофигственно
function RenameFile(const OldName, NewName: string): Boolean; begin {$IFDEF MSWINDOWS} Result := MoveFile(PChar(OldName), PChar(NewName)); {$ENDIF} {$IFDEF LINUX} Result := __rename(PChar(OldName), PChar(NewName)) = 0; {$ENDIF} end;

> Черный Шаман (08.09.2007 17:35:17) [17]

Ты не понял, зачем писать, если это есть во всех начиная с ДОС 1

← →
Черный Шаман (2007-09-08 17:36) [19]

> DrPass © (08.09.07 16:54) [14]
>
>
> > Черный Шаман (08.09.07 16:31) [11]
>
>
> > if DirectoryExists(Filename) then Exit;
> > if not FileExists(Filename) then Exit;
> > //
> > lNewFileName := ChangeFileExt(Filename,NewExt);
> > Result := MoveFileA(@Filename[1], @lNewFileName[1]);
>
>
> Ты, когда утром идешь в школу, предварительно звонишь директору,
> спрашиваешь, не закрыли ли еще школу? Потому, небось, звонишь
> завучу, спрашиваешь, не отменили ли занятия? Потом еще проходишь
> медосмотр и тесты на биоритмы, и только в случае успеха
> собираешь портфель?

Да нет, просто привычка оставшаяся после разработки софта для военных прапорщиков. Они крайне изобретательны.

← →
Черный Шаман (2007-09-08 17:37) [20]

> Anatoly Podgoretsky © (08.09.07 17:35) [18]
>
> > Черный Шаман (08.09.2007 17:35:17) [17]
>
> Ты не понял, зачем писать, если это есть во всех начиная
> с ДОС 1

Тем что я часто работаю с Unicode именами, а там можно написать MoveFileW.

> [0] OzoM (08.09.07 16:05)

Explorer.exe

> oxffff © (08.09.07 17:34) [16]
>
> > Спасибо, надо взять на вооружение :)
>
>
> По анкете ты уже закончил школу.
> Или решил задержаться?

Так все проверки никак не выполнит.

> oxffff © (08.09.07 17:34) [16]
> > Спасибо, надо взять на вооружение :)
> По анкете ты уже закончил школу.
> Или решил задержаться?

Хм... Полез в анкету, проверил дату рождения. Всё правильно. Неужели действительно засиделся за компом? В полных 6 лет пошёл в первый класс. Т.е. в 1997 г. Сейчас 2007 г., т.е. как раз 11-й класс. А я-то испугался :)

Вас разводят, как детей, а вы и рады. До мокрых подгузников...:)

← →
Zk-16 (2007-09-10 08:57) [25]

А не проще тупо создать батник и в нем написать такую строчку

ren *.*A *.*B // где "*A" текущее расширение, а "*В" необходимое расширение

и при запуске этого файлика он будет менять все файлы с расширением *А на расширение *В ..... и ВСЁ ...

Срочно!!! Найти похожие ветки