Iframe shortcode parser for Lightning

gistfile1.txt

<dti:story:element:exist field="WebText"> 
<script language="cache" runat="server">
	set storyText = ##class(dt.cms.support.Rules).extractStoryElement("WebText",gStory,0)
</script>
<dti:else>
<script language="cache" runat="server">
	set storyText = ##class(dt.cms.support.Rules).extractStoryElement("Text",gStory,0)	
</script>
</dti:story:element:exist>

<script language="cache" runat="server">
	// parse iframe shortcodes if they exist 
	set iframeCount = $LENGTH(storyText,"[iframe")
	if (iframeCount >= 1) {
		set pos = 1
		set val = ""
		FOR i=1:1:iframeCount {
			set iframeMatch = $LOCATE(storyText, "\[iframe (.*?)\](.*?)", pos, pos, val)
			set params = $REPLACE($REPLACE(val,"[iframe ", ""),"]","")
			set storyText = $REPLACE(storyText,val,"<iframe "_params_" class=""iframe-default""></iframe>")
		}
	}
	write storyText
</script>