Печать

[GenoTIP [?]]

Вот че есть

Код: AutoIt [Выделить]

$start = 'Мои сообщения:</a><span>'
$end = '</span>'
$sPattern = '(?s).*?' & $start & '(\d.*?)(?.*)' & $end & '?.*'
$source = StringRegExpReplace($string, $sPattern, '\1')
 

и страница, откуда он берет инфу..freelance-tomsk.ru
Не могу из места

Код: [Выделить]

<li class="pm"><a href="http://freelance-tomsk.ru/account/contacts/">Мои сообщения:</a><span>12</span></li>вытащить 1234, при том что код может поменять на

Код: [Выделить]

<li class="pm"><a href="http://freelance-tomsk.ru/account/contacts/">Мои сообщения:</a><span>13 / <strong>1&nbsp;новое</strong></span></li>

[Kaster [?]]

Попробуй так

Код: AutoIt [Выделить]

$s = '<li class="pm"><a href="http://freelance-tomsk.ru/account/contacts/">Мои сообщения:</a><span>12</span></li>'
$start = 'Мои\sсообщения\:\</a\>\<span\>'
$pat = $start & '(\d+)'
$aRes = StringRegExp($s, $pat, 1)
ConsoleWrite($aRes[0] & @CRLF)
 

[Zaramot [?]]

А так ?:

Код: AutoIt [Выделить]

$Html = '<li class="pm"><a href="http://freelance-tomsk.ru/account/contacts/">Мои сообщения:</a><span>12</span></li>'
$Reg = StringRegExp($Html, 'Мои сообщения:</a><span>(\d+)', 3)
MsgBox(0, '', $Reg[0])

Код: AutoIt [Выделить]

$Html = '<li class="pm"><a href="http://freelance-tomsk.ru/account/contacts/">Мои сообщения:</a><span>13 / <strong>1&nbsp;новое</strong></span></li>'
$Reg = StringRegExp($Html, 'Мои сообщения:</a><span>(\d+)', 3)
MsgBox(0, '', $Reg[0])

[Kaster [?]]

Zaramot
твое выражение полностью совпадает с моим

[madmasles [?]]

GenoTIP,
Наверное, и так можно.

Код: AutoIt [Выделить]

$sText_1 = '<li class="pm"><a href="http://freelance-tomsk.ru/account/contacts/">Мои сообщения:</a><span>12</span></li>'
$sText_2 = '<li class="pm"><a href="http://freelance-tomsk.ru/account/contacts/">Мои сообщения:</a><span>13 / <strong>1&nbsp;новое</strong></span></li>'

$sPattern = '(?s).*Мои сообщения:</a><span>(\d*?)\D.*'
$sSearch_1 = StringRegExpReplace($sText_1, $sPattern, '$1')
$sSearch_2 = StringRegExpReplace($sText_2, $sPattern, '$1')
ConsoleWrite($sSearch_1 & @LF)
ConsoleWrite($sSearch_2 & @LF)

[GenoTIP [?]]

Так же есть строка

Код: [Выделить]

<li><a href="http://freelance-tomsk.ru/account/follow/votes/">1&nbsp;новая оценка</a></li> она появляется, когда появляется оценка, вот мой код и почему-то он если нет оценки на странице все равно вводит в значение весь код страницы, а не "0" (то есть как буд-то не видил Not @error)
Программа обновляет страницу и если в первый раз он обновил и нет оценки, он должен ввести 0, а если оценка появилась, то должен ввести сколько оценок введено, на пример 1

Код: AutoIt [Выделить]

$Message_2 = IniRead(@ScriptDir & "\login.ini", "Reg", "Assessment","")
$sText = BinaryToString(InetRead('http://freelance-tomsk.ru',1))
$sPattern_2 = '(?s).*follow/votes/">(\d*?)\D.*\'
        If Not @error Then
            $source_2 = StringRegExpReplace($sText, $sPattern_2, '$1')
            If ($Message_2 <> 0) Then
                SoundPlay(@ScriptDir & "\media\newmail.wav",1)
                MsgBox(0, 'Новая оценка', 'Оценок: ' & $source_2)
            EndIf
            ConsoleWrite($source_2 & @LF)
            _IniWriteEx(@ScriptDir & "\login.ini", "Reg", "Assessment", $source_2)
        Else
            _IniWriteEx(@ScriptDir & "\login.ini", "Reg", "Assessment", "0")
        EndIf

