Similar to the premiership table, display all or just the top 1/2/3 headlines:
xp-erience.vbs:
xp-erience.vbs:
Const Separator = " "
Const Path = "xp-erience.txt"
set http = createobject("microsoft.xmlhttp")
Http.open "GET","http://www.xp-erience.org/news/index.shtml", false
Http.send
strng = Http.responsetext
Dim regEx
Set regEx = New RegExp
regEx.Global = True
regEx.Pattern = "<TR><TD><SPAN class=headline>(.*?)</FONT><BR><font class=""small"">"
Set Matches = regEx.Execute(strng) ' Execute search.
Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile(Path, True)
x=0
For Each Match in Matches ' Iterate Matches collection.
outfile.write match.SubMatches(0)
outFile.WriteLine
x=x+1
Next
outFile.close