Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2015-07-16 21:19:37 ЛС | профиль | цитата
Udokanec,
Один из способов парсинга выбранной строки таблицы:
code_36022.txt
Чтобы не светились Label - вместо них ставь Memory
------------ Дoбавленo в 20.53:
И не надо в таблицу пихать
%2+%3+http://www.flibusta.net/b/%1/fb2.gg+http://www.flibusta.net/b/%1/read
вполне достаточно
%2+%3+%1
Будет намного быстрей. ------------ Дoбавленo в 21.08:
То, о чем написано выше,
здесь
Add(MainForm,5095449,98,154)
{
 Width=907
 Height=431
 Color=15793151
 Font=[MS Sans Serif,8,0,536870912,1]
 Caption=""
 BorderStyle=1
 Position=1
}
Add(HubEx,7758109,196,105)
{
}
Add(HTTP_Get,177524,189,168)
{
 link(onDownload,3018878:doConvert,[])
 link(URL,13031523:Value,[(195,149)(196,149)])
}
Add(Convertor,3018878,238,175)
{
 Mode=11
 link(onResult,14045723:doSearch,[])
}
Add(BlockFind,14045723,287,175)
{
 IncludeBlock=1
 StartBlock="</h4>"
 EndBlock="<h4>"
 link(onSearch,2355244:doCharset,[])
}
Add(BlockFind,11889997,469,98)
{
 IncludeBlock=1
 StartBlock=">"
 EndBlock="</a>"
 link(onSearch,12292886:doValue,[])
}
Add(Charset,2355244,336,175)
{
 Type=7
 link(onCharset,6415655:doEvent1,[])
}
Add(BlockFind,5018582,420,98)
{
 IncludeBlock=1
 StartBlock="<h5><a href="
 EndBlock="</h5>"
 link(onSearch,11889997:doSearch,[])
}
Add(Hub,6415655,385,175)
{
 OutCount=3
 link(onEvent1,5018582:doSearch,[(409,181)(409,104)])
 link(onEvent2,4721428:doSearch,[(415,188)(415,146)])
 link(onEvent3,544381:doString,[])
}
Add(BlockFind,4721428,420,140)
{
 IncludeBlock=1
 StartBlock=" <a href=/b/"
 EndBlock="</a><br>"
 link(onSearch,9450161:doSplit,[])
}
Add(StrPart,9450161,469,140)
{
 Char=">"
 Point(Left)
 Point(Right)
}
Add(FormatStr,544381,469,189)
{
 DataCount=3
 Mask="%2+%3+%1"
 link(onFString,14288278:doAdd,[])
 link(Str1,9450161:Left,[])
 link(Str2,9450161:Right,[])
 link(Str3,12292886:Value,[(489,179)(531,179)])
}
Add(StringTableMT,14288278,525,189)
{
 Left=15
 Top=20
 Width=563
 Height=244
 Columns=#18:Название книги=260|9:Автор=180|8:Ссылка=0|
 StrDelimiter="+"
 MT_ColDelimiter=""
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(EndIdx)
 Point(onColumnClick)
 Point(doSort)
 link(onClick,1395838:doSplit,[(574,195)(574,254)(520,254)(520,272)])
 link(onColumnClick,14288278:doSort,[(569,202)(569,243)(515,243)(515,230)])
}
Add(HubEx,7164032,427,182)
{
}
Add(Button,7189103,98,210)
{
 Left=605
 Top=70
 Width=75
 Height=35
 Caption="Список"
 link(onClick,10646761:doEvent1,[])
}
Add(Memory,12292886,525,98)
{
}
Add(Hub,10646761,147,210)
{
 link(onEvent1,14288278:doClear,[(513,216)(513,202)])
 link(onEvent2,177524:doDownload,[(175,223)(175,174)])
}
Add(Label,9292980,616,224)
{
 Left=30
 Top=290
 Width=85
 Height=95
 Caption="Название

Автор

Ссылка в Таб.

Для закачки"
 AutoSize=1
 Alignment=1
}
Add(Label,8774928,693,266)
{
 Left=140
 Top=290
}
Add(Label,3554704,651,273)
{
 Left=140
 Top=315
}
Add(Label,5513621,616,280)
{
 Left=140
 Top=340
}
Add(MultiStrData,1395838,532,266)
{
 Char="+"
 Count=3
 link(Str,14288278:Select,[])
 link(onPart1,8774928:doText,[])
 link(onPart2,3554704:doText,[])
 link(onPart3,5513621:doText,[])
}
Add(Memory,13031523,189,91)
{
 Default=String(http://www.flibusta.net/g/det_action)
}
Add(Button,5415375,532,329)
{
 Left=605
 Top=130
 Width=75
 Height=35
 Caption="Закачать"
 link(onClick,2446750:doStrCatDlm,[])
}
Add(StrCatDelim,2446750,602,329)
{
 Str1="http://www.flibusta.net/b/"
 Str2="/fb2.gg"
 Point(Delimiter)
 link(onStrCatDlm,16114539:doText,[])
 link(Delimiter,5513621:Caption,[])
}
Add(Label,16114539,693,329)
{
 Left=140
 Top=370
}
------------ Дoбавленo в 21.19:
У меня эта программа выглядит так:
библиотека.jpg
После клика на нужной строке таблицы, открывается известная тебе страница в браузере, а там хочешь читай, хочешь качай, хочешь почитай про автора или отзывы о книге.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 2code_36022.txt [2.9KB] [235], библиотека.jpg [408KB] [1089]