Displaying xp-erience headlines with coolmon

[a1ehouse]

Similar to the premiership table, display all or just the top 1/2/3 headlines:

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

 

[xsivforce]

Will have to have a look at this when I get home.

 

[Iceman]

Nicely done a1ehouse

 

[BlackEyedAngel]

yeah very nice, very useful for us xp-erience addicts

 

[a1ehouse]

Gotta keep up with the time I s'pose:

Modified headline grabber:

Save this from notepad as ntfs.vbs


Const Separator = " "
Const Path = "ntfs.txt"

set http = createobject("microsoft.xmlhttp")
Http.open "GET","http://www.ntfs.org/index.php", false
Http.send
strng = Http.responsetext
Dim regEx
Set regEx = New RegExp
regEx.Global = True

regEx.Pattern = "<a href="".*?""><font size=""2""><b>(.*?)</font></b></a>"

Set Matches = regEx.Execute(strng)

Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile(Path, True)

For Each Match in Matches
outfile.write match.SubMatches(0)
outFile.WriteLine
Next

outFile.close

 

[Electronic Punk]

Hmm, how about using the backend ?

All:
http://www.ntfs.org/modules.php?modname=backend&action=rdf

Then the categories:
http://www.ntfs.org/modules.php?modname=backend&action=rdf&id=1
http://www.ntfs.org/modules.php?modname=backend&action=rdf&id=2
http://www.ntfs.org/modules.php?modname=backend&action=rdf&id=3
http://www.ntfs.org/modules.php?modname=backend&action=rdf&id=4
http://www.ntfs.org/modules.php?modname=backend&action=rdf&id=5

Might work better and is what I will be using for Klipfolio once I get the opportunity.