Replace [:7:] med billede fra DB

Jeg havde dette liggende, hvis det kan bruges:

Function GetImgDb(id)
    ' SELECT url FROM images WHERE id={id}
    ' ...

    GetImgDb = "Testbillede" & id & ".gif"
End Function


Function FormatText(str)
    Dim re, w, match, matches, imgUrl, index, mLen

    Set re = New RegExp
    re.Global = True
    re.Pattern = "\[:(\d+):\]"

    Set matches = re.Execute(str)

    w = 0

    For Each match In matches
        index = match.FirstIndex - w
        mLen = Len(match)
   
        imgUrl = "<img src=""" & GetImgDb(match.SubMatches(0)) & """>"
   
        str = Mid(str, 1, index) & imgUrl & Mid(str, index+mLen+1)
   
        w = w + mLen - Len(imgUrl)
    Next

    FormatText = str
End Function


str = "[:1:]qwe[:7:]wer[:118:]"
str = FormatText(str)

Response.Write Server.HTMLEncode(str)

Perfekt, smid svar ;)

hmm lukker