Avanceret replace - regular expression

du kan da altid lave den antagelse at links kun er eksterne, hvis der er et http:// eller ftp:// foran ...

hvis en bare skriver <a href="www.eksperten.dk"> ccc </a> .. så er det ikke eksperten, man kommer hen på -- det er kun hvis der er protokol foran ...

Derfor - lav en funktion, som tjeker om der er protokol i starten af URL'en (kan gøres ved at checke for :// -- så kan du bedømme om det er et internt eller eksternt link :-)

Function LinkToString(strInput)
            Set objRegExpHTTP1 = New RegExp
            objRegExpHTTP1.Global = True
            objRegExpHTTP1.IgnoreCase = True
       
            objRegExpHTTP1.Pattern = "(http|ftp|https)(:\/\/[\w]+)(.[\w]+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
            strOutput = objRegExpHTTP1.Replace(strInput, "<a href=""$1$2$3$4"" target=""_blank"">$1$2$3$4</a>")

            objRegExpHTTP1.Pattern = "(^|[^\/])(www)(.[\w]+)([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
            strOutput = objRegExpHTTP1.Replace(strOutput, " $1<a href=""http://$2$3$4"">$2$3$4</a>")

            set objRegExpHTTP1 = Nothing

            LinkToString = strOutput
        End Function

Jeg plejer at bruge dette... Det er så rettet til, så du kun har target med hvis der er http foran. den anden linie som ikke har http:// foran forudsætter dog i stedet www. men du kan så selv definere hvis du fx. vil have [a] til internt link etc.

ellebaek:

Det er den ikke så glad for:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/test.asp, line 14

Set objRegExpHTTP1 = New RegExp
---------------------^

Jeg kører ASP fra ChilliSoft - nogen forslag?

/Rob

ChiliASP understøtter ikke regexp...
2 sek. Eagle kom med en løsning på dette på et tidspunkt, leder lige efter det spg.

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

Her er link til det spg hvor eagle kommer med alternative løsninger som kan benyttes.

Jeg fandt en anden løsning.

Læg svar hvis I vil have del i point!

/Rob

et svar...

Beklager ventetiden!

/Rob

Det er helt i orden.

Håber du fik det til at virke..