newlispfanclub.alh.net

Thanks Lutz.

I also try to increase the newlisp stack like :

E:\newlisp>newlisp -s 100000 test.lsp

E:\newlisp>newlisp -s 1000000 test.lsp

but seems change nothing.

Files in attachment are test.lsp b.txt c.txt test.lsp: (set 's (read-file "c.txt")) (println (find-all {(?s)target=_blank>(?:(?!target=_blank>).)*?在线观看_百度视频} s ) ) (exit ) while b.txt and c.txt are actually html source code. E:\newlisp>newlisp newLISP v.10.4.7 on Win32 IPv4/6 UTF-8 libffi, execute '...

Thank you Lutz. It works. I should keep on learning NEWLISP. ps: found in google : https://github.com/kosh04/newlisp.snippet/blob/master/net.lsp ;; URL translation of hex codes with dynamic replacement (define (url-encode url (literal "")) (join (map (lambda (c) (if (or (regex "[-A-Za-z0-9$_.+!*'(|)...

much thanks to Lutz.

but in url:

(url-encode "爱")

should be %e7%88%b1

how to do that?

newLISP v.10.4.5 on Win32 IPv4/6 UTF-8 libffi, execute 'newlisp -h' for more info.

(define (url-encode str)
(replace {([^a-zA-Z0-9])} str (format "%%%2X" (char $1)) 0))

(url-encode "倒")

ERR: invalid UTF8 string in function char。

need help.