Ord skal være link?!

prøv at kigge her http://www.eksperten.dk/spm/355093
Lidt det samme bare med noget andet kode.. :)

Thomas

Er det ikke bare at bede brugeren sætte noget uden om det, der skal være linket?

Streng = "Bla bla {link}www.jubii.dk{/link} bla bla"

Thomas - Som du selv skrev: Puha der er meget kode, men jeg vil lige kigge på sagerne.

Netro - Det er det garanteret, men jeg er kun på "flet-andres-kodestumper-sammen-niveau". Kunne du lokkes til at smide lidt kode?

Venlig hilsen
Michael Boysen

Streng = "Bla bla {link}www.jubii.dk{/link} bla bla"

Pos1 = InStr(Streng, "{link}")
Pos2 = InStr(Streng, "{/link}")

Link = Mid(Streng, Pos1 + 6, Pos2 - Pos1)

Streng = Replace(Streng, "{link}", "<a href='" & Link & "'>"
Streng = Replace(Streng, "{/link}", "</a>"

Response.Write Streng


F.eks...

Lige en rettelse:

Link = Mid(Streng, Pos1 + 6, Pos2 - Pos1 - 6)

Hmmm jeg kan ikke få det til at virke - Tror ikke helt jeg fatter hvordan det sættes ind.

I min kode har jeg:
response.write "<p>" & data("news_text") & "</p>"

Det må være news_text jeg skal bruge, ( ik´ :-) )
Jeg tror at Streng skal erstattes med news_text, men hvor skal jeg indsætte de foskellige dele af koden.
Hvis det hjælper skal jeg gerne smide noget mere af koden, men jeg kan ikke lige overskue om det vil hjælpe.

/Michael Boysen
(Godt man ikke er bange for at virke sinke-agtig :-))

For at lette både overblikket og øge fleksibiliteten, kan du lægge det ind i en funktion:

Function MakeLinks(Streng)
  MakeLinks = Streng
  Pos1 = InStr(MakeLinks, "{link}")
  Pos2 = InStr(MakeLinks, "{/link}")
  If Pos1 > 0 Then
      Link = Mid(MakeLinks, Pos1 + 6, Pos2 - Pos1 - 6)
      MakeLinks = Replace(MakeLinks, "{link}", "<a href='" & Link & "'>")
      MakeLinks = Replace(MakeLinks, "{/link}", "</a>")
  End If
End Function


Og den kan du så kalde, hvor det skal være med:

Response.Write "<p>" & MakeLinks(data("news_text")) & "</p>"

Ja nu sker der da lidt, men det fungerer stadig ikke.

Testsiden kan ses her:
http://www.rokkerne.dk/newstest/

Muligvis har jeg ikke helt fanget idéen. Jeg kan nemlig ikke helt lure, hvordan man vælger det ord ud, som skal dække over linket.

Lige umiddelbart bliver outputtet fuldstændig mage til det, man skriver når man tilføjer en nyhed.

Michael Boysen

Tester det lige...

Funktionen fungerer efter hensigten, men lad mig se lidt mere kode, der hvor du mener, det går galt.

Jeg ved ikke om der går noget galt, men umiddelbart gør funktionen ingen forskel.

Du kan lige se hvordan man tilføjer en nyhed:
http://www.rokkerne.dk/newstest/news.asp

Bruger: tester
PW: test

Jeg skal vel på en eller anden måde fortælle systemet, hvilket ord som skal dække over hvilket link - Forstår du hvad jeg mener?

Michael Boysen

Ja, jeg tror, jeg har misforstået dig (eller ikke læst spm. ordentligt).
Jeg skal lige ned og købe ind, så vender jeg tilbage med et nyt svar.

Må der angives mere end ét link i hver nyhed?

Ja der må i princippet angives "et uendeligt antal" links.

Tak fordi du ofrer din tid.
Michael Boysen

Så skulle den være, som du vil have den.


<%
Streng = "Ny verdensrekord - Læs mere på {l}www.guinessrekordbog.dk{l}www.guinessrekordbog.dk{l} og igen en ny verdensrekord - Læs om {l}www.guinessrekordbog.dk{l}rekordforsøget{l}"

Function MakeLinks(Streng)
  MakeLinks = Streng
  ArrLinks = Split(MakeLinks, "{l}")
  For i = 1 To UBound(ArrLinks) - 2 Step 3
      MakeLinks = Replace(MakeLinks, "{l}" & ArrLinks(i) & "{l}" & ArrLinks(i+1) & "{l}", "<a href='" & ArrLinks(i) & "'>" & ArrLinks(i+1) & "</a>")
  Next
End Function