Скорее всего косяк в этом

Код: AutoIt [Выделить]

$sPattern_2 = '(?s).*follow/votes/">(\d*?)\D.*\'

то есть если корректно не находит нужную цифру, то в ключ ini файла заносится весь код страницы, как избежать этого?

Как проверить, является ли переменная числом?


Добавлено: Январь 26, 2012, 17:11:22

[gregaz [?]]

GenoTIP  [?]

то есть если корректно не находит нужную цифру, то в ключ ini файла заносится весь код страницы, как избежать этого?

После StringRegExpReplace
проверять If  @extended =0 Then .....



Добавлено: Январь 26, 2012, 17:34:12GenoTIP  [?]

Как проверить, является ли переменная числом?

Код: AutoIt [Выделить]

StringIsInt ( $Var)

[madmasles [?]]

GenoTIP  [?]

Скорее всего косяк в этом

Косяк в слеше в конце. Уберите его

Код: AutoIt [Выделить]

;...
$sText = '<li><a href="http://freelance-tomsk.ru/account/follow/votes/">1&nbsp;новая оценка</a></li>'
;$sText = '<li class="pm"><a href="http://freelance-tomsk.ru/account/contacts/">Мои сообщения:</a><span>12</span></li>'
$sPattern_2 = '(?s).*follow/votes/">(\d*?)\D.*';здесь в конце у Вас был ненужный слеш
$source_2 = StringRegExpReplace($sText, $sPattern_2, '$1')
If @extended <> 1 Then
    MsgBox(16, 'Error', 'No')
Else
    MsgBox(64, 'Info', $source_2)
EndIf
;...

[gregaz [?]]

Наверное и  \D  не нужно

Код: AutoIt [Выделить]

$sPattern_2 ='(?s).*follow/votes/">(\d*).*'
 

[madmasles [?]]

gregaz  [?]

Наверное и  \D  не нужно

Нужно, проверьте.

[gregaz [?]]

madmasles  [?]

Нужно, проверьте.

Да ведь проверил же :

Код: AutoIt [Выделить]

$sText = '<li><a href="http://freelance-tomsk.ru/account/follow/votes/">1&nbsp;новая оценка</a></li>'
$sPattern_2 = '(?s).*follow/votes/">(\d*).*'
$source_2 = StringRegExpReplace($sText, $sPattern_2, '$1')
If @extended <> 1 Then
    MsgBox(16, 'Error', 'No')
Else
    MsgBox(64, 'Info', $source_2)
EndIf
 

[madmasles [?]]

gregaz  [?]

Да ведь проверил же

Не заметил, что в скобках у Вас нет вопросительного знака, и проверял с ним, извините, у Вас все правильно. 

[GenoTIP [?]]

Как из

Код: [Выделить]

<a href="edit.php?key=7c844e9a84f6429829c8be219890562c">редактировать</a>извлечь 7c844e9a84f6429829c8be219890562c ?
Помогите составить $sPattern, никак не могу научиться подбирать ключи

[madmasles [?]]

GenoTIP,
Попробуйте так.

Код: AutoIt [Выделить]

$sString = '<a href="edit.php?key=7c844e9a84f6429829c8be219890562c">редактировать</a>'
$sSearch = StringRegExpReplace($sString, '(?i).*([\da-f]{32}).*', '$1')
ConsoleWrite(@extended & @TAB & $sSearch & @LF)

На будущее, лучше новую тему создать.

[GenoTIP [?]]

Код: [Выделить]

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">

<meta http-equiv="Pragma" content="no-cache">

<title>Бесплатные объявления г.Томск</title>

<meta name="description" content="Доска бесплатных объявлений г. Томск, cайт для публикации бесплатных объявлений с возможностью прикреплять к объявлению фотографию, поиск,Дать объявление">

<meta name="keywords" content="бесплатные объявления, объявления, Томск, недвижимость, автомобили, бытовая техника, жилье, сдаю, сниму, компьютеры, куплю, продам, работа, вакансии, услуги, книги, CD, Дать объявление">

