Set regEx = New RegExp regEx.Pattern = "([url])[\w\W]{8,}([/url])" regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(strText) For Each Match In Matches Link = Replace(Replace(Match.Value, "[url]", ""), "[/url]") strText = Replace(strText, Match.Value, "<a href=""" & Link & """ target=""_blank"">" & Link & "</a>") Next
netro> Det er ASP.NET kode og det vil ikke virke i en ASP-løsning. Til trods for navne-sammenfaldene er ASP og ASP.NET to vidt forskellige ting og må ikke forveksles med hinanden.
netro> Du har ret - jeg var lidt vel hurtig nok der. :^(
Desværre er der stadig et par fejl i din kode, og den kan også laves mere med den Replace der høre til RegEx:
Dim regEx Set regEx = New RegExp regEx.Pattern = "\[url\](.+?)\[/url\]" regEx.IgnoreCase = True regEx.Global = True strText = regEx.Replace(strText, "<a href=""$1"">$1</a>")
I midlertid tror jeg at mikevi faktisk gerne vil hav både url og tekst og så dure det jo ikke at jøre det på den måde. Hvis det f.eks. ender med det foreslag som jeg gav i første omgang så kan det opnås med:
Dim regEx Set regEx = New RegExp regEx.Pattern = "\[url\](.+?)\[\](.+?)\[/url\]" regEx.IgnoreCase = True regEx.Global = True strText = regEx.Replace(strText, "<a href=""$1"">$2</a>")
Nej, for alt det som matcher mønsteret - dvs. også [url] og [/url] - bliver nemlig erstattet med $1 (som jo indeholder det som er i parentesen).
Læg i øvrigt mærke til det lille spørgsmålstegn i (.+?). Det gør at matchningen ikke er grådig. Det var en af de fejl du har; Din løsning ville forsøge at arbejde med *alt* mellem det allerførste [url] og det allersidste [/url] – hvilket jo er et problem hvis der er mere end et [url]-[/url] par i teksten.
Jamen altså alle de koder i giver mig virker ikke. Den skriver bare noget tekst i stedet for. Teksten er den kode jeg skal bruge for at frembringe den URL kode.
Hvis du ikke bruger flere ord, er det svært at hjælpe. Hvilken kode brugte du? Hvad var input? Hvad var output? Hvordan skal URL-koden se ud?
Synes godt om
Ny brugerNybegynder
Din løsning...
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.