This Text file is old! In a 🏛️Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)
; regexptest2.scm: extracting HTML tags from strings (load "pregexp.scm") (require-library "functio.ss") (pregexp-match "" "
  • hello
    • ") (pregexp-match "" "
  • hello
    • ") (pregexp-match "" "
  • hello
    • ") (pregexp-match "(\\w\.scm):" "filename.scm:") (pregexp-match ":([\\w ]*)" ": this is a description. ") (pregexp-match "(\\w*\.scm)\\s*:([\\w ]*)" "filename.scm: this is a description. ") (define line "some stuff
  • filename.scm: description is here
    • some more stuff") ; substitute:
  • description is here
    • (define pattern (pregexp "
  • (\\w*\.scm)\\s*:([\\w ]*)
    • ")) (define answer (pregexp-match pattern line)) (display answer) (display (format "~%filename: ~A, descr: ~A" (second answer) (third answer))) (pregexp-replace pattern line "\\2")

    Text file Source (historic): geocities.com/soho/square/3472

    geocities.com/soho/square
    geocities.com/soho

    (to report bad content: archivehelp @ gmail)