| Language: |
|
| Pastebin: | 92050 |
| Author: | middayc |
| Subject: | extract some info from webpage |
| Created: | 2008-07-21 11:39:41 |
Download and save
Toggle line numbers
| 1 | page: read http://www.avto.net/2004/motornaKolesa/zadetki_zadnjih100.asp
| | 2 | ads: make block! 110
| | 3 | parse adspart [ some [ to <tr> copy ad to </tr> ( if find ad {<a HREF="oglas.asp?} [ append ads ad ] ) ] ]
| | 4 |
| | 5 | ads-rule: [ thru </td> thru {<a href="} copy _link to {"} thru ">" copy _title to </a> thru <small> copy _descr to </small> ]
| | 6 | clean-html: func [ a ] [ replace a " " " " ]
| | 7 | foreach ad ads [
| | 8 | parse ad ads-rule
| | 9 | print clean-html _title
| | 10 | ]
|
|
| Thread: |
|
Tip: Click the line numbers to toggle highliting on that line.
Note: You can prefix a line with "@@@" to highlight it.