Erstat tal med billeder , function

Prøv dette:

tekst = "... 65 ..."

Set re = new RegExp
With re
    .Pattern = "(\d)"
    .Global = True
End With

tekst = re.Replace("<img src=""numbers/$1.gif"">")

Får fejlen:

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01c2'

Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: 're.Replace'

Min fejl. Det skulle være:

tekst = re.Replace(tekst, "<img src=""numbers/$1.gif"">")

Nu får jeg ingen fejl, men heller ikke noget output..

Plus,jeg ville gerne have det i en function således jeg kan nøjes med at skrive

response.write imgnumbers(65)
og så får jeg output med billeder..

Der er jo heller ikke noget i koden som udskriver.

Prøv med Response.Write tekst for at se resultatet.

Ah ja.. ;)
Men så virker det..

Og har lavet det som en function der ser således ud..
Function imgnumbers(strTal)

Set re = new RegExp
With re
    .Pattern = "(\d)"
    .Global = True
End With


strTal = re.Replace(strTal, "<img src=""images/letters/$1.gif"">")
imgnumbers =  strTal
End Function


Kaster du et svar?

Mit bud:

Function ImgNumbers(tekst)
    tekst = "" + tekst

    Set re = new RegExp
    With re
        .Pattern = "(\d)"
        .Global = True
    End With
    tekst = re.Replace("<img src=""numbers/letters/$1.gif"">")

    ImgNumbers = tekst
End Function

Response.Write ImgNumbers("... 65 ...")
Response.Write ImgNumbers(65)

... og et svar :^)