Poprawione zapisywanie tytulu, odpytywanie wszystkich rocznikow
This commit is contained in:
parent
06300a987c
commit
4991806c95
@ -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 =
|
||||||
|
Loading…
Reference in New Issue
Block a user