Вверх ↑
Этот топик читают: Гость
Ответов: 23
Рейтинг: 3
#1: 2010-07-27 15:25:00 ЛС | профиль | цитата
Программа для поиска нескольких строк в html коде и вывод найденных.
Помогите найти ошибку почему то не все находит
есть по 2-3 вписывать то почти всегда все находит а если больше то тупо не видит другие строчки (

http://hiasm.com/xf/attach/share/Project71.rar


карма: 0

0
Ответов: 16884
Рейтинг: 1239
#2: 2010-07-27 16:07:44 ЛС | профиль | цитата
Bacek, Сначала нужно прикинуть, чем нужная строка отличается от ненужных.
Примерно так. Дальше самостоятельно.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1project147.zip [14.6KB] [78]
Ответов: 23
Рейтинг: 3
#3: 2010-07-27 17:16:21 ЛС | профиль | цитата
Маска не подходит так как там не все проходят её
И у меня проблема в другом ...
Он все норм находит если в списке искомых 2 пункта но когда их больше то тупо не ищет их (
------------ Дoбавленo в 16.59:
Хм проблема почти решилась дело было в компоненте Position

Но теперь почему то последний только не ищет (


Add(ListBox,8820123,441,251)
{
Left=15
Top=25
Width=465
Height=260
Color=12632256
Strings=#54:Запрещённый приём / Sucker Punch [тизер] (2010) WEBRip|32:Пенелопа / Penelope (2006) HDRip|60:РПЛ 09 v1.0 для FIFA 09 by Fifachamp Team Software (2009) РС|44:Сделай шаг / Make It Happen (2008) HDRip-AVC|35:WINDOWS 7 Максимальная (07.2010) РС|79:Своя правда / Justified (сезон 1: серии 1-5 из 13) (2010) HDTVRip [NovaFilm.TV]|63:Разумное сомнение / Beyond a Reasonable Doubt (2009) BDRip 720p|34:Registry Winner 5.9.7.25 (2010) PC|54:StarCraft II: Wings of Liberty (1С-СофтКлаб) (2010) PC|59:Ashampoo WinOptimizer v7.11 + Portable Multi(RUS) (2010) PC|45:Громкое дело. Деревня призраков (2010) SATRip|57:50 Cent - Get Rich Or Die Tryin (Bonus DVD) (2003) DVDRip|41:Kutt Calhoun - Raw And Un-Kutt (2010) MP3|35:Кэйон!! [ТВ-2] / K-On!! (2010) HDTV|61:Обои для рабочего стола Тера Патрик / Tera Patrick (2010) JPG|
Point(Index)
}
Add(ArrayEnum,2819532,455,315)
{
link(onItem,2243982:doEvent1,[])
link(Array,8820123:Array,[])
}
Add(StrList,5115472,476,392)
{
}
Add(Position,13450275,525,448)
{
ShortSearch=1
link(onSearch,13111351:doString,[])
link(Target,4808613:Data1,[(538,418)(573,418)])
}
Add(GetData,4808613,567,357)
{
link(Data,13948584:Value,[])
}
Add(FormatStr,13111351,574,448)
{
DataCount=1
Mask="%1"
link(onFString,13447799:doAdd,[])
link(Str1,4808613:Data2,[])
}
Add(Memory,13948584,567,315)
{
Default=String()
}
Add(FormatStr,8041149,476,448)
{
DataCount=1
Mask="%1"
link(onFString,13450275:doSearch,[])
link(Str1,5115472:Text,[])
}
Add(Button,9337760,266,392)
{
Left=490
Top=110
Width=65
Caption="Искать"
link(onClick,689154:doData,[])
}
Add(Hub,2243982,497,315)
{
link(onEvent1,8041149:doString,[(523,321)(523,387)(464,387)(464,454)])
link(onEvent2,13948584:doValue,[(539,328)(539,321)])
}
Add(StrList,1002659,322,329)
{
Strings=#54:Запрещённый приём / Sucker Punch [тизер] (2010) WEBRip|32:Пенелопа / Penelope (2006) HDRip|60:РПЛ 09 v1.0 для FIFA 09 by Fifachamp Team Software (2009) РС|44:Сделай шаг / Make It Happen (2008) HDRip-AVC|35:WINDOWS 7 Максимальная (07.2010) РС|79:Своя правда / Justified (сезон 1: серии 1-5 из 13) (2010) HDTVRip [NovaFilm.TV]|63:Разумное сомнение / Beyond a Reasonable Doubt (2009) BDRip 720p|34:Registry Winner 5.9.7.25 (2010) PC|54:StarCraft II: Wings of Liberty (1С-СофтКлаб) (2010) PC|59:Ashampoo WinOptimizer v7.11 + Portable Multi(RUS) (2010) PC|45:Громкое дело. Деревня призраков (2010) SATRip|57:50 Cent - Get Rich Or Die Tryin (Bonus DVD) (2003) DVDRip|41:Kutt Calhoun - Raw And Un-Kutt (2010) MP3|35:Кэйон!! [ТВ-2] / K-On!! (2010) HDTV|61:Обои для рабочего стола Тера Патрик / Tera Patrick (2010) JPG|
}
Add(DoData,689154,322,392)
{
link(onEventData,16647328:doEvent1,[])
link(Data,1002659:Text,[])
}
Add(Hub,16647328,371,392)
{
link(onEvent1,5115472:doAdd,[])
link(onEvent2,2819532:doEnum,[(413,405)(413,321)])
}
Add(Memo,13447799,637,448)
{
Left=570
Top=25
Width=430
Height=260
Color=12632256
ScrollBars=2
link(onChange,2873072:doCompare,[(681,454)(681,489)(632,489)(632,524)])
}
Add(FormatStr,4251923,693,518)
{
DataCount=1
Mask="Найдено %1 торрент(ов)."
link(onFString,10036868:doText,[])
link(Str1,7171572:Var3,[(699,509)])
}
Add(If_else,2873072,644,518)
{
Type=2
Op2=String(1)
link(onTrue,4251923:doString,[])
link(Op1,7171572:Var2,[])
}
Add(GetDataEx,7171572,644,504)
{
link(Data,13447799:Count,[])
}
Add(Label,10036868,742,518)
{
Left=575
Top=305
Width=325
}
Add(Label,4996675,714,336)
{
Left=15
Top=300
Width=470
Caption="Всего 15 шт"
}


------------ Дoбавленo в 17.16:
Все исправил тему можно закрыть
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#4: 2010-07-27 17:21:34 ЛС | профиль | цитата
code_19727.txt
------------ Дoбавленo в 17.21:
Bacek, всё ж таки посмотри. Лишнего у тебя много.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_19727.txt [3.9KB] [118]
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)