Вверх ↑
Ответов: 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] [230], библиотека.jpg [408KB] [1084]