nothing important
This commit is contained in:
parent
88fee2a2a2
commit
198c4b2c4d
|
|
@ -5,3 +5,4 @@ ml
|
|||
.DS_Store
|
||||
CMakeFiles
|
||||
Testing
|
||||
.cache
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
Loading…
Reference in New Issue