HTML-Links aus Text entfernen

Language: Deutsch
Programming Language: VBScript
Published by: Thomas
Last Update: 5/3/2006
Views: 905

Description

Entfernt HTML-A-Tags aus einem beliebigen String.

Code

Display line numbers

1 Function StripLink(strHTML) 2 Set objRegExp = New Regexp 3 objRegExp.IgnoreCase = True 4 objRegExp.Global = True 5 objRegExp.Pattern = "(<a(.+?)>)|(</a>)" 6 strOutput = objRegExp.Replace(strHTML, "") 7 Set objRegExp = Nothing 8 StripLink = strOutput 9 End Function

No comments avaiable

Add a comment

Name *

Email (won't be displayed) *

Website

Comment *

Sicherheitscode Security Code *