Function der erstatter bogstaver med billeder

tekst = "Hej"
tekst = replace(tekst, "Hej", "<img src='images/letters/h.gif'>")
tekst = replace(tekst, "Hej", "<img src='images/letters/e.gif'>")
tekst = replace(tekst, "Hej", "<img src='images/letters/j.gif'>")

response.write (tekst)

det var lidt forkert:

tekst = "Hej"
tekst = replace(tekst, "H", "<img src='images/letters/h.gif'>")
tekst = replace(tekst, "e", "<img src='images/letters/e.gif'>")
tekst = replace(tekst, "j", "<img src='images/letters/j.gif'>")

response.write (tekst)

Den holder desværre ikke, da den også går ind og erstatter bogstaverne i <img taq'et>

Se www.lund.dk/test.asp

Bliver jo næsten nød til først at placere et tegn før mine bogstaver, før jeg replacer, således det ikke sker

eks,
så først erstatter til:
H = $H
e = $e
j = $j

tekst = replace(tekst, "$H", "<img src='images/letters/h.gif'>")

Det kan gøres på samme måde som i:

http://www.eksperten.dk/spm/731526

Der skal blæot rettes en lillesmulig sådan at den tager bogstaver i stedet fro cifre. Sådan:

Function ImgLetters(tekst)
    tekst = "" + tekst

    Set re = new RegExp
    With re
        .Pattern = "([a-zæøåA-ZÆØÅ])"
        .Global = True
    End With
    tekst = re.Replace("<img src=""images/letters/$1.gif"">")

    ImgLetters = tekst
End Function

Ah okai, troede jeg ikke.. sad nemmerli selv at rodede lidt med det

Nå,men får fejlen:

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

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

Ah
tekst = re.Replace("<img src=""images/letters/$1.gif"">")
skulle rettes til
tekst = re.Replace(tekst, "<img src=""images/letters/$1.gif"">")

Den var vi vist igennem den gang også ;^)

Hvis du ellers lægger alle dine ciffer- og bogstav-billeder i sammen binliotek kan du faktisk slå de to funktioner sammen til en:

Function ReplaceWithImage(tekst)
    tekst = "" + tekst

    Set re = new RegExp
    With re
        .Pattern = "([a-zæøåÆØÅ0-9])"
        .IgnoreCase = True
        .Global = True
    End With
    tekst = re.Replace(tekst, "<img src=""images/letters/$1.gif"">")

    ReplaceWithImage = tekst
End Function

Hvis jeg har noget punktummer og kommaer jeg egenlig også skal have kørt igennem, der dutter det jo ikke rigtig at omdøbe et filnavn "." men måske smartere at omdømme det til "punktum"
Hvordan erstatter jeg så min "." til "punktu.gif" ? Der må være en smart fidus

Lige til det, skal vi nok forsøge at være lidt snedige:

Før at ReplaceWithImage() kaldes, laver du en almindelig Replace() hvor at du erstatter '.' med f.eks. '#' eller et andet tegn som du ikke bruger ellers). Derefter kaldes ReplaceWithImage(), og tilsidst laver du endnu en almindelig Replace() hvor at '#' erstattes med "punktum.gif".

har fået det hele til at virke :)

Smid et svar..

Svar :^)