Вверх ↑
Этот топик читают: Гость
Ответов: 287
Рейтинг: 5
#31: 2015-07-16 16:14:09 ЛС | профиль | цитата
Блин че я такой тупой-то а.Второй день пытаюсь подать имя файла при сохранении.Добился только выдачи индекса.
code_36019.txt
карма: 0

0
файлы: 1code_36019.txt [5.3KB] [262]
Разработчик
Ответов: 26163
Рейтинг: 2127
#32: 2015-07-16 16:34:17 ЛС | профиль | цитата
Udokanec, объясни мне -- зачем там все эти плюсы и знаки равно
URL прекрасно парсируется компонентом FilePartElm
карма: 22

0
Ответов: 287
Рейтинг: 5
#33: 2015-07-16 16:48:34 ЛС | профиль | цитата
nesco
Парсю книги с трех разных сайтов в одну программу.Алгоритм везде разный.Ну и не нашел нечего лучше что-бы объединить в одну таблицу.На большее мозгов не хватает.
карма: 0

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#34: 2015-07-16 17:24:10 ЛС | профиль | цитата
Udokanec писал(а):
Парсю книги с трех разных сайтов в одну программу.Алгоритм везде разный

А причем тут алгоритм
Зачем в таблице эти все лишние знаки, кому они там нужны. Таблица -- это уже окончательный вариант твоего распарсирования. Ссылки на файлы -- это пути к файлу, и парсируется они на имя и путь при помощи вышеуказанного компонента.
карма: 22

0
Ответов: 287
Рейтинг: 5
#35: 2015-07-16 18:24:50 ЛС | профиль | цитата
В таблице они не видны.Я вытягиваю данные для загрузки.чтения при помощи BlockFind.По другому пока не умею.

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#36: 2015-07-16 18:48:12 ЛС | профиль | цитата
Udokanec писал(а):
Парсю книги с трех разных сайтов в одну программу.Алгоритм везде разный.
Ссылки дай на все три.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 287
Рейтинг: 5
#37: 2015-07-16 19:01:28 ЛС | профиль | цитата
http://dimonvideo.ru/books.html
http://www.flibusta.net/
http://coollib.com/g
Господа а че насчет вопроса
карма: 0

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#38: 2015-07-16 19:04:40 ЛС | профиль | цитата
Udokanec писал(а):
Господа а че насчет вопроса

Вот это

Tad писал(а):
Ссылки дай на все три

похоже, говорит о том, что Tad хочет что-то замутить, и там должно быть и твое решение
карма: 22

0
Ответов: 287
Рейтинг: 5
#39: 2015-07-16 19:19:18 ЛС | профиль | цитата
У меня прога уже почти готова.Ну конечно у Tad схема будет изящьней и правильней.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#40: 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]
Ответов: 287
Рейтинг: 5
#41: 2015-07-17 07:36:48 ЛС | профиль | цитата
У меня эта программа выглядит так:
библиотека.jpg
Я то-же сначала так делал-не понравилось.
То, о чем написано выше,
здесь
код
Оригинально и просто.Начинаю тихо себя ненавидеть.У меня кусок этого кода раза в 3 больше.
Tad а насчет вопроса по поводу сохранении с именем файла.
------------ Дoбавленo в 07.36:
Насчет сохранения вопрос снимается,совсем крыша поехала.После того как все разжевал.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#42: 2015-07-18 13:09:35 ЛС | профиль | цитата
Читалка. Библиотека4.rar
Перезалил. Путало авторов.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1Библиотека4.rar [2.9KB] [242]
Гость
Ответов: 17029
Рейтинг: 0
#43: 2015-07-18 16:35:50 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 07:16:09
карма: 0

0
Ответов: 287
Рейтинг: 5
#44: 2015-07-18 16:39:38 ЛС | профиль | цитата
Блин извиняюсь не ту схему открыл.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#45: 2015-07-18 18:40:53 ЛС | профиль | цитата
Насчет медленно - не надо ля-ля.
Меня устраивает.
Чтение данных для первого ComboBox-а - 5 msec без учета скорости интернета.
Второй ComboBox - 0.4 msec
Создание списка - 2500 названий за 30 msec без учета скорости интернета и скорости отрисовки таблицы.

Поставил на буку. Дома открыл "Полосатый геноцид".
Кинул в машину, поехал на море.
Два часа чтения на пляже промчались незаметно.

------------ Дoбавленo в 18.40:
А вот чего не хватает - закладки.
При закрытии программы должно запоминать Жанр, Тему, Название книги и хотя-бы первую строку в окне.
Чтобы при повторном запуске программки всё устанавливалось автоматически в нужное положение.
При случае дополню.

И можно значительно! ускорить вывод в таблицу, применив таблицу с точкой PerPage + навигатор.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)