I mitt forum har jag en funktion för att göra länkar av text. När besökarna sedan ska Vadå väsentligt? Det MÅSTE vi ju veta... Jag själv tycker att det verkar vara bättre att ersätta texten till länkare medan det körs... Tar lite mer av servern, men ändå Alltså, jag har ersatt texter till länkar i databasen så att de egentligen ser ut som http://www.dileno.cjb.net. Saken är den att jag vill plocka ur enbart url:en ur a-märket så att ur koden ovan ska det bli http://www.dileno.cjb.net. Jag skrev: Det MÅSTE vi ju veta...Loopa igenom alla länkar
redigera sina inlägg så måste länken bli till en http://-text igen..
Den här koden fungerar på den första länken i texten men om man har fler länkar så skapas det
dubbletter av dessa länkar och skrivs ut. Hur fixar jag detta? Här är koden:
<% Dim Min, Go, VStart, VEnd, ThisLink, LinkDone, LinkFinished
Min = (Len(incoming)-Len(Replace(incoming,"http://","")))/Len("http://")/2
Go=0
Do While Instr(incoming,"http://")>0 And Go < Min
VStart = Instr(incoming,"<a")
VEnd = Instr(incoming,">")+1
If VStart > 0 and (VEnd > VStart) then
ThisLink = (VEnd-VStart)
LinkDone = Mid(incoming,VStart,ThisLink)
incoming = Replace(incoming,Linkdone,"")
End if
LinkFinished = Linkdone
Go = Go+1
Loop %>
OBS! Beakta at jag har lite RegExp-kod som tar bort a-taggar men det är inte lika väsentligt.Sv: Loopa igenom alla länkar
Sv: Loopa igenom alla länkar
När jag ska redigera ett inlägg med en länk fungerar det utmärkt, enbart http://www.dileno.cjb.net syns. Däremot om jag har två eller fler länkar i inlägget som ska redigeras så ser länken ut så här: http://www.pellesoft.nuhttp://www.pellesoft.nu. Jag vill då ta bort en av dessa url:er och det är det koden ovan är tillför, men den körs inte efter att en länk gjorts om, trots att jag vill att koden ska omvandla alla url:er..
Please, hjälp!Sv: Loopa igenom alla länkar
Skriv ut koden, det blir lättare då. Felet ligger ju inte här. Felet ligger ju där. Inte SKA den väl vara konstruerad för att göra dubbletter på allt förutom första? :-)