Блог mev'a

Скидки интернет-магазина Ozon.ru

mev — Tue, 31 Jan 2012 11:40:02 PST

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

Так случилось у меня и с интернет-магазином Ozon.ru. Он всем хорош, но навигация немного странная. Товары со скидками "размазаны" по всему каталогу.

Так вот на днях я написал небольшую программку, которая анализирует содержимое XML-каталога и выявляет товары, по которым снизилась цена. Информация по этим товарам выкладывается на отдельной странице у меня на сайте. Ссылки с продуктов ведут на страницы продуктов самого Озона. Добавил туда удобную сортировку: можно сортировать по скидке как в процентах, так и в рублевом эквиваленте. Также есть и поиск.

В общем это кусочек Ozon.ru - кусочек со скидками.

Просмотреть скидки OZON.RU.

Информация по цене обновляется раз в два дня.

Связанные записи

Осень. Холодает.

mev — Fri, 07 Oct 2011 03:42:47 PDT

На земле-то уже холодновато

Связанные записи

Отличное начало отпуска

mev — Sat, 01 Oct 2011 13:02:16 PDT

Щука на Пахре

Река Пахра. Щучка на 800гр. Отлично!

Связанные записи

Вкусные, креативные торты на заказ

mev — Mon, 11 Jul 2011 05:48:19 PDT

Хочу порекомендовать отличного кондитера - Кристина Кулютникова (группа ВКонтакте - Подсласти себе жизнь!).

На выходных попробовали свадебный торт:

Потрясающий свадебный торт

Было очень вкусно.

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

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

Отличный подарок фанатам футбола

Креатив не знает границ

В общем, если у кого намечается торжество, можете подсластить себе жизнь, заказав торт у Кристины (группа ВКонтакте - Подсласти себе жизнь!).

Связанные записи

Функция Excel для разметки ссылок метками Google Analytics

mev — Thu, 07 Jul 2011 01:49:18 PDT

Столкнувшись с рядом недоработок в Компоновщике URL от Google (в частности Google Analytics: ссылки, метки, якоря), решил сотворить формулу для Excel, которая бы позволяла размечать ссылки, и делала бы это разумно.

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

Вот пример работы формулы (кликните для просмотра увеличенной версии):

Пример работы формулы Excel для разметки ссылок метками Google Analytics

Преимущества относительно Google'овского компоновщика:

