Script Library: 1238 scripts
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

Discussion posts for script simetrics.r

1
fvzv
18-Feb-2006 11:43
Edited:
fvzv
18-Feb-2006 18:25
Hello,


If you have suggestion on how to improve performance, on new metrics 
you would like to see implemented, or anything else related to similarity 
metrics, this is the place to submit them.

Thanks

François
2
sumnerzzupa
24-May 5:14
REBOL

There are helpful articles in this forum to help you improve that. There are so many experts here.

Contents:

San Clemente Concrete Contractor

MakeDoc2 by REBOL- 24-May-2021
3
coopergetrea
4-Aug 3:58

I do my assignments using SIMPLIS tutorials and for my https://domyhomeworkonline.net/

View my SIMetrix scripts. Assignment 7 is my last task on this topic and I explained how I did it with an instant paper generator. What other tools can help me write in a simple interpreted script language?

4
johnsjvi95
10-Sep 7:04
REBOL

HTML,XML DOM is built as a tree structure from a document. In order to get or set something you must search the entire tree with each call to a tag. Before returning a single tag it must first build a nodelist of all alike tags before a method (function call) can be used.

Contents:

Side Window Replacement

MakeDoc2 by REBOL- 10-Sep-2021
5
ahmedsayeed1
12-Oct 15:51

wsp: charset " ^-^/" ; whitespace: sp, tab, return

emit-end-tag: func [tag] [
; Emit an end tag from a tag.
http://www.compilatori.com/computers/smartphones/
tag: copy/part tag any [find tag wsp tail tag]
  insert tag #"/"
emit tag

]

http://www.acpirateradio.co.uk/category/tech/

emit-tag: func [text tag start end] [
; Used to emit special one-sided tags:
  while [text: find text tag] [
remove/part text length? tag
text: insert text start
text: insert any [find text end-char tail text] end
http://www.logoarts.co.uk/computers/printer-types/
]

]

end-char: charset [" " “)” “]” “.” “,” “^/”]

escape-html: func [text][
; Convert to avoid special HTML chars:
http://www.slipstone.co.uk/category/tech/
foreach [from to] html-codes [replace/all text from to]
  text

]

html-codes: [“&” “&” “<” “<” “>” “>”]

http://embermanchester.uk/health/social-privacy/

emit-lines: func [text] [
; Emit separate lines in normal font:
  replace/all text newline<br>
emit text

]

;– HTML Document Formatting Functions:

http://connstr.net/category/tech/

fix-tags: func [text] [
if old-tags [
      emit-tag text "<c>" "<tt>" "</tt>"
emit-tag text "<w>" "<b><tt>" "</tt></b>"
emit-tag text "<s>" "<b><i>" "</i></b>"

http://joerg.li/health/xiaomi/

wsp: charset " ^-^/" ; whitespace: sp, tab, return

emit-end-tag: func [tag] [
; Emit an end tag from a tag.
  tag: copy/part tag any [find tag wsp tail tag]
insert tag #"/"
emit tag

]

http://www.jopspeech.com/category/tech/

emit-tag: func [text tag start end] [
; Used to emit special one-sided tags:
  while [text: find text tag] [
remove/part text length? tag
text: insert text start
text: insert any [find text end-char tail text] end
http://www.wearelondonmade.com/computers/car-computers/
]

]

end-char: charset [" " “)” “]” “.” “,” “^/”]

escape-html: func [text][
; Convert to avoid special HTML chars:
  foreach [from to] html-codes [replace/all text from to]
text

https://waytowhatsnext.com/category/property/

]

html-codes: [“&” “&” “<” “<” “>” “>”]

emit-lines: func [text] [
; Emit separate lines in normal font:
  replace/all text newline<br>
emit text

http://www.iu-bloomington.com/category/services/

]

;– HTML Document Formatting Functions:

fix-tags: func [text] [
if old-tags [
      emit-tag text "<c>" "<tt>" "</tt>"
https://komiya-dental.com/category/property/
emit-tag text “<w>” “<b><tt>” “</tt></b>”
      emit-tag text "<s>" "<b><i>" "</i></b>"

html-codes: [“&” “&” “<” “<” “>” “>”]

emit-lines: func [text] [
; Emit separate lines in normal font:
  replace/all text newline<br>
emit text

http://www-look-4.com/category/technology/

]

;– HTML Document Formatting Functions:

fix-tags: func [text] [
if old-tags [
      emit-tag text "<c>" "<tt>" "</tt>"
emit-tag text "<w>" "<b><tt>" "</tt></b>"
emit-tag text "<s>" "<b><i>" "</i></b>"

html-codes: [“&” “&” “<” “<” “>” “>”]

https://www.webb-dev.co.uk/category/property/

emit-lines: func [text] [
; Emit separate lines in normal font:
  replace/all text newline<br>
emit text

]

;– HTML Document Formatting Functions:

fix-tags: func [text] [
if old-tags [
      emit-tag text "<c>" "<tt>" "</tt>"
emit-tag text "<w>" "<b><tt>" "</tt></b>"
emit-tag text "<s>" "<b><i>" "</i></b>"
Notes