<meta name="robots" content="all, index, follow">

<meta name="Language" content="Russian">

<meta name="revisit" Content="1 days">

<meta name="country" content="Russian federation">

<meta name="city" content="Tomsk">

<link href="tmpl/desk/main.css" rel=stylesheet type=text/css>

</head>



<body bgcolor="#F9F9F9">



<div align="center"><center>



<table border="0" width="948" cellspacing="0" cellpadding="0">

<tr>

<td width=138 valign=top><center>





<a href="http://catalog.metka.ru/"><img src="http://catalog.metka.ru/counter/counter.php?id=1050417852&im=5&tp=1" border=0 alt="CATALOG.METKA.RU" width=1 height=1></a><br>



</td><td width=472 valign=top><center>



<a href="http://textil.tomsk.ru/" target=_blank>

<img border=0 src="http://www.desk.tomsk.ru/ttt/textil/100611.gif"

alt="Tango - домашний текстиль, постельное бельё"></a>



<!-- object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="560" height="72">

<param name="movie" value="ttt/textil/110315.swf">

<param name="quality" value="High">

<embed src="ttt/textil/110315.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="560" height="72" quality="High"></object -->







</td><td width=138 valign=top><center>





</td></tr></table>



<table border="0" width="930" cellspacing="0" cellpadding="0">

<tr>

<td colspan="3" height="12"><spacer type="block" height="1" width="1"></td>

</tr>

<tr>

<td width="900" align="center" background="tmpl/desk/images/up3.gif"><a href="http://desk.tomsk.ru/"><img src="tmpl/desk/images/rubtitl.gif" border="0" height="34" width="577"></a></td>

</tr>

<tr><td height="12"><spacer type="block" height="1" width="1"></td></tr>
<tr><td align="center"><h1 align="left"><font color="#ff0000">Повторные объявления будут удаляться.<br>
Пользователи добавляющие повторные объявления будут удаляться.</font></h1>
КОНТРОЛЬНАЯ ПАНЕЛЬ Brunen | <a href="user/user.php">О себе</a> | <a href="user/user_edit.php">Изменить личную информацию</a> | <a href="user/logout.php">Выход</a><br /><b>Объявления</b>: <a href="add.php">Добавить объявление</a> | <a href="control_list.php">Управление  объявлениями</a> | <a href="control_preadd.php">Найти объявления с моим е-майлом</a> | <a href="user_list.php?id=1371">Страница моих объявлений</a>
 | <b>F.A.Q. </b>:
<a href="faq1/add.php">Добавить вопрос</a>
</td</tr><tr>

<td colspan="1" height="12"><spacer type="block" height="1" width="1"></td>

</tr>

</table>



<table border="0" width="930" cellspacing="0" cellpadding="0">

  <tr>

    <td width="" rowspan="3" valign="top"><table border="0" width="100%" cellspacing="1" cellpadding="0" bgcolor="#FFC860">

      <tr>

        <td bgcolor="#ffffff"><table border="0" width="100%" cellspacing="18" cellpadding="0" bgcolor="#ffffff">

          <tr>

            <td><!-- 222 -->

<h1>Объявления пользователя Brunen</h1><p>Всего объявлений: 2</p>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td>
<p class="desk_rub">Рубрика: <a href="list.php?sect=11">Компьютеры куплю</a> - 2012-02-05 23:31 - id 763890</p><h2 class="h2_desk">Нужен ноут тысяч за 20</h2>Самый простой<br /><a href="view.php?id=763890"><b>ФОТО</b></a><br />Павел, тел.: 345678<div align="right"><span><a href="delete.php?key=18489ff6792153f6ab46e8336390cad2">удалить</a></span><br /><span><a href="edit.php?key=18489ff6792153f6ab46e8336390cad2">редактировать</a></span></div></td></tr>
<tr><td>
<br /><div class="div_hr"></div><p class="desk_rub">Рубрика: <a href="list.php?sect=45">Фото</a> - 2012-02-05 22:49 - id 763888</p><h2 class="h2_desk">продам фотоаппарат sony cyber-shot dsc-t700 red</h2>продам фотоаппарат sony cyber-shot dsc-t700 red<br />