проверяет правильность расстановки параметров (Google мог выдать такую ссылку http://chenado.net/?ask=1?utm_source=yandex...)
если в ссылке уже есть какие-либо метки Google Analytics, то их значения будут обновлены (Google лепит не глядя)
правильная работа с якорями (Google его не воспринимает вообще)

Параметры вызова формулы:

Public Function AddGAtags(ByVal source_url As Variant, ByVal utm_source As Variant, ByVal utm_campaign As Variant, ByVal utm_medium As Variant, Optional ByVal utm_term As Variant = "", Optional ByVal utm_content As Variant = "") As String

source_url - исходная ссылка
utm_source - источник
utm_campaign - название кампании
utm_medium - средство кампании
utm_term - ключевое слово (необязательный)
utm_content - содержание кампании (необязательный)

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

Скачать модуль с формулой (.zip, 2.5kb)

PS: Если формула оказалась для вас полезной, не забудьте поставить +1 и рассказать о полезной формуле друзьям

OZON.ru - Книги | Excel 2010. Профессиональное программирование на VBA (+ CD-ROM) | Джон Уокенбах | Excel 2010 Power Programming with VBA | Купить книги: интернет-магазин / ISBN 978-5-8459-1721-8

Связанные записи

Google Analytics: ссылки, метки, якоря

mev — Tue, 14 Jun 2011 04:46:25 PDT

Если вы используете Компоновщик УРЛа от Google, то можете получить от него медвежью услугу.

Есть у этого инструмента одна проблема - он не знает про структуру ссылок.

В частности, если у вас в исходной ссылке присутствует имя якоря, то Компоновщик URL стопроцентно сделает вам кривую ссылку.

Пример ссылки с якорем

Такая ссылка будет работать криво:

браузер откроет страницу, но к якорю не перейдет
счетчик Google Analytics не сможет распознать метки

Под катом доказательства.

Вот лог запросов браузера при открытии кривой ссылки, выделена строка с запросом для счетчика Google Analytics:

Google Analytics не распознает метки

Как видите все метки счетчик благополучно пропустил.

Ну а нормальная ссылка естественно работает:

Правильная ссылка с якорем и метками Google Analytics

Надеюсь ребята из Google когда-нибудь наделят свой компоновщик хотя бы минимальным разумом.

OZON.ru - Книги | Веб-аналитика 2.0 на практике. Тонкости и лучшие методики (+ CD-ROM) | Авинаш Кошик | Web Analytics 2.0: The Art of Online Accountabilit | Купить книги: интернет-магазин / ISBN 978-5-8459-1667-9

Связанные записи

Лазейка

mev — Tue, 14 Jun 2011 00:30:44 PDT

Лазейка

Забор большой, а лазейка все равно есть.

Связанные записи

Облет территории

mev — Mon, 13 Jun 2011 07:51:45 PDT

Шмель совершает облет люпинов

Шмель совершает облет люпинов.

Связанные записи

Пишем простой конвертер Xls -> PDF

mev — Tue, 31 May 2011 02:06:53 PDT

Есть еще на свете программы, которые экспортируют данные только в одном формате, заставляя нас ломать голову над преобразованием файлов одного типа к другому типу.

В данной статье покажу один нехитрый макрос, который позволяет конвертировать кучу файлов с расширениями ".xls" и ".xlsx" в pdf-файлы.

Итак, чтобы создать свой конвертер XlsToPdf необходимо проделать следующее:

1. Создать новую книгу Excel, сохранить ее как книгу с поддержкой макросов.

2. Зайти в редактор Visual Basic (Alt+F11), добавить модуль

3. Вставить в модуль код, указанный ниже

Sub XlsToPdf() Dim path$, file$, test$ Dim reportIndex As Integer Dim book As Workbook path = ActiveWorkbook.path & "\" file = Dir(path & "*.xls") reportIndex = 0 Do While file <> "" If (Right(file, 5) <> ".xlsm") Then reportIndex = reportIndex + 1 Cells(reportIndex, 1) = file file = path & file Dim rowIndex As Integer Set book = Workbooks.Open(file, False, True) With book.ActiveSheet.PageSetup .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = False .CenterVertically = False .Draft = False .PaperSize = xlPaperA4 .Orientation = xlPortrait .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True End With book.ExportAsFixedFormat Type:=xlTypePDF, Filename:=file & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False book.Close (False) End If file = Dir Loop End Sub

4. Сохранить изменения.

Вот и все.

Работает макрос следующим образом:

ищет в папке, в которой находится сам, файлы ".xls" (исключая ".xlsm" - файл самого конвертера)
поочередно открывает найденные файлы и сохраняет их, при этом сжимает по ширине содержимое так, чтобы оно поместилось на страницу
сохраняет файлы с расширением PDF
исходные файлы остаются без изменений.

Если у вас есть файлы, жаждущие конвертации в PDF - кидайте к ним в папку файл, запускайте макрос и отдыхайте. У меня на конвертацию одного файла уходило 6-7 секунд.

Примечание: В код также можно внедрять дополнительные условия, например в зависимости от содержимого надо поменять ориентацию листа, изменить размеры строк/колонок.

Примечание 2: Есть небольшая особенность сжатия содержимого по ширине - иногда конец длинного текста в ячейках прячется. Тут поможет только увеличение высоты строки перед сохранением в PDF - это тоже можно запрограммировать.

Связанные записи

В погоне за фокусом

mev — Tue, 31 May 2011 01:05:49 PDT

Пытаемся догнать фокус

Трудно поймать в фокус такую маленькую и юркую собачонку.

Связанные записи

Maxidrom 2011

mev — Sat, 28 May 2011 14:20:53 PDT

Побывали сегодня на Максидроме. С билетами подфартило - выиграли на радио за одну смску.

Maxidrom 2011

Самое большое приближение, которое смог добиться со своим 70-200, на фото внизу.

Земфира на Maxidrom

Ближе с обычным билетом и без бейджа прессы не добраться.

А вот до ведущих Пашкова и Кирилоff'a объектив достал.

Пашков и Кирилоff

Они в перерыве проводили конкурс "Мисс Maxidrom".

Взгляд

Обратите внимание: Кирилоff облизывается, в отражении очков можно увидеть на что именно.

Связанные записи

Получение реальной ссылки из гиперссылки в Excel

mev — Thu, 02 Dec 2010 03:34:10 PST

Если вы часто работаете с ссылками, то вам наверняка хотя бы раз присылали список ссылок в Excel-файле в виде гиперссылок.

Пример:

Пример гиперссылок в Excel

Если вам эти ссылки надо куда-то вставлять (на сайты например), то приходится использовать "Редактирование" гиперссылки, только там можно найти реальную ссылку (при копировании гиперссылки в Excel в буфер копируется тот текст, который отображается в ячейке, и он не всегда совпадает с реальной ссылкой). Это жутко неудобно.

Встроенной функции для получения реальной ссылки из гиперссылки в Excel нету. Но ее можно написать самому.

Под катом пример.

Вот код функции для извлечения настоящей ссылки из гиперссылки:

Public Function GetUrlFromHyperlink(ByVal range As Range) As String

If (range.Hyperlinks.Count > 0) Then

GetUrlFromHyperlink = range.Hyperlinks(1).Address

Else

GetUrlFromHyperlink = ""

End If

End Function

Эту функцию можно добавить в нужную книгу или в личную книгу макросов (во втором случае вы сможете ее использовать во всех книгах Excel). Как вставить функцию в личную книгу макросов можете узнать здесь.

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

Пример использования функции

Примечание: эта функция работает только с гиперссылками. Если ссылки у вас в файле выглядят так же как ссылки на последней картинке в столбце Реальная ссылка, то они не являются гиперссылками с точки зрения Excel.

Связанные записи

Травка и кошка

mev — Wed, 20 Oct 2010 07:12:11 PDT

Травка и кошка

Утренний завтрак.

Связанные записи

Последние лучи солнца

mev — Sat, 09 Oct 2010 10:30:00 PDT

Последние лучи солнца

Крепитесь люди, скоро ноль...

Связанные записи

Чудная райская птица – улыбака

mev — Fri, 08 Oct 2010 07:00:36 PDT

Чудная райская птица

Ответ на вопрос в предыдущем посте - это Чудная райская птица / Lophorina superba

А ниже кусок из фильма "BBC Планет Земля" где самец красуется перед самкой.

И еще одна красотка

Связанные записи

Угадайте кто?

mev — Thu, 07 Oct 2010 11:33:14 PDT

Угадайте что за диво

Чего только в мире нет...

Ответ в пятницу вечером.

Связанные записи

Google Analytics: не переборщите с _setDomainName

mev — Wed, 15 Sep 2010 02:04:03 PDT

Кратко:

Если вы решили использовать функцию _setDomainName счетчика Google Analytics, то ни в коем случае не пишите так:

pageTracker._setDomainName("www.chenado.net");

То есть не указывайте там "www".

Подробно о том, почему так нельзя делать и примеры под катом.

Функция _setDomainName призвана помочь веб-мастеру объединить/разделить статистику с разных поддоменов.

Параметр, который передается функции, может иметь значения:

"none" - статистика будет собираться только по текущему домену
"auto" - домен будет определяться по location (стоит по-умолчанию)
".chenado.net" - статистика будет собираться и с поддоменов тоже
"chenado.net" - статистика будет собираться только по домену chenado.net

Для примера: у меня есть поддомен micro.chenado.net, куда я скидываю разного рода ссылки и тому подобное. Чтобы объединить статистику в одном профиле, мне достаточно указать в коде счетчика в блоге и поддомене один идентификатор UA-XXXXXX и добавить такую строчку:

pageTracker._setDomainName(".chenado.net");

После этого вся статистика блога и поддомена будет отображаться в одном профиле в Google Analytics.

Теперь вернемся сути поста.

Если вы укажете "www" при указании домена:

pageTracker._setDomainName("www.chenado.net");

то статистика будет считаться только в том случае, если у посетителя вашего сайта в строке адреса будет присутствовать "www".

Вот вам живой пример - Тестовая страница с неверно установленным доменом в счетчике.

Если указать в адресе "www", то счетчик сработает отлично.

Срабатывание счетчика при указании в адресе "www"

А если "www" в адресе не будет, то счетчик просто не сработает, ведь у него такой приказ.

При отсутствии "www" в адресе счетчик не сработает

Резюме: если в _setDomainName() вы указали домен сайта типа "www.example.com", то вы потеряете статистику тех посетителей, которые придут к вам по ссылке "example.com".

Связанные записи

Функция транслита для Excel

mev — Fri, 10 Sep 2010 02:27:41 PDT

Возникла давеча необходимость перегнать в Excel'е ряд строк в транслит. Функции такой в Excel'е конечно же нет.

Яндекс выдал ряд простых формул, но там не учитывался регистр символов. А регистр был нужен.

Пришлось писать самому.

Итак, под катом много кода для реализации транслита в Microsoft Excel и несколько примеров с криншотами на тему как вставить функцию в личную книгу макросов.

Часть первая. Код функции

Public Function Translit(ByVal txt As String) As String

iRussianLower$ = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"

iTranslit = Array("", _

"a", "b", "v", _

"g", "d", "e", _

"yo", "zh", "z", _

"i", "i", "k", _

"l", "m", "n", _

"o", "p", "r", _

"s", "t", "u", _

"f", "kh", "c", _

"ch", "sh", "zch", _

"''", "'y", "'", _

"eh", "yu", "ya")

Dim result$, char$, newChar$, charIndex%, nextChar$, lastChar$

For i% = 1 To Len(txt)

char = Mid(txt, i, 1)

charIndex = InStr(1, iRussianLower, char, vbTextCompare)

If (charIndex >= 1) Then

newChar = iTranslit(charIndex)

Else

newChar = char

End If

' если текущий символ прописной

If (Asc(char) >= 132 And Asc(char) <= 223) Then

' если это первый символ

If i = 1 Then

' если последующий прописной

nextChar = Mid(txt, i + 1, 1)

If (Asc(nextChar) >= 132 And Asc(nextChar) <= 223) Then

result = result & StrConv(newChar, vbUpperCase)

' если последующий строчный

ElseIf (Asc(nextChar) >= 224 And Asc(nextChar) <= 255) Then

result = result & StrConv(newChar, vbProperCase)

End If

' если это не первый и не последний символ

ElseIf i > 1 And i <> Len(txt) Then

nextChar = Mid(txt, i + 1, 1)

lastChar = Mid(txt, i - 1, 1)

' если околостоящие прописные

If ((Asc(lastChar) >= 132 And Asc(lastChar) <= 223)) _

Or (Asc(nextChar) >= 132 And Asc(nextChar) <= 223) Then

result = result & StrConv(newChar, vbUpperCase)

' иначе

Else

result = result & StrConv(newChar, vbProperCase)

End If

Else

lastChar = Mid(txt, i - 1, 1)

' если предыдущий символ прописной

If (Asc(lastChar) >= 132 And Asc(lastChar) <= 223) Then

result = result & StrConv(newChar, vbProperCase)

' иначе

Else

result = result & StrConv(newChar, vbUpperCase)

End If

End If

' если текущий символ строчный

ElseIf (Asc(char) >= 224 And Asc(char) <= 255) Then

result = result & iTranslit(charIndex)

' если текущий символ не буква русского алфавита

Else

result = result & char

End If

Next i

Translit$ = result

End Function

Вот такая "нехитрая" формула позволяет получать такие строки:

Результат функции Translit в Excel

Если вам не нравится порядок перевода (какие символы должны подставляться вместо "Ч", "Щ" и т.д.), то вы можете сами настроить перевод. Вам всего лишь надо заменить нужные символы в массиве iTranslit. Символы замены в нем располагаются по порядку русского алфавита.

Массив символов для замены при транслитерации

Но сама формула вам ничего не даст. Ее необходимо поместить в Excel, чтобы ею можно было пользоваться.

Часть вторая. Внедрение функции в Excel

Вариант №1. Поместить функцию в конкретный файл

1) Заходим в редактор Visual Basic (Alt+F11)

