Hallåja!

Jag har ett litet problem...

Jag har en sträng som innehåller vanlig text som jag vill skriva ut på sidan, men inne i texten finns det en länk som jag vill skriva ut som en klickbar länk! Hur göra! Tacksam för svar!

mvh Stefan

Menar du så här?

content = "min text med min länk till pellesoft klicka gärna här!!!!"

response.write(content)

Inte riktigt...

Jag menar snarare såhär

content = "Detta är texten med länken och länken är http://www.com som jag vill få klickbar när jag skriver ut den till sidan"

Jag vill plocka ut http://www.com ur strängen och omge den med en

så att resultatet i källkoden blir:

Detta är texten med länken och länken är http://www.comsom jag vill få klickbar när jag skriver ut den till sidan

mvh Stefan

så här då?
content = "Detta är texten med länken och länken är http://www.com som jag vill få klickbar när jag skriver ut den till sidan"
toFind = "http://www.com"
newString = Replace(content, toFind, ""& toFind & "")
response.write(newString)

det var nästan det där svaret som jag var ute efter...

Är det möjligt att ta reda hur lång länken är?
Jag hämtar nämligen texten ur en databas, och länkarna varierar. Det enda jag vet är att tecknet som följer efter länken är endera ett mellanslag eller ett vbCrLf. Så om man skulle kunna loopa igenom strängen på något sätt tills man kommer till sista tecknet i länken och där avsluta <a> taggen?!? Jag är inte säker på att detta går att genomföra men det skulle vara till stor hjälp i detta sammanhang!

mvh Stefan

hmm.. en fråga..
om du ändå hämtar länken från en databas.. varför mata in den i en lång och komplicerad sträng?

Response.write "blahahaha <a href=""" & recset("url") & """>"

eller.. nåt.. nu är säkerligen citattecknena fel.. men du fattar poängen..

eller hämtar du hela den långa strängen från databasen?

//Olof

------

doh.. ursäkta.. skall läsa vad som skrivs bättre nästa gång =)

Så här kanske:
<code>
content = "Detta är texten med länken och länken är http://www.com som jag vill få klickbar när jag skriver ut den till sidan"
iPos = InStr(1, content, "http://", 1)
If iPos > 0 Then
iPos2 = InStr(iPos, content, " ", 1)
iPos3 = InStr(iPos, content, vbNewLine, 1)
If (iPos2 > iPos3 And Not iPos3 = 0) Or iPos2 = 0 Then iPos2 = iPos3
If iPos2 = 0 Then iPos2 = Len(content) + 1

strHref = Mid(content, iPos, iPos2 - iPos)
strNewHref = "" & strHref & ""
content = Replace(content, strHref, strNewHref, 1, -1, 1)
End If
</code>