<br />

 комплект:<br />

 - сам фотоаппарат<br />

 - чехольчик<br />

 - зарядное устройство<br />

 - аккамулятор<br />

 - usb/audio/video кабель<br />

 - карта памяти на 4 гигабайта(+ внутренней 4 гигабайта)<br />

<br />

 отзывы:<br />

 - очень компактный, тонкий, не выдвигается объектив, качество фото на довольно хорошем уровне, &quot;умный&quot;, настоящая японская сборка, правильный объектив - &quot;тессар&quot;.<br />

 - настоящая записная книжка без всяких оговорок. позволяет делать скрытую съемку, как в ломографии. объектив не выдвигается, и люди не комплексуют.<br />

 - компактный , удобный в использовании. все понятно и без инструкции, сенсорный экран работает отлично. корректировка фотографий просто класс! сам переснимает кадр если вами сделан плохой снимок.<br />

<br />

 цена: 4,5т.р<br />

<br />

<a href="http://tg.tomsk.ru/photo_camera/sony/167661.html">http://tg.tomsk.ru/photo_camera/sony/167661.html</a><br />

 характеристики такие же, только у меня цвет красный.<br />

ФОТО<br />

Павел, тел.: 8-983-23456-05<br /><a href="view.php?id=763888"><b>ФОТО</b></a><br />Павел, тел.: 345605<div align="right"><span><a href="delete.php?key=7c844e9a84f6429829c8be219890562c">удалить</a></span><br /><span><a href="edit.php?key=7c844e9a84f6429829c8be219890562c">редактировать</a></span></div></td></tr>
</table>

</td>

          </tr>

        </table>





        </td>

      </tr>

    </table>



    </td>

<td width="4"></td>

<td width="210" valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#ffffff">

<tr>

<td><div class="right_cell" align=center><center><br>



<br>



<SCRIPT language=JavaScript src=http://citizen.tomsk.ru/js.php></SCRIPT>

<!-- a href="http://realt.tom.ru" target=_blank>

<img border=0 src="http://www.desk.tomsk.ru/tua/realt/100901.gif"

alt="Агенство недвижимости Риэлт-Сибирь"></a -->



<br>

<br>

<br>



<a href="http://nash-dom.tomsk.ru" target="_blank">

<img border=0 src="http://www.desk.tomsk.ru/tua/nd/100728.gif"

alt="Агентство Недвижимости Наш Дом"></a>



<br>

<br>

<br>

</center></div>

</td>

</tr>

<tr>

<td><div class="right_cell"><a href="index.php">Главная</a><br /><br /><a href="list.php">Новые</a><br /><a href="preview.php">Новые с фото</a><br /><br /><a href="add.php"><font color="red">Добавить объявление</font></a><br /><a href="search.php">Поиск</a><br /><a href="cart.php">Корзина</a><br /><br /><a href="members.php">Пользователи</a><br /><a href="user/logout.php">Выход (Brunen)</a><br /><br /><a href="faq1/index.php">F.A.Q.</a><br /><a href="faq1/search.php">Поиск в F.A.Q.</a><br /><br /><a href="about.php">О&nbsp;проекте</a><br /></div></td>

</tr>

<tr>

<td>