2) Слева в обозревателе проектов найдите нужный файл и добавьте к нему Модуль

Добавление модуля к книге в Excel

3) После добавления откроется чистый лист модуля. Скопируйте туда код.

4) Теперь функция будет доступна внутри вашего файла

Функция Translit доступна в файле Excel

Какие минусы у этого варианта размещения: функция будет работать только в этом файле. Использовать ее в других файлах не получится.

ЗЫ: Если у вас MS Office 2007, то не забудьте присохранении выбрать тип файла с поддержкой макросов.

Вариант №2. Поместить функцию в личную книгу макросов

Этот вариант предпочтительней, т.к. помещенную в личную книгу макросов функцию можно будет использовать в любом файле Excel на вашем компьютере.

1) Сначала надо создать личную книгу макросов. Для этого необходимо записать простенький макрос, Excel сам создаст книгу по требованию

Запись макроса в личную книгу макросов

2) Заходим в редактор Visual Basic (Alt+F11)

3) Слева в обозревателе проектов найдите PERSONAL.XLSB и дважды кликните по имеющемуся у него модулю Module1

4) Замените ненужный нам код макроса на код функции

5) Сохраните изменения, кдикнув по кнопке сохранения в меню. Теперь функция будет доступна вам из любого файла Excel на вашем компьютере

