22.01.2008, 18:05
|
|
Участник форума
Регистрация: 06.06.2006
Сообщений: 163
С нами:
10490063
Репутация:
11
|
|
Голова кипит помогите.
ВОт у меня такая проблема я делаю один проект для зачёта по информатике и столкнулся с такой проблемой У меня есть большоё количество фотографий котрые нужно отдельно поместить на отдельную хтмл страницу каждую фотографию Помогите я уже зае..... каждую вставлять посоветуйте какой прогой можно упростить этот процес?
|
|
|
22.01.2008, 18:09
|
|
Познавший АНТИЧАТ
Регистрация: 14.01.2008
Сообщений: 1,165
С нами:
9644006
Репутация:
3099
|
|
Можно накатать легенький скрипт автоматизацию на autoit 
Переименуешь свою колецию фото соответствующим образом, в скрипте поставишь счетчик и вперед (инфа на русском имеется )
справка на русском http://www.autoitscript.com/autoit3/docs.php
сама прога
http://www.autoitscript.com/autoit3/downloads.shtml
Последний раз редактировалось xcedz; 22.01.2008 в 18:22..
|
|
|
|
22.01.2008, 18:15
|
|
Участник форума
Регистрация: 06.06.2006
Сообщений: 163
С нами:
10490063
Репутация:
11
|
|
я незнаю мне нужно бонально какаято прга которая поможет мне поместить каждую фотку на отдельную нтмл страницу и всё
|
|
|
|
22.01.2008, 18:20
|
|
Познавший АНТИЧАТ
Регистрация: 14.01.2008
Сообщений: 1,165
С нами:
9644006
Репутация:
3099
|
|
Сообщение от Chrek625
я незнаю мне нужно бонально какаято прга которая поможет мне поместить каждую фотку на отдельную нтмл страницу и всё
банально почитать ну пусть один час и все поймешь.. нет ничего не возможного, хотя можешь подождать еще час и тебе подскажут другой вариант
Последний раз редактировалось xcedz; 22.01.2008 в 18:23..
|
|
|
|
22.01.2008, 18:38
|
|
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
С нами:
9851426
Репутация:
1676
|
|
Закинь файлы в диру со скриптом и запусти скрипт
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);
?>
|
|
|
|
22.01.2008, 18:44
|
|
Познавший АНТИЧАТ
Регистрация: 14.01.2008
Сообщений: 1,165
С нами:
9644006
Репутация:
3099
|
|
Сообщение от 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);
?>
тогда уж и денвер если не стоит на хр иле на висте поставить 
|
|
|
|
22.01.2008, 18:51
|
|
Участник форума
Регистрация: 06.06.2006
Сообщений: 163
С нами:
10490063
Репутация:
11
|
|
Всмысли скинуть файлы в дыру?
|
|
|
|
22.01.2008, 19:15
|
|
Познавший АНТИЧАТ
Регистрация: 14.01.2008
Сообщений: 1,165
С нами:
9644006
Репутация:
3099
|
|
Сообщение от Chrek625
Всмысли скинуть файлы в дыру?
не в дыру а в диру (директоия надеюсь в курсе что ето такое  ) от иле dir (каталог)
|
|
|
|
22.01.2008, 21:50
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
С нами:
10265091
Репутация:
541
|
|
Вот тож накидал чуток, кидаеш exe в папку с картинками, запускаеш... прога создаст файлы HTML в той же папке с названием - название.картинки.HTML.
В страничку допишед вот такое -
PHP код:
<html><body></a><img src="' + имя.картинки + '"></body></html>
Что вроде и требовалось
Вот экзе - 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.
|
|
|
|
22.01.2008, 18:56
|
|
Постоянный
Регистрация: 22.04.2006
Сообщений: 566
С нами:
10554411
Репутация:
517
|
|
скинуть в файлы в дыру это как раз и есть: большоё количество фотографий котрые нужно отдельно поместить на отдельную хтмл страницу каждую фотографию
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
