Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
sNewHTML = replace(html,sReplaceText,sModuleFunction) skal nok ændres til html = replace(html,sReplaceText,sModuleFunction) ellers får du vist aldrig hold på loopet igen.
Jeg har prøvet mig lidt frem med regexp... det vil hellere ikke rigtig...
webSiteContent = Request.Form("inpContent")
Set re = New RegExp re.Global = True re.IgnoreCase = True re.Pattern = "!moduleStart!([\s\S]+?)!moduleEnd!"
Set matches = re.Execute(webSiteContent)
oldindex = 0
For Each m In matches ' udskriv tekst før match Response.Write Mid(websiteContent, oldindex+1, m.FirstIndex-oldindex) ' kald funktion Execute(m.SubMatches(0)) oldindex = m.FirstIndex + m.Length Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.