Replace

Tags:    asp

Hvis man har en tekst som hedder "tryk http://www.n.dk her" og den ligger i en database. Man henter teksten, men vil gerne gøre sådan så at man kan trykke på det.

Så mit spørgsmål er hvordan man gør så den selv finder ud af at det er et link og den skal skrive koden "a href="www.n.dk" osv.????

Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk



6 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
Altså det du mener er at folk i dit forum lægger links ind i din database, men du vil gerne have dem til at blive vist som links (<a href....) og ikke bare tekst?

Præsis

Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk



function hyperlink(hteks)
dim arrBR,arrTeks,i,x,brtmp,tmp,iteks

arrBR = Split(hteks,"<br>")
for x = 0 to UBound(arrBR)
brtmp = arrBR(x)
arrTeks = Split(brtmp," ")
for i = 0 to Ubound(arrTeks)
tmp = arrTeks(i)
if Instr(1,tmp,"www.") or InStr(1,tmp,"http://") then
if InStr(1,tmp,"www.") = 1 then
tmp = "<a href=""http://" & tmp & """ target=""_BLANK"">" & tmp & "</a>"
else
tmp = "<a href=""" & tmp & """ target=""_BLANK"">" & tmp & "</a>"
end if
end if
iteks = iteks + " " + tmp
next
iteks = iteks + "<br>"
next
hyperlink = iteks
erase arrBR
erase arrTeks
end function




ASP er ikke lige mig...
Men den her skulle du... :D



Hvis man har en tekst som hedder "tryk http://www.n.dk her" og den ligger i en database. Man henter teksten, men vil gerne gøre sådan så at man kan trykke på det.

Så mit spørgsmål er hvordan man gør så den selv finder ud af at det er et link og den skal skrive koden "a href="www.n.dk" osv.????

Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk

Hvordan mener du...? sådan her: tryk "her"
"" = linket som går over på n.dk
?



Hvis man har en tekst som hedder "tryk http://www.n.dk her" og den ligger i en database. Man henter teksten, men vil gerne gøre sådan så at man kan trykke på det.

Så mit spørgsmål er hvordan man gør så den selv finder ud af at det er et link og den skal skrive koden "a href="www.n.dk" osv.????

Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk
Hvordan mener du...? sådan her: tryk "her"
"" = linket som går over på n.dk
?


jeps

Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk



Altså det du mener er at folk i dit forum lægger links ind i din database, men du vil gerne have dem til at blive vist som links (<a href....) og ikke bare tekst?



Altså det du mener er at folk i dit forum lægger links ind i din database, men du vil gerne have dem til at blive vist som links (<a href....) og ikke bare tekst?


Præsis

Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk



Altså det du mener er at folk i dit forum lægger links ind i din database, men du vil gerne have dem til at blive vist som links (<a href....) og ikke bare tekst?

Præsis

Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk


function hyperlink(hteks)
dim arrBR,arrTeks,i,x,brtmp,tmp,iteks

arrBR = Split(hteks,"")
for x = 0 to UBound(arrBR)
brtmp = arrBR(x)
arrTeks = Split(brtmp," ")
for i = 0 to Ubound(arrTeks)
tmp = arrTeks(i)
if Instr(1,tmp,"www.") or InStr(1,tmp,"http://") then
if InStr(1,tmp,"www.") = 1 then
tmp = "<a href=""http://" & tmp & """ target=""_BLANK"">" & tmp & "</a>"
else
tmp = "<a href=""" & tmp & """ target=""_BLANK"">" & tmp & "</a>"
end if
end if
iteks = iteks + " " + tmp
next
iteks = iteks + ""
next
hyperlink = iteks
erase arrBR
erase arrTeks
end function




ASP er ikke lige mig...
Men den her skulle du... :D


Tak jeg kigger på det i morgen, og hvis du virker har du scoret 7 ups :)
Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk



t