nothing important
This commit is contained in:
1
.gitignore
vendored
1
.gitignore
vendored
@@ -5,3 +5,4 @@ ml
|
|||||||
.DS_Store
|
.DS_Store
|
||||||
CMakeFiles
|
CMakeFiles
|
||||||
Testing
|
Testing
|
||||||
|
.cache
|
||||||
|
|||||||
15
tmp/html_scrap.lsp
Normal file
15
tmp/html_scrap.lsp
Normal file
@@ -0,0 +1,15 @@
|
|||||||
|
|
||||||
|
;read file
|
||||||
|
(define web (read-file "/tmp/finviz_quote_syf.html"))
|
||||||
|
(print "file read")
|
||||||
|
|
||||||
|
; remove head section
|
||||||
|
(define pos (string-find web "<body" 0))
|
||||||
|
(define web2 (string-substr web pos 1000000))
|
||||||
|
|
||||||
|
; remove scripts
|
||||||
|
(define web3 (string-replace web2 "<script(.*?)>((.|\r?\n)*?)</script>" ""))
|
||||||
|
|
||||||
|
; extract tables
|
||||||
|
|
||||||
|
(print web3)
|
||||||
Reference in New Issue
Block a user