Источник: webdelphi
Сегодня наконец-то пересилил себя и решил всё-таки изучить вопросы использования регулярных выражений в Delphi.
Сколько раз не изучал литературу по использованию RegExp, составлению регулярных выражений и пр., всегда казалось, что составить регулярное выражение ужасно сложно, а разобраться в уже написанном выражении - просто нереально. А тут сел и буквально за час с небольшим более-менее разобрался м составил необходимое регулярное выражение.
1. Добавляем RegExp в Delphi 2010.
Прежде, чем начать программировать, необходимо добавить в Delphi библиотеку типов. Для этого запускаем Delphi и выбираем в меню " Componet - Import Component.. " В открывшемся окне выбираем " Import a Ty pe Library " и жмем кнопку Next>> В списке доступных библиотек необходимо найти библиотеку Microsoft VBScript Regular Expressions 5.5 . Находим, выбираем и жмем " Next >> ".
Теперь Вы можете создать невизуальный компонент Delphi 2010 для работы с импортируемой библиотекой. Для этого необходимо задать страницу палитры компонентов на которой будет расположен компонент, поставить галочку " Generate Component Wrappers " и нажать " Next >> ". Я не стал создавать новый компонент, поэтому пропустил этот шаг просто нажав кнопку продолжения в новом окне оставил опцию по умолчанию " Create Unit ". После того как будет нажата кнопка " Finish " Delphi создаст новый модуль с довольно большим описанием и не менее громоздким названием - VBScript_RegExp_55_TLB . Этот модуль необходимо подключить к проекту, чтобы получить доступ к работе с регулярными выражениями в Delphi. Подключаем модуль и переходим ко второму шагу - изучению сайта с которого будем "вытягивать" информацию по домену.
2. Изучаем сайт на предмет наличия и расположения информации
Итак, для решения поставленной задачи нам необходимо знать только одно - дату регистрации домена.
Я не стал долго копаться в поисках whois-сервера и выбрал в качестве цели who.is - довольно удобный сервис, который, в случае необходимости, можно будет использовать для решения других задач при работе с доменными именами.
Теперь проверим как выглядит страница с необходимой информацией. Забиваем в строку поиска любой домен, например webdelphi.ru и жмем "Who is Search". В итоге получаем страничку следующего содержания:
Красным цветом выделена необходимая нам строка (рисунок кликабельный) - дата создания домена. Казалось бы все просто - нашел строку, вытащил дату и дело в шляпе. Но, если б все было так просто - был бы рай Попробуйте теперь найти информацию, например по домену yahoo.com и вид странички с информацией будет уже другой. Например вместо строки created будет Creation Date , а, если заглянуть в исходный код, то для первого случая (webdelphi.ru) исходный код строки будет совершенно иной нежели для второго - обратите внимание на то, как прописаны пробелы.
Соответственно, для того, чтобы парсить подобные страницы в поисках даты создания домена необходимо либо иметь под рукой два регулярных выражения - каждое для своего случая (что весьма не рационально и не факт, что сработает), либо создать одно более-менее универсальное, которое подойдет для всех случаев. Я написал такое регулярное выражение, которое и представляю на Ваше обозрение.
3. Регулярное выражение для поиска даты создания домена
Итак, у меня получилось вот такое регулярное выражение:
'^CD+(d{4}.d{2}.d{2})/Cw{7,8}sw{4}:D+(d{4}-d{2}-d{2})'
Регулярное выражение состоит из двух частей:
Первая часть - для поиска даты создания домена в подстроке, содержащей "created":
'^CD+(d{4}.d{2}.d{2})'
т.е. ищется подстрока, начинающаяся с символа С, затем в строке должно содержаться 1 или более символов (не цифр) и непосредственно сама дата создания домена в формате yyyy.mm.dd причем в регулярном выражении указано явно, что разделителем выступает символ "."
Вторая часть регулярного выражения ищет даты в строках, содержащих подстроку "Creation Date":
'Cw{7,8}sw{4}:D+(d{4}-d{2}-d{2})'
Здесь опять же первым символом должен быть символ "С", далее указано, что в строке должны идти подряд 7 или 8 букв, потом простой пробел, ещё 4 буквы, двоеточие, 1 или несколько символов и сама дата в формате yyyy-mm-dd Разделитель опять же указан явно.
Вполне возможно, что это регулярное выражение не самое изящное и правильное, но т.к. это мой первый опыт в их составлении, то буду благодарен, если кто-нибудь укажет более правильный вариант регулярки.
Теперь, имея под рукой регулярное выражение, можно приступать к написанию приложения.
4. Пишем приложение для определения возраста домена
Приложение наше будет считать возраст домена в днях и выглядеть довольно простенько:
Имя домена задается без http:// как это и должно быть. После нажатия на кнопку "Проверить" будем выписывать в label"ы дату регистрации и возраст домена. Расположите необходимые компоненты на форме и приступим к программированию.
По сути, для работы программы необходимо описать всего одно событие - клик по кнопке. Процедура выглядит следующим образом:
procedure TForm2.Button1Click(Sender: TObject);
var
Text: TStringList;
Reg: TRegExp;
mc: MatchCollection;
m: Match;
sm: SubMatches;
i, j: Integer;
D: TDateTime;
begin
URLDownloadToFile(nil, PChar(Format(site,[Edit1.Text])), PChar
(ExtractFilePath(Application.ExeName) + 'Text.txt'), 0, nil);
Text := TStringList.Create;
Text.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Text.txt');
Reg := TRegExp.Create(Self);
try
Reg.Pattern :=Pattern;
Reg.IgnoreCase:=true;
Reg.Global:=true;
Reg.Multiline:=true;
mc:=Reg.Execute(Text.Text) as MatchCollection;
if mc.Count > 0 then
begin
m:=mc[0] as Match;
sm:=m.SubMatches as SubMatches;
for j := 0 to sm.Count - 1 do
begin
if length(VarToStr(sm[j])) > 0 then
begin
Label5.Caption := VarToStr(sm[j]);
D:=VarToDateTime(sm[j]);
Label7.Caption := IntToStr(DaysBetween(Now,D))+' дней';
end;
end;
end
else
begin
label5.Caption:='не определена';
label7.Caption:='не определен'
end;
finally
m:=nil;
sm:=nil;
mc:=nil;
Reg.Free;
end;
end;
Для порядка, разберем процедуру по частям. Вначале мы сохраняем необходимую нам страничку в текстовый файл:
URLDownloadToFile(nil, PChar(Format(site,[Edit1.Text])), PChar (ExtractFilePath(Application.ExeName) + 'Text.txt'), 0, nil); Text := TStringList.Create; Text.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Text.txt');
Причём функция URLDownloadToFile содержится в модуля urlmon, который необходимо подключить в uses.
При задании URL"а для скачивания я использовал константу:
site = 'http://www.who.is/whois/%s';
Далее начинается работа непосредственно с регулярными выражениями:
1. Создаем объект TRegExp и задаем ему свойства
Reg.Pattern :=Pattern; Reg.IgnoreCase:=true; Reg.Global:=true; Reg.Multiline:=true;
Pattern - наше регулярное выражение. IgnoreCase - игнорируем регистр символов при поиске. Global - пытаться найти все возможные соответствия в строке. Multiline - поддерживать многострочный режим.
2. Ищем все соответствия в тексте
mc:=Reg.Execute(Text.Text) as MatchCollection;
то есть все найденные соответвия в строке Text.text, заданные в Pattern, возвращаем в коллекцию MatchCollection.
Ну, и далее, если соответствие было найдено (а в идеале оно должно быть только одно), то просматриваем коллекцию субсответсвий, т.е. тех частей строки, которые в Pattern обозначены круглыми скобками. Это и будет наша дата регистрации домена.
3. Как только нашли дату, определяем возраст домена в днях, для этого используем функцию DaysBetween из модуля DateUtils.
4. Выдаем информацию пользователю.
Работа программы завершена. Вид программы после завершения работы представлен на рисунке:
Как видите, мой блог ещё совсем маленький - всего 75 дней от роду
Кстати, при тестировании приложения оказалось, что домен google.com всего на два дня моложе домена yandex.ru…а я почему то всегда считал, что google намного старше нашего Яшки.
Ну, и в заключение как обычно выкладываю уже готовое приложение, которое вы можете использовать в своих нуждах.