Alt hvad der står imellem bestemt tag skal returneres

<ole>

Hvor i universet befinder denne tekst sig? I en kontrol, i et dokument på WWW, i en fil på din PC, på en seddel i din nabos baglomme ... eller noget helt femte?  =)

/mvh
</bole>

Det er bare noget tekst jeg får igennem et tekstbox control, som jeg skal have filtrerert

Tekst = "<temp> og slut tagget </temp>"
StrTekst = Trim(Mid(Tekst, InStr(1, Tekst, ">") + 1, (InStr(1, Tekst, "</") - 1) - InStr(1, Tekst, ">")))

hey kabbak, tager den hensyn til at <temp> kan have vilkårlig attributter ?

Kabbak, problemmet med den er, at den også tager alle andre tags med, det må udlukkende være <temp> tagget.

StrTekst = Trim(Mid(Tekst, InStr(1, Tekst, "temp>") + 1, (InStr(1, Tekst, "</temp") - 1) - InStr(1, Tekst, "temp>")))

nu mangler du kun dem med atributter

Jeg får denne: Invalid procedure call or argument: 'Mid'

Ok det var lige forhastet, nu tager jeg det i 2 tempi

tekst = "<temp> og slut tagget </temp>"
strtekst1 = Mid(tekst, InStr(1, tekst, "<temp") + 5, (InStr(1, tekst, "</temp") - 1) - (InStr(1, tekst, "<temp") + 5))
strtekst1 = Trim(Right(strtekst1, Len(strtekst1) - InStr(1, strtekst1, ">")))

Ok, hvis nu der flere forekomster af <temp> </temp> hvordan kan jeg så lige også tag disse med.

Skal de kobles sammen i samme string

Dim UdTekst As String, TempTekst As String, Tekst As String
UdTekst = ""
Tekst = "    <temp> og slut tagget </temp>  mere tekst <temp> og slut2 tagget </temp> "
Do
TempTekst = Mid(Tekst, InStr(1, Tekst, "<temp") + 5, (InStr(1, Tekst, "</temp") - 1) - (InStr(1, Tekst, "<temp") + 5))
TempTekst = Trim(Right(TempTekst, Len(TempTekst) - InStr(1, TempTekst, ">")))
Tekst = (Right(Tekst, (Len(Tekst) - (InStr(1, Tekst, "</temp") + 6))))
UdTekst = UdTekst & " " & TempTekst
Loop Until InStr(1, Tekst, "<temp") = 0

Takker Kabbak, det kun jeg brug :) smid svar

et svar ;-))