<div class="right_cell"><a href="/list.php?sect=7">Авто</a><br /><a href="/list.php?sect=53">Автозапчасти</a><br /><br /><a href="/list.php?sect=42">Антиквариат</a><br /><br /><a href="/list.php?sect=70">Аудиотехника</a><br /><br /><a href="/list.php?sect=8">Бытовая техника / куплю</a><br /><a href="/list.php?sect=25">Бытовая техника / продам</a><br /><br /><a href="/list.php?sect=75">Велотехника / продам</a><br /><a href="/list.php?sect=76">Велотехника / куплю</a><br /><br /><a href="/list.php?sect=67">Водный транспорт</a><br /><br /><a href="/list.php?sect=56">Для детей</a><br /><br /><a href="/list.php?sect=66">Дизайн</a><br /><br /><a href="/list.php?sect=49">Животные</a><br /><br /><a href="/list.php?sect=38">Интернет</a><br /><br /><a href="/list.php?sect=50">Ищу человека</a><br /><br /><a href="/list.php?sect=68">Книги</a><br /><br /><a href="/list.php?sect=11">Компьютеры / куплю</a><br /><a href="/list.php?sect=12">Компьютеры / продам</a><br /><a href="/list.php?sect=13">Компьютеры / разное</a><br /><br /><a href="/list.php?sect=20">CD и DVD</a><br /><br /><a href="/list.php?sect=44">Мебель и интерьер</a><br /><a href="/list.php?sect=51">Медицина</a><br /><br /><a href="/list.php?sect=65">Мототехника / продам</a><br /><a href="/list.php?sect=77">Мототехника / куплю</a><br /><br /><a href="/list.php?sect=14">Недвижимость / куплю</a><br /><br /><a href="/list.php?sect=84">Недвижимость / продам гостинку, секционку ...</a><br /><a href="/list.php?sect=78">Недвижимость / продам 1-комнатную</a><br /><a href="/list.php?sect=79">Недвижимость / продам 2-комнатную</a><br /><a href="/list.php?sect=80">Недвижимость / продам 3-комнатную</a><br /><a href="/list.php?sect=81">Недвижимость / продам 4, 5, ...-комнатную</a><br /><a href="/list.php?sect=82">Недвижимость / продам гараж</a><br /><a href="/list.php?sect=83">Недвижимость / продам дом, коттедж ...</a><br /><a href="/list.php?sect=87">Недвижимость / продам разное</a><br /><br /><a href="/list.php?sect=28">Недвижимость / разное</a><br /><br /><a href="/list.php?sect=39">Оборудование</a><br /><a href="/list.php?sect=58">Образование</a><br /><a href="/list.php?sect=60">Одежда и Обувь</a><br /><a href="/list.php?sect=54">Оргтехника</a><br /><a href="/list.php?sect=59">Отдам даром</a><br /><a href="/list.php?sect=47">Отдых</a><br /><br /><a href="/list.php?sect=97">Приму в дар <font color=#ff0000><b>NEW</b></font></a><br /><a href="/list.php?sect=43">Продукты питания</a><br /><br /><a href="/list.php?sect=15">Работа вакансии</a><br /><a href="/list.php?sect=16">Работа ищу</a><br /><br /><a href="/list.php?sect=62">Растения</a><br /><br /><a href="/list.php?sect=64">Реклама</a><br /><br /><a href="/list.php?sect=95">Сдам гостинку, секционку</a><br /><a href="/list.php?sect=89">Сдам 1-комнатную</a><br /><a href="/list.php?sect=90">Сдам 2-комнатную</a><br /><a href="/list.php?sect=91">Сдам 3-комнатную</a><br /><a href="/list.php?sect=92">Сдам 4, 5, ...-комнатную</a><br /><a href="/list.php?sect=93">Сдам дом, коттедж</a><br /><a href="/list.php?sect=94">Сдам гараж</a><br /><a href="/list.php?sect=96">Сдам разное</a><br /><br /><a href="/list.php?sect=74">Скидки</a><br /><br /><a href="/list.php?sect=10">Cниму</a><br /><br /><a href="/list.php?sect=40">Сотовые телефоны / продам</a><br /><a href="/list.php?sect=71">Сотовые телефоны / куплю</a><br /><a href="/list.php?sect=72">Сотовые телефоны / разное</a><br /><br /><a href="/list.php?sect=48">Сотрудничество</a><br /><a href="/list.php?sect=52">Спонсорство</a><br /><a href="/list.php?sect=55">Спорт</a><br /><a href="/list.php?sect=41">Строительство</a><br /><br /><a href="/list.php?sect=63">Туризм</a><br /><br /><a href="/list.php?sect=17">Услуги / предлагаю</a><br /><a href="/list.php?sect=18">Услуги / требуются</a><br /><br /><a href="/list.php?sect=45">Фото</a><br /><br /><a href="/list.php?sect=57">Химия</a><br /><a href="/list.php?sect=73">Хобби, увлечения</a><br /><br /><a href="/list.php?sect=19">Разное</a><br /></div>

</td>

</tr>

<tr height="4"><td></td></tr>

<tr>

