169 похожих чатов

А вот вопрос куда копать не понимаю, вроде работает функция,

но возращает странное

take 1 ategs
[TagBranch "a" [("href","/?sa=X&ved=0ahUKEwiQ7Pbhzs6FAxURBNsEHVRuDAgQOwgC")] [TagBranch "span" [("class","V6gwVd")] [TagLeaf (TagText "G")],TagBranch "span" [("class","iWkuvd")] [TagLeaf (TagText "o")],TagBranch "span" [("class","cDrQ7")] [TagLeaf (TagText "o")],TagBranch "span" [("class","V6gwVd")] [TagLeaf (TagText "g")],TagBranch "span" [("class","ntlR9")] [TagLeaf (TagText "l")],TagBranch "span" [("class","iWkuvd tJ3Myc")] [TagLeaf (TagText "e")]]]


1 ) тут должны были быть только а теги
2) "/?sa=X&ved=0ahUKEwiQ7Pbhzs6FAxURBNsEHVRuDAgQOwgC" такое в документе сохраненном (https://www.google.com/search?q=haskell) не нашлось....

как дальше разбираться, при чем такое же с поиском тега title работает ожидаемо..

6 ответов

67 просмотров

тут ровно один тэг <a>, но он содержит потомков

а у меня нашлось

Fedor- Автор вопроса
Cheese Syrowiecki
а у меня нашлось

наверное не очень коректно кейт ищет...

вот так будет, если отформатировать [ TagBranch "a" [("href", "/?sa=X&ved=0ahUKEwiQ7Pbhzs6FAxURBNsEHVRuDAgQOwgC")] [ TagBranch "span" [("class", "V6gwVd")] [TagLeaf (TagText "G")] , TagBranch "span" [("class", "iWkuvd")] [TagLeaf (TagText "o")] , TagBranch "span" [("class", "cDrQ7")] [TagLeaf (TagText "o")] , TagBranch "span" [("class", "V6gwVd")] [TagLeaf (TagText "g")] , TagBranch "span" [("class", "ntlR9")] [TagLeaf (TagText "l")] , TagBranch "span" [("class", "iWkuvd tJ3Myc")] [TagLeaf (TagText "e")] ] ]

Fedor- Автор вопроса
Cheese Syrowiecki
вот так будет, если отформатировать [ TagBranch ...

Это я понял, а дальше, если я хочу выкинуть не нужное надо делать что то типа такого upperCase = transformTree f where f (TagBranch name atts inner) = [TagBranch (map toUpper name) atts inner] f x = [x]

Cheese Syrowiecki
вот так будет, если отформатировать [ TagBranch ...

например, можно к этому применить > fold [text | TagLeaf (TagText text) <- universeTree a] "Google"

Похожие вопросы

Обсуждают сегодня

а через ESC-код ?
Alexey Kulakov
29
30500 за редактор? )
Владимир
47
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
13
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...
notme
6
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
5
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Ребят в СИ можно реализовать ООП?
Николай
33
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Карта сайта