Response.Write "<p>" & MakeLinks(Streng) & "</p>"
%>

Muligvis er jeg total idiot, men jeg kan stadig ikke se forskellen :-)

Prøv lige at tilføje en nyhed incl. et link, for at se om det virker for dig.

Michael Boysen

Er nødt til at smutte til fodbold nu - Vender tilbage senere i aften.

Bedste hilsner
Michael Boysen

Det burde nu fungere, hvis du udskriver således. Gør du det?

Response.Write "<p>" & MakeLinks(data("news_text")) & "</p>"

http://www.opfinderen.dk/link.asp

Du skal også lige huske at sætte "http://" foran "www".

Hej igen

Det trak lidt ud med kampen (3. halvleg du ved)

Jeg tror du har misforstået mig totalt :-)
Det jeg ønsker er en mulighed for at erstatte et link med et ord........
Nyt eksempel:

Eks. 1:
Michael Boysen fik løst sit problem på http://www.eksperten.dk
Her giver linket sig selv.

Eks. 2:
Michael Boysen fik løst sit problem ved at spørge på denne suveræne side.
"Denne suveræne side" skal dække over linket http://www.eksperten.dk

Eksempel 2 er det jeg ønsker. Det er jo ikke så lækkert at læse links i deres fulde længde. Som det er nu har jeg ikke mulighed for selv at bestemme, hvilken del af min tekst som skal link til hvad.
Håber det er mere klart?!

Venlig hilsen
Michael Boysen

Min funktion erstatter da også links med valgfrie ord.
Som på http://www.opfinderen.dk/link.asp, hvor www.guinessrekordbog.dk erstattes af rekordforsøget.

Ret mig hvis jeg stadig ikke fatter en hat!

Jeg ved ikke om du har kigget på den side, hvor man indtaster nyheder?
Her er i alt fald tekstbokse til overskrift og indhold.
Hvordan skal jeg skrive i indholdsboksen, hvis jeg ønsker at tilføje samme nyhed som du har gjort?

Umiddelbart ville jeg gætte på noget i denne stil:
Ny verdensrekord - Læs mere på www.guinessrekordbog.dk og igen en ny verdensrekord - Læs om {l}rekordforsøget{/l}

Men det virker ikke, og jeg kan stadig ikke se, hvordan jeg vælger hvor det jeg vælger som link {l}link{/l} peger hen?!

Lidt skidt formuleret, men jeg er på vej på job derfor lidt hastigt overstået.

Hav en god dag
Michael Boysen

Hvis du lige forstår syntaksen, er det faktisk meget nemt.
Lad os sige, jeg vil lave en tekst, der ser ud som følger:

"Ny verdensrekord - Læs om rekordforsøget."

Her vil jeg have "rekordforsøget" til at linke til "http://www.guinessrekordbog.dk", hvilket jeg opnår ved at skrive:

"Ny verdensrekord - Læs om {l}http://www.guinessrekordbog.dk{l}rekordforsøget{l}."

Hvis jeg vil have flere links i samme nyhed, kan jeg gøre det på samme vis:

"På {l}http://www.google.com{l}denne side{l} kan du finde alt, hvad en {l}http://www.hkhkronprinsen.dk{l}kronprins{l} kan ønske sig."

Dette giver følgende tekst:

"På denne side kan du finde alt, hvad en kronprins kan ønske sig."

Se begge eksempler her: http://www.opfinderen.dk/link.asp

I dit tilfælde ser det altså sådan ud:
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function MakeLinks(Streng)
  MakeLinks = Streng
  ArrLinks = Split(MakeLinks, "{l}")
  For i = 1 To UBound(ArrLinks) - 2 Step 3
      MakeLinks = Replace(MakeLinks, "{l}" & ArrLinks(i) & "{l}" & ArrLinks(i+1) & "{l}", "<a href='" & ArrLinks(i) & "'>" & ArrLinks(i+1) & "</a>")
  Next
End Function

Response.Write "<p>" & MakeLinks(data("news_text")) & "</p>"

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Du gør det ellers rigtigt i nyheden fra 16-06-2003.

Husker du at kalde funktionen?

Prøv lige at give mig hele den linie, hvor du udskriver nyheden, hvis du stadig ikke kan få det til at fungere.

Hej mester

Nu har jeg omsider fået det til at virke.

Tusind tak for din tålmodighed :-)

Bedste hilsner
Michael Boysen

Det er godt! Og hvad var der så galt...?

Det er næsten for pinligt........... Jeg sad i al for lang tid og baksede med den forkerte response.write sætning :-)

Man skal som regel dumme sig før man lærer!

Man lærer af sine fejl, ja...