[url][/url]

god aften (eller nat :o)

du kan indsætte links på din side sådan her :

// hvis vi antager at du bare smider dem ind i et panel (somePanel)
// og at du har en reader reader, hvor linket står i kolonnen "link"
HyperLink hl = new HyperLink();
hl.NavigateUrl = reader["link"].ToString();
hl.Text = reader["link"].ToString();
somePanel.Controls.Add(hl);

ovenstående er et .net eksempel i c#, men jeg har egentlig lidt en fornemmelse af at det er asp du skriver i, og ikke asp.net.

(RS er sådan et typisk asp-navn til et recordset :o)

mvh

Nej jeg koder faktisk i ASP.NET uden codebehind ved brug af VB.NET....her er hele koden:

StrConn = "Data Source=MATRIX; Initial Catalog=TestingDB; User Id=sa; Password=;"
Conn = New SqlClient.SqlConnection(StrConn)
Conn.Open()

SQL = "SELECT * FROM forum"
Cmd = new SqlCommand (SQL, Conn)
RS = Cmd.ExecuteReader ()

RS.Read()

RS("post").Replace(":-)","<img src=""smilies/smile.gif"">")

RS.close
RS = nothing
Cmd.Dispose


Hvordan skal koden se ud?

hvis denne tekst "Hejsa TRYK HER!" er gemt i databasen skal den udspille Hejsa og TRYK HER! her som et link man kan klikke ved og som åbner sig i et nyt vindue.

Ok - det må du unskylde.
(det hænder med jævne mellemrum at der dukker asp-spørgsmål op herinde :o)

Det er sikkert mig der er lidt tung i det... Trækker du dine data fra en base som du ikke selv har hands on, eller hvad er årsagen til den syntax du har angivet ?

"Hejsa TRYK HER!"

En anden ting... den kode du har sendt... hvad forventer du den gør ?
ExecuteReader() returnerer en DataReader, som mig bekendt ikke har en metode der hedder replace.
Der ligger en Replace-metode på en string, men den manipulerer ikke noget - den returnerer resultatet, hvilket medføre at du kun vil få det f.eks. sådan her :
someString = someString.Replace("*","#")

Det er bestemt ikke for at være ubehøvlet jeg spørger, men jeg har svært ved at se hvordan det du har sendt skulle kunne gøre noget.

Nå... men tilbage til
"Hejsa TRYK HER!"
Det vile du gerne have lavet om til :
Hejsa <a href="http://www.eksperten.com" target="_blank">TRYK HER!</a> ikke ?

mvh

OK OK, lad mig gøre det nemt for dig. Hvis nu du har en nyheds system som virker fint men være gang der er noget link i system can du ikke tryke ved linket hvad gøre du saa? jeg vil ha at system can fange alle links i nyheden, fx. vaere gang der ser noget tekst der starter ved http:// skal den vide at det er en link...forstå du?

RS er en DataReader

men RS("post") er jo nok ikke en DataReader ...

Dim RS as SqlDataReader

Hvis det er inde midt i en string du skla have sat A HREF på, så skal du igang
med noget regular expression.

lille kan min lille kode skifte :-) til en smiley, nu vil ogsaa ha at du skal kunne skifte alt det link den ser til clickable links man kan tryke ved...ligesom her i eksperten ka du tryke ved den link se: http://www.eksperten.com