<td>

<div class="right_cell" align=center>

<a href="http://www.catalog.tomsk.ru" target="_blank"><img src="http://www.catalog.tomsk.ru/logo/6.gif" alt="Томск" border="0"></a><br>

<br>

<a href=http://www.catalog.tomsk.ru/advert.php target="_blank" style="text-decoration: none;">

<font color="#FF0000"><b>РЕКЛАМА<br>В ТОМСКОМ ИНТЕРНЕТЕ</b>

</font></a><br>

<font color=#ffffff>.</font>

<br><p align=center id="tbec" style="display:inline;margin:0;padding:0"><script

type="text/javascript" src="http://tbe.tom.ru/?a=desk.tomsk.ru&js=1&c=3&s=8816"></script></p><noscript><p><a href="http://tbe.tom.ru"><img src="http://tbe.tom.ru/?a=desk.tomsk.ru/&c=3&s=8816" alt="TBE" title="place hosts/hits users_online" style="border:0" /></a></p></noscript>

</p></div>

</td>

</tr>

</table></td>

</tr>

</table>





<table border="0" width="930" cellspacing="0" cellpadding="0">

<tr><td height="8"><spacer type=block height=1 width=1></td></tr>

<tr><td height="10" background="tmpl/desk/images/p3.gif"></td></tr>

<tr><td height="20"><spacer type="block" height="1" width="1"></td></tr>



<tr><td>

<script  type="text/javascript" src="http://tg.tomsk.ru/?rm=informer&class_of_category=Affiliate&encoding=windows-1251&params[aid]=4895&params[order]=h&params[categories]=28:50:175:180:182:191:204:214:304:387:410:417:542:596:704:706:707:708:51:168:169:386:397:411:446:543:81:171:178:197:208:209:216:219:222:269:270:271:275:395:414:415:416:418:449:695:701:712:167:170:457:607:202:210:578:224:541:565:568:569:570:227:272:278:315:316:317:318:319:320:321:322:324:325:327:328:329:330:331:336:337:338:339:340:341:342:343:344:345:356:357:358:359:360:361:559:560:572:573:574:575:576:579:580:581:582:584:585:586:587:588:589:590:591:592:593:594:595:597:598:656:657:600:601:603:604:605:606:608:610:611:612:614:616:658:691:711:172:173:174:177:185:186:190:199:200:206:207:273:390:391:392:412:447:540:544:545:546:557:176:203:353:354:388:396:692:705:713:192:193:194:266:303:308:366:385:442:443:444:448:702:217:218:403:404:405:406:407:408:409:221:305:312:364:394:693:694:703:718:280:281:283:284:285:310:351:352:363:716:717:288:289:290:292:293:294:295:296:297:298:299:300:301:302:307:309:453:454:455:456:313:349:369:370:371:372:377:378:379:380:382:393:419:421:422:423:425:426:427:429:696:697:698:699:700:424:428:430:431:432:435:436:437:438:441:709:710:714:715:459:460:461:463:464:465:466:467:468:469:470:472:473:474:475:476:477:478:479:481:482:483:484:485:486:488:489:490:491:514:515:516:517:518:493:494:495:496:497:498:499:500:501:503:504:505:506:519:520:521:522:523:524:508:509:510:511:512:513:526:527:528:529:530:532:533:534:536:537:538:539:548:549:550:551:552:553:554:555:556:"></script>

</td></tr>



</table>







<div align="center"><center>



<br />





<br>

<br>

<br><br>

<br><br>

<br><br>

<br><br>

<br><br>

<br><br>

<br><br>

<br><br>

</center></div>





</body>

</html>


Вот код страницу, в нем два схожих момента

Код: [Выделить]

<a href="edit.php?key=18489ff6792153f6ab46e8336390cad2">редактировать</a>
<a href="edit.php?key=7c844e9a84f6429829c8be219890562c">редактировать</a>
Вот циферки и буковки надо извлечь для дальнейшего сравнения, при том что этих кнопок "редактировать" еще добавиться, код работает, если его изменить вот так

Код: AutoIt [Выделить]

$sSearch = StringRegExpReplace($sString, '(?s)(?i).*([\da-z]{32}).*', '$1')

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