Indsætte link i en Access database...

Du skal søge din tekst igennem og finde positionen for \'<A\'.
Med det udgangspunkt skal du finde det efterfølgende \'>\'. På det sted kan du så indsætte \'TARGET=\"_blank\"\'

Undskyld, jeg har vist ikke gjort mig klar nok. Jeg har lavet et script, der idnsætter en nyheder i en Access-DB fra et tekstfelt, og jeg vil gerne have, at når man skriver f.eks. http://www.eksperten.dk bliver det erstattet med <A HREF=http://www.eksperten.dk TARGET=\"_blank>http://www.eksperten.dk</A>. Altså, en Replace kommando.

Hvad med:

Response.write(\"<A HREF=\"\"\" & DatabaseFelt & \"\"\" TARGET=\"\"_blank\"\">\" & DatabaseFelt & \"</A>\")

Nej, feltet indeholder ikke kun et link. Det indeholder også alt muligt andet. Som sagt, jeg tror der skal en Replace kommando til, men jeg ved ikke hvilken.

felt = Replace(felt, \"http://\", \"<A HREF=\"\"http://\")
felt = Replace(felt, \".dk\", \".dk\"\" TARGET=_blank>link</A>\")

osv.

Scriptet virker ikke med .com domæner og undermapper (www.x.dk/x).. Jeg vil gerne have et script, der virker med alle adresser (ligesom her på eksperten)...

Anden metode:
Find starten af adressen (www eller http) og find efterfølgende mellemrum - alt der i mellem er adressen. I stedet for adressen indsætter du præcis det du gerne vil.

Gider du skrive alt det, jeg skal skrive... Jeg er ikke mester til replace =)

Her er den store løsning:

temp = \"på http://www.sone.dk/ kan man.. - og på www.mindpass.com kan man...\"
pos = 1
DO WHILE pos>0
  newpos = pos
  pos = InStr(newpos, temp, \"http:\", 1)
  IF pos=0 THEN pos = InStr(newpos, temp, \"www\", 1)
  IF pos=0 THEN EXIT DO

  endpos = InStr(pos, temp, \" \")
  IF endpos=0 THEN endpos = Len(temp)+1
  link = Mid(temp, pos, endpos-pos)
  newlink = \"<A HREF=\"\"\" & link & \"\"\" TARGET=_blank>\" & link & \"</A>\"
  temp = Replace(temp, link, newlink)
  pos = pos + len(newlink)
LOOP
temp = Replace (temp, \"HREF=\"\"www\", \"HREF=\"\"http://www\")


Man vil jo nok være taknemmelig for point * 2

Jeg har formuleret mig forkert, men du får point alligevel... Tak for din tålmodighed =)

http://www.eksperten.dk/spm/46154

/Gangsta