s426206/twilight-library
1
0
Fork 0
forked from filipg/twilight-library
Code Issues Pull Requests Releases Wiki Activity

Poprawione zapisywanie tytulu, odpytywanie wszystkich rocznikow

Browse Source
This commit is contained in:
Jan Nowak 2021-04-06 21:20:43 +02:00
parent 06300a987c
commit 4991806c95
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/elektronikapraktyczna.hs
View File

@ -12,7 +12,8 @@ import Text.Regex.Posix
import Text.Printf import Text.Printf
extractRecords = extractLinksWithText "(//a[@class='magazine-list__year-item'])[last()]" -- pary adres-tytuł -- extractRecords = extractLinksWithText "(//a[@class='magazine-list__year-item'])[last()]" -- pary adres-tytuł
extractRecords = extractLinksWithText "//a[@class='magazine-list__year-item']" -- pary adres-tytuł
>>> second (arr $ replace "\r\n " "") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków >>> second (arr $ replace "\r\n " "") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków
>>> second (arr $ replace " " "") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków >>> second (arr $ replace " " "") -- czyścimy drugi element pary, czyli tytuł z niepotrzebnych białych znaków
-- >>> first (arr ((++"tr") . init)) -- modyfikujemy pierwszy element pary, czyli adres URL -- >>> first (arr ((++"tr") . init)) -- modyfikujemy pierwszy element pary, czyli adres URL
@ -21,7 +22,7 @@ extractRecords = extractLinksWithText "(//a[@class='magazine-list__year-item'])[
>>> first (first ( >>> first (first (
extractLinksWithText "//div[@class='files__item']/a[contains(@href,'.pdf')]" extractLinksWithText "//div[@class='files__item']/a[contains(@href,'.pdf')]"
>>> second (arr $ replace "\r\n " "") >>> second (arr $ replace "\r\n " "")
>>> first (arr $ replace "//" "/") -- >>> first (arr $ replace "//" "/")
) )
) -- pobieramy stronę z adresu URL i wyciągamy linki z tej strony pasujące do wyrażenia XPathowego ) -- pobieramy stronę z adresu URL i wyciągamy linki z tej strony pasujące do wyrażenia XPathowego
-- ostatecznie wyjdą trójki ((adres URL, tytuł artykułu), tytuł rocznika) -- ostatecznie wyjdą trójki ((adres URL, tytuł artykułu), tytuł rocznika)
@ -35,7 +36,7 @@ toShadowItem (((url, chapterTitle), articleTitle), yearlyTitle) =
format = Just "pdf", format = Just "pdf",
finalUrl = url finalUrl = url
} }
where title = "Elektronika Praktyczna " ++ yearlyTitle ++ " " ++ articleTitle where title = "Elektronika Praktyczna " ++ (replace " " "" articleTitle)
date = yearlyTitle date = yearlyTitle
getDate yearlyTitle = getDate yearlyTitle =