nothing important
This commit is contained in:
1
.gitignore
vendored
1
.gitignore
vendored
@@ -5,3 +5,4 @@ ml
|
||||
.DS_Store
|
||||
CMakeFiles
|
||||
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