title image


Smiley GetTextFromHtml
Dazu kannst Du folgende Function nutzen:





Function GetTextFromHtml(ByVal sText) As String

' Benötigt einen Verweis auf die

' "Microsoft VBScript Regular Expressions 5.5-Library"

Dim oREG

Dim sRES

sRES = sText

Set oREG = New RegExp

oREG.Global = True

oREG.IgnoreCase = True

oREG.Pattern = "]*>"

If oREG.Test(sRES) Then

sRES = oREG.Replace(sRES, "")

End If

Set oREG = Nothing

GetTextFromHtml = sRES

End Function





Greetz,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: