nothing important

This commit is contained in:
VaclavT 2022-01-27 00:01:45 +01:00
parent 88fee2a2a2
commit 198c4b2c4d
2 changed files with 16 additions and 0 deletions

1
.gitignore vendored
View File

@ -5,3 +5,4 @@ ml
.DS_Store
CMakeFiles
Testing
.cache

15
tmp/html_scrap.lsp Normal file
View 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)