6) Функцию можно использовать, набрав в ячейке ее имя, указав перед ним личную книгу макросов

Использование функции Translit

7) Еще проще эту функцию найти через вставку функции, выбрав в качестве категории пункт "Определенные пользователем"

Вставка функции Translit

Связанные записи

Ну извините(((

mev — Thu, 26 Aug 2010 23:58:02 PDT

Всегда удивлялся наличию таких людей, которые успевают в дороге отметить аварию на Яндекс.Картах. Открываешь карту перед поездкой с работы - Москва вся пестрит значками аварий.

Хотя при нынешнем движении в столице за рулем можно делать что угодно. Мы вот зимой успевали посмотреть несколько серий "CSI: Las Vegas" пока до дома доезжали.

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

Связанные записи

Последствия жары – высохшее озеро

mev — Fri, 13 Aug 2010 00:11:31 PDT

В моей родной деревне есть озеро (google maps). Недалеко от дома. В детстве мы с соседом рыбачили на нем. Рыба правда шла на откорм кошкам, т.к. есть бы ее из людей никто не рискнул - вокруг озера понастроили сараев для скота, и в озеро частенько что только не стекало.
Тем не менее озеро жило. Рыбу выловленную в реке часто приносили и отпускали в озеро, ну чтоб было потом что ловить. А иногда даже и проводили очистительные рейды - закидывали крюк на веревке подальше и вытаскивали детские велосипеды, чайники и прочую рухлядь.
Вот так озеро выглядело совсем недавно... до этого жаркого лета.

Под катом последствия этого лета...

А это текущее состояние озера. Уровень подземных вод изменился, высохло чуть более чем полностью.

Эта лодка лежит на дне озера примерно 9-10 лет.

Зимой народ прокладывал тропинку прямо через озеро, чтоб сократить путь и не обходить озеро. Теперь это можно сделать и летом.

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

Связанные записи

Silent Moscow

mev — Fri, 06 Aug 2010 00:38:59 PDT

Пора уже от зданий к метро тянуть тросы для пешеходов...

Связанные записи

Утки, гуси, лебеди

mev — Wed, 04 Aug 2010 23:30:10 PDT

Две кряквы

Живность Царицынского парка крупным планом.

Под катом еще 14 фото.

Украинская хохлатая утка

Остальное можно посмотреть тут - Утки, гуси, лебеди

Связанные записи

Утки в полете

mev — Tue, 03 Aug 2010 23:25:56 PDT

Под катом еще 11 фото.

Связанные записи

Яндекс.Фотки и блог – простая автоматизация

mev — Tue, 03 Aug 2010 03:18:10 PDT

С недавнего времени я начал использовать Яндекс.Фотки в качестве фотохостинга. Вполне себе удобно. Главное, что никаких ограничений нет на количество фотографий.

Собственно, решил поделиться небольшим трюком по быстрому постингу выбранных фотографий в блоге, который позволяет работать с html при написании поста (Wordpress, LiveJournal, etc.)

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

Видимое преимущество Яндекс.Фоток: можно легко получить список ссылок на интересующие фотографии.

Заходим в Яндекс.Фотках в нужный альбом, кликаем ссылку "Получить код", выбираем нужные фотографии:

Получение списка ссылок фотографий

Не забудьте указать размер изображения.

В поле "Ссылка на фото" вы можете получить свой список с ссылками. Скопируйте его и вставьте в Excel (позже скажу зачем).

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

Поэтому, я делаю еще один список ссылок - на оригиналы фотографий - выбираю размер изображения "оригинал".

Полученные списки вставляем в Excel в соседних колонках:

Ссылки на фотографии в Excel

Теперь в третьем столбце мы можем воспользоваться функцией CONCATENATE (СЦЕПИТЬ):

Готовый html для размещения фотографий

Готово. Остается скопировать полученный текст из последнего столбца и вставить в пост.

В итоге мы имеем сэкономленное время.

Примечание: кусок с width и height из текста можете убрать, ведь фотографии сами по себе будут обрезаны до нужного размера.

Связанные записи

Выходные в Царицыно

mev — Tue, 03 Aug 2010 00:55:17 PDT

В Царицыно, где мы провели оба прошедших выходных, хорошо...

Пруд, деревья, лепота.

Территория огромная, милиция передвигается на цем может. Помимо представленного ниже вида транспорта видел также электрокар, десятку и газель.

По всему периметру пруда белым по красному написано:

Но кто же на эти знаки смотрит...

Ближе к полудню часть народа начинает завидовать уткам и лезет охлаждаться в плотину у моста.

В общем, супер. Находясь в Москве, ощущаешь себя где-то далеко за МКАДом.

Связанные записи

Белки в парке Царицыно

mev — Mon, 02 Aug 2010 23:20:33 PDT

Белка как бы говорит нам:"Чего уставились?"

Под катом еще 29 фото.

Остальные фотографии здесь - Белки в Царицыно

Связанные записи

Свадебный голубь

mev — Mon, 02 Aug 2010 02:20:32 PDT

Под катом еще 3

Связанные записи

Shutter Reloaded и Яндекс.Фотки

mev — Mon, 02 Aug 2010 00:56:57 PDT

Я начал использовать в качестве фотохостинга Яндекс.Фотки.

И сразу же столкнулся с проблемой: почему-то не срабатывает плагин Shutter Reloaded - вместо красивого показа фотографии на фоне страницы происходит открытие самой фотографии.

А все из-за того, что Яндекс.Фотки не ставят расширение в ссылке на оригинальную фотографию.

Пример ссылки на оригинал в Яндекс.Фотках:

http://img-fotki.yandex.ru/get/4803/chenadonet.4/0_3309c_421b9b56_orig

Лечение: открываем в редакторе плагинов файл shutter-reloaded/shutter-reloaded.js

Находим там кусок кода проверки расширений изображений:

if(b!=".jpg"&&b!=".png"&&b!=".gif"&&b!="jpeg"){continue}

И дописываем окончание "orig" в условие:

if(b!=".jpg"&&b!=".png"&&b!=".gif"&&b!="jpeg"&&b!="orig"){continue}

Теперь ссылки на оригиналы Яндекс.Фоток будут открывать нормально.

Связанные записи

Дым в Москве

mev — Mon, 02 Aug 2010 00:09:07 PDT

Дым в Москве

Сегодня хуже, чем вчера,
Все задом наперед
Опять жара, жара, жара
Достает.

Агата Кристи - Ни там, ни тут, аккорды

Связанные записи

Урвал кусок

mev — Sun, 01 Aug 2010 23:00:04 PDT

Под катом еще 5 фото.