OK jeg har fundet denne her kode:
<%
Function LinkURLs(strInput)
    Dim iCurrentLocation
    Dim iLinkStart
    Dim iLinkEnd
    Dim strLinkText
    Dim strOutput
   
    iCurrentLocation = 1

    Do While InStr(iCurrentLocation, strInput, "http://", 1) <> 0

        iLinkStart = InStr(iCurrentLocation, strInput, "http://", 1)
       
        iLinkEnd = InStr(iLinkStart, strInput, " ", 1)

        If iLinkEnd = 0 Then iLinkEnd = Len(strInput) + 1

        Select Case Mid(strInput, iLinkEnd - 1, 1)
            Case ".", "!", "?"
                iLinkEnd = iLinkEnd - 1
        End Select

        strOutput = strOutput & Mid(strInput, iCurrentLocation, iLinkStart - iCurrentLocation)
       
        strLinkText = Mid(strInput, iLinkStart, iLinkEnd - iLinkStart)

        strOutput = strOutput & "<A HREF=""" & strLinkText & """>" & strLinkText & "</A>"
       
        iCurrentLocation = iLinkEnd
    Loop
   
    strOutput = strOutput & Mid(strInput, iCurrentLocation)

    LinkURLs = strOutput
End Function


LinkURLsRS("post").Replace(":-)","<img src=""smilies/smile.gif"">"))
%>

Den virker FINT

Ok alt virker fint nu og jeg kan trykke paa den vaere link der bliver hentet fra databasen...nice

Ok men nu vil jeg ogsaa have denne BBcode funktion TRYK HER!

Jeg vil kun se TRYK HER! som et clickable link, er der nogen der kan hjaelpe mig med det?

huh nu virker det her for mig ogsaa TRYK HER!

RS("post").Replace(":-)","<img src=""smilies/smile.gif"">")).Replace("[url=","<a target=""_blank"" href=").Replace("[/url","</a").Replace("]",">")


den kode virker FINT, anyway svar tilbage saa i bare for points, I am friendly

Jeg synes at en regex løsning er kønnere:

    Public Shared Function LinkCreate(ByVal s As String) As String
        Dim m As Match = Regex.Match(s, "(.*?)(http://[\S]+)(.*)", RegexOptions.Singleline)
        If m Is Match.Empty Then
            Return s
        Else
            Return m.Groups(1).ToString & "<a href='" & m.Groups(2).ToString & "'>" & m.Groups(2).ToString + "</a>" & LinkCreate(m.Groups(3).ToString)
        End If
    End Function

Ok det her er lidt forvirrende men hvad er der galt?

Her bruger jeg denne funktion som virker FINT:

Tryk Here  <- det virker med denne her kode

RS("post").Replace("",">")


-----------


Men nu vil jeg gerne bruge denne function som IKKE virker:

[url]http://www.exp.dk  <- koden for neden virker ikke, hjaelp

RS("post").Replace("[url","<a target=""_blank"" href=").Replace("[/url","</a").Replace("]",">")

Laver du ikke et usynligt link ?

Altså:

<a target="_blank" href=http://www.exp.dk></a>

jeg ved ike hvad du mener men jeg vil bare ha at det her skal virke for mig:

[url]http://www.exp.dk[/url]

og her er koden jeg bruger som der er noget galt med

RS("post").Replace("[url","<a target=""_blank"" href=").Replace("[/url","</a").Replace("]",">")

Men så vidt jeg kan se så resulterer de Replace i følgende HTML:

<a target="_blank" href=http://www.exp.dk></a>

og det er jo et usynligt link.

Dit problem er at du skal have selve linket duplikeret da den skal både
være i HREF og synligt.

Det er nemt i med regex.

Ok men hvordan gøre man det så hvis det er nemt?

det skal jo se sådan ud <a target="_blank" href=http://www.exp.dk>http://www.exp.dk</a>

F.eks.:


    Public Shared Function LinkCreate(ByVal s As String) As String
        Dim m As Match = Regex.Match(s, "(.*?)(?:\[url\])(.*?)(?:\[/url\])(.*)", RegexOptions.Singleline)
        If m Is Match.Empty Then
            Return s
        Else
            Return m.Groups(1).ToString & "<a href='" & m.Groups(2).ToString & "'>" & m.Groups(2).ToString + "</a>" & LinkCreate(m.Groups(3).ToString)
        End If
    End Function

LinkCreate(RS("post"))

OK nu virker denne her function [url]http://www.exp.dk[/url] men ikke den her Tryk Here

sorry arne_v, men jeg vil gerne bruge dem begge på en gang

Public Shared Function LinkCreate(ByVal s As String) As String
        Return LinkCreate2(LinkCreate1(s))
    End Function

    Public Shared Function LinkCreate1(ByVal s As String) As String
        Dim m As Match = Regex.Match(s, "(.*?)(?:\[url\])(.*?)(?:\[/url\])(.*)", RegexOptions.Singleline)
        If m Is Match.Empty Then
            Return s
        Else
            Return m.Groups(1).ToString & "<a href='" & m.Groups(2).ToString & "'>" & m.Groups(2).ToString + "</a>" & LinkCreate(m.Groups(3).ToString)
        End If
    End Function

    Public Shared Function LinkCreate2(ByVal s As String) As String
        Dim m As Match = Regex.Match(s, "(.*?)(?:\[url=)(.*?)(?:\])(.*?)(?:\[/url\])(.*)", RegexOptions.Singleline)
        If m Is Match.Empty Then
            Return s
        Else
            Return m.Groups(1).ToString & "<a href='" & m.Groups(2).ToString & "'>" & m.Groups(3).ToString + "</a>" & LinkCreate(m.Groups(4).ToString)
        End If
    End Function

Og stadig

LinkCreate(RS("post"))

MANGEEEEEEEEEEEEEEE TAK arne_v, svar tilbage for points

svar

U R THE MAN