klippe tekst ud af en bestemt tag

Er det er xml-document?

Hej

Nej alm html dokument

lukker

Denne function kan gøre det. Den checkker (nogenlunde) for det tilfælde at tagget ikke findes:

Dim strTest
strTest = "<temp xmlns=""trt"">dette tekst skal klippes ud</temp>"

Response.Write (hentIndhold(strTest, "temp"))

Function hentIndhold(str, tag)
    if Instr(1, str, "<" & tag) > 0 and Instr(1, str, "</" & tag) > 0 then
        hentIndhold = str
        hentIndhold = Mid(hentIndhold, InStr(1, hentIndhold, "<" & tag))
        hentIndhold = Mid(hentIndhold, InStr(2, hentIndhold, ">") + 1)
        hentIndhold = Left(hentIndhold, InStr(1, hentIndhold, "</" & tag & ">") - 1)
    else
        hentIndhold = ""
    end if
end Function

Hej Idanielsen, jeg havde lukket spørgsmålet, men mange tak for dit svar :)