Set regExp = New regexp
regExp.Global = true ' True visar alla. False visar första träffen.
regExp.IgnoreCase = true ' Bryr sig inte om gemaner/versaler
regExp.Pattern = "<a href=(.*?)>(.*?)</a>" ' Letar efter alla länkar
varNewPattern = "<a href=NYTT/$2>$2</a>"
varFixedString = regExp.Replace(varFixedOnTvString, varNewPattern) ' Ersätter alla länkar
%>
Är jag helt ute och cyklar eller borde det att går att få till det ??? :)
Monologen går tyvärr mot sitt slut... Börjar nämligen få ordning på det här :)
'FIXAR LÄNKARNA
Set regExp = New regexp
regExp.Global = true ' True visar alla. False visar första träffen.
regExp.IgnoreCase = true ' Bryr sig inte om gemaner/versaler
regExp.Pattern = "<a href=\42(.*?)\42.*?>(.*?)</a>" ' Sparar innan url som $1, sparar länknamn som $2, \42 = "
varNewPattern = "<a href=http://www.greenbanana.se$1>$2</a>"
strHtmlSenasteNytt = regExp.Replace(strHtmlSenasteNytt, varNewPattern) ' Ersätter alla länkar
253 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e