Visning af en del af en databasepost, men ikke et billede.

Hvis du lægger dit rs ud i et array kan du bruge denne

tmp = liste(ubound(liste))
iStart = inStr(1,tilbageTil,"img src=""")
iSlut = inStr(iStart+6,tmp,"""")
if iStart > 0 AND iSlut > 0 then
  tilbageTil = Mid(tmp, iStart+6, iSlut-iStart-6)
end if

response.write tmp

ah forget it, men se engang på http://www.eksperten.dk/spm/421473

OK, jeg har med udgangspunkt i din reference lavet en funktion der fjerne første billedelink. Men jeg kan ikke gennemskue, hvordan jeg kan løber resten af strengen igennem for at fjerne eventuelle yderligere billedelinks.

Her er min funktion:

<%
Function FjernBilledlink(str)
    iStart = inStr(1,str,"<img")
    iSlut = inStr(iStart+4,str,">")
    if iStart > 0 AND iSlut > 0 then
        str = Mid(str, 1, iStart-1) & Mid(str, iSlut+1, (Len(str)-iSlut))
    end if

    FjernBilledlink = str
End Function

str = "Her er noget tekst, og så kommer der et billedlink <img src='pics/121954.jpg'>,"
str = str & " hvorefter <a href=''>link</a> teksten <img src='pics/121954.jpg'> fortsætter."
response.write str & "<br><br>"
str = FjernBilledlink(str)
response.write str
%>

Resultatet af ovenstående er at første billedelink fjernes, men det andet bliver stående.

hvad med en do while løkke, som evaluerer på while Instr(str,"<img src=") > 0 ?

Function FjernBilledlink(str)
do while Instr(str,"<img src=") > 0
    iStart = inStr(1,str,"<img")
    iSlut = inStr(iStart+4,str,">")
    if iStart > 0 AND iSlut > 0 then
        str = Mid(str, 1, iStart-1) & Mid(str, iSlut+1, (Len(str)-iSlut))
    end if
loop
    FjernBilledlink = str
End Function

Jeg syntes at kunne se flere problemer i dit forslag:
1. Giver det ikke et uendeligt loop? (da betingelsen altid er større end 0, hvis der er bare et link)
2. Der er nødt til at ske et eller andet med opbygningen af tekststrengen. I eksemplet ovenfor bliver kun det sidste billedelink sorteret fra.

den virker da fint nok her hos mig

Function FjernBilledlink(str)
do while Instr(str,"<img src=") > 0
    iStart = inStr(1,str,"<img")
    iSlut = inStr(iStart+4,str,">")
    if iStart > 0 AND iSlut > 0 then
        str = Mid(str, 1, iStart-1) & Mid(str, iSlut+1, (Len(str)-iSlut))
    end if
loop
    FjernBilledlink = str
End Function

str = "Her er noget tekst, og så kommer der et billedlink <img src='pics/121954.jpg'>,"
str = str & " hvorefter <a href=''>link</a> teksten <img src='pics/121954.jpg'> fortsætter."
response.write str & "<br><br>"
str = FjernBilledlink(str)
response.write "Funktionen udført<br>" & str

betingelsen er kun > 0 sålænge <img src= indgår i strengen

Nu virker den også her. Jeg havde fået blandet lidt sammen.
Jeg har dog lige ændret betingelsen i 'do while' til:
do while Instr(str,"<img") > 0

Da 'src' ikke nødvendig vis kommer som første parameter i linket.

Tak for hjælpen

selvtak