Fjerne første instans af H1
Følgende funktion fjerner html-tags fra en tekst. Kan den udvides, så den også fjerner INDHOLDET af den første instans af H1? Altså den første overskrift, som omgives af H1-tags?Function RegReplace(inStr)
InStr = Replace(Instr,"<br>"," ")
InStr = Replace(Instr,"<p>"," ")
InStr = Replace(Instr,"<BR>"," ")
InStr = Replace(Instr,"<P>"," ")
InStr = Replace(Instr," "," ")
Dim regEx
Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True
regEx.Pattern = "<[^>]+>"
inStr=regEx.Replace(inStr, "")
RegReplace=inStr
End Function
