Ik wil dat men in een dynamische pagina, een include kan plaatsen (bijvoorbeeld een extern formulier). de constructie: men tiept "[include steun.cfm]". deze code wordt uit de tekst gefilterd en vervangen door de werkende code '<CFINCLUDE TEMPLATE="steun.cfm">'.
waarde in database:
---
blablabla verhaal
[include steun.cfm]
en weer tekst blabla
---
verwerking in pagina:
---
<CFSET incStart = findnocase("[include", evaluate(pCode)) + 9>
<CFSET incStop = findnocase(".cfm]", evaluate(pCode), incStart)>
<CFSET incCode = mid(evaluate(pCode), incStart, incStop)>
<CFSET incCode = LEFT(incCode, (LEN(incCode)-5))>
<CFSET dump = "[include #incCode#.cfm]">
// de include-code wordt niet als tekst weergegeven
#replacenocase(replace(evaluate(pCode), chr(13), "<br>", "ALL"), dump, '')#
<CFINCLUDE TEMPLATE="#incCode#.cfm">
---
weergave moet zijn:
---
blablabla verhaal
en weer tekst blabla
deze tekst staat in steun.cfm
---
foutmelding: Template file not found
vars:
incStart= 31
incStop= 36
incCode= steun.cfm] en weer tekst b
dump= [include steun.cfm] en weer tekst b.cfm]
waarde in database:
---
blablabla verhaal
[include steun.cfm]
en weer tekst blabla
---
verwerking in pagina:
---
<CFSET incStart = findnocase("[include", evaluate(pCode)) + 9>
<CFSET incStop = findnocase(".cfm]", evaluate(pCode), incStart)>
<CFSET incCode = mid(evaluate(pCode), incStart, incStop)>
<CFSET incCode = LEFT(incCode, (LEN(incCode)-5))>
<CFSET dump = "[include #incCode#.cfm]">
// de include-code wordt niet als tekst weergegeven
#replacenocase(replace(evaluate(pCode), chr(13), "<br>", "ALL"), dump, '')#
<CFINCLUDE TEMPLATE="#incCode#.cfm">
---
weergave moet zijn:
---
blablabla verhaal
en weer tekst blabla
deze tekst staat in steun.cfm
---
foutmelding: Template file not found
vars:
incStart= 31
incStop= 36
incCode= steun.cfm] en weer tekst b
dump= [include steun.cfm] en weer tekst b.cfm]