Replace-fukntion

Prøv at leg lidt med
VB funktionen split()
http://devguru.com/Technologies/vbscript/quickref/split.html

<%@ Language = "VBScript" %>
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
    <title>Untitled</title>
</head>

<body>
<%
Dim DinTextStreng, aSpl
DinTextStreng = "<b> Søren </b>"

aSpl = Split(DinTextStreng)
Response.write(""  & DinTextStreng & aSpl(1) &"")
%>
</body>
</html>

Det leteste er noget med Reqular expression eksempel vis lave en funktion sådan her:


<%
str = "En lille test <b>Gentag</b> står der 2 gange"


function funk1(inputstreng)
dim regcon
set regcon = new RegExp
regcon.pattern = "<b>(.*?)</b>"
regcon.ignoreCase = true
regcon.Global = true
str = regcon.replace(inputstreng, "<b>$1</b>$1")
funk1 = str
end function


Response.Write funk1(str)
%>

Extrem fin kode EagleEye.... EXTREM !