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.d34c6d5a