Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Голова кипит помогите. (https://forum.antichat.xyz/showthread.php?t=59567)

Chrek625 22.01.2008 18:05
Голова кипит помогите.
 
ВОт у меня такая проблема я делаю один проект для зачёта по информатике и столкнулся с такой проблемой У меня есть большоё количество фотографий котрые нужно отдельно поместить на отдельную хтмл страницу каждую фотографию Помогите я уже зае..... каждую вставлять посоветуйте какой прогой можно упростить этот процес?

xcedz 22.01.2008 18:09
Можно накатать легенький скрипт автоматизацию на autoit ;)
Переименуешь свою колецию фото соответствующим образом, в скрипте поставишь счетчик и вперед (инфа на русском имеется )
Цитата:
справка на русском http://www.autoitscript.com/autoit3/docs.php

сама прога

http://www.autoitscript.com/autoit3/downloads.shtml

Chrek625 22.01.2008 18:15
я незнаю мне нужно бонально какаято прга которая поможет мне поместить каждую фотку на отдельную нтмл страницу и всё

xcedz 22.01.2008 18:20
Цитата:
Сообщение от Chrek625
я незнаю мне нужно бонально какаято прга которая поможет мне поместить каждую фотку на отдельную нтмл страницу и всё
банально почитать ну пусть один час и все поймешь.. нет ничего не возможного, хотя можешь подождать еще час и тебе подскажут другой вариант ;)

Kaimi 22.01.2008 18:38
Закинь файлы в диру со скриптом и запусти скрипт
PHP код:
<?
$directory = '.';
$handler = opendir($directory);

while ($file = readdir($handler)) 
    {
        if ($file != '.' && $file != '..' )
                {
                if (is_file($file))
                    {
                    $File = $file.".html";
                    $fh = fopen($File, 'w');
                    $Data = "<img border='0' src='$file' />";
                    fwrite($fh, $Data);
                    fclose($fh);
                    }
                }
    }

    closedir($handler);

?>

xcedz 22.01.2008 18:44
Цитата:
Сообщение от Kaimi
Закинь файлы в диру со скриптом и запусти скрипт
PHP код:
<?
$directory = '.';
$handler = opendir($directory);

while ($file = readdir($handler)) 
    {
        if ($file != '.' && $file != '..' )
                {
                if (is_file($file))
                    {
                    $File = $file.".html";
                    $fh = fopen($File, 'w');
                    $Data = "<img border='0' src='$file' />";
                    fwrite($fh, $Data);
                    fclose($fh);
                    }
                }
    }

    closedir($handler);

?>


тогда уж и денвер если не стоит на хр иле на висте поставить :D

Chrek625 22.01.2008 18:51
Всмысли скинуть файлы в дыру?

Talisman 22.01.2008 18:56
скинуть в файлы в дыру это как раз и есть: большоё количество фотографий котрые нужно отдельно поместить на отдельную хтмл страницу каждую фотографию

DisturbeR 22.01.2008 19:04
Есть такая банальная программа Photoshop. В средствах автоматизации - создание фотогалереи WEB.

xcedz 22.01.2008 19:15
Цитата:
Сообщение от Chrek625
Всмысли скинуть файлы в дыру?

не в дыру а в диру (директоия надеюсь в курсе что ето такое :) ) от иле dir (каталог) ;)

LEE_ROY 22.01.2008 21:50
Вот тож накидал чуток, кидаеш exe в папку с картинками, запускаеш... прога создаст файлы HTML в той же папке с названием - название.картинки.HTML.
В страничку допишед вот такое -
PHP код:
<html><body></a><img src="' + имя.картинки + '"></body></html> 
Что вроде и требовалось :D
Вот экзе - http://dump.ru/files/o/o1403731592/
А вот код (делфе):
PHP код:
program sorter;

//{$APPTYPE CONSOLE}

uses
    Windows, SysUtils,  Classes;

function ExtractFilePath(const FileName: string): string;
var i: longint;
begin
i := Length(FileName);
while (i > 0) and not (FileName[i] in ['/', '\', ':']) do Dec(i);
If I>0 then
  Result := Copy(FileName, 1, i)
else
  Result:='';
end;


var
SR:TSearchRec;
FindRes:Integer;
Str: String;
begin
FindRes:=FindFirst(ExtractFilePath(paramstr(0))+'*.jpg',faAnyFile,SR);
While FindRes=0 do
   begin
   Str:= '<html><body></a><img src="' + SR.Name + '"></body></html>';

   with TFileStream.Create(pchar(SR.Name + '.html'), fmCreate) do
   try
      Write(Str[1], Length(Str));
   finally
   Free;
   end;
      FindRes:=FindNext(SR);
   end;
FindClose(SR);
end. 

Chrek625 24.01.2008 19:31
Спасиба то что надо. Но обьясни почему когда я копирую этот код и пытаюсь его в дельфи 7 скомпилировать оно у меня не компилируеться и находит ошибку?

LEE_ROY 24.01.2008 20:28
просто фильтр форума покоцал исходник :) вот исходник в архиве рабочий - http://dump.ru/files/o/o339431404/

Chrek625 24.01.2008 22:08
Отлично спасибо.

Chrek625 24.01.2008 23:06
почемуто когда я компелирую этот код то он уже не работает. Хотя может я как то не так компелирую раскажи мне как это сделать в дельфи???

LEE_ROY 25.01.2008 00:47
я похож на учителя по делфе?:) я выложил в посте выше готовый Exe, и сорец. Если ты не в состоянии сконпелировать ГОТОВЫЙ проект, то какого извини хера ты делаеш в универе, или где ты там учишся... ппц :d

ах да, курсы по Делфе от Лироя, недорого!

Chrek625 25.01.2008 15:39
В школе. Я в дельфи никогда до этого ещё не работал просто ненадо ругаться

LEE_ROY 25.01.2008 15:58
клацни 2 раза по проекту, который я тебе скинул. Откроется Делфе с открытым сурсом этим, нажми Shift + F9, и проект готов :)


Время: 14:28