• This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn more.

Displaying xp-erience headlines with coolmon

a1ehouse

Chamone M*tha Fu*ka
#1
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
 

a1ehouse

Chamone M*tha Fu*ka
#5
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
 

Members online

No members online now.

Latest posts

Latest profile posts

Perris Calderon wrote on Electronic Punk's profile.
Ep, glad to see you come back and tidy up...did want to ask a one day favor, I want to enhance my resume , was hoping you could make me administrator for a day, if so, take me right off since I won't be here to do anything, and don't know the slightest about the board, but it would be nice putting "served administrator osnn", if can do, THANKS

Been running around Quora lately, luv it there https://tinyurl.com/ycpxl
Electronic Punk wrote on Perris Calderon's profile.
All good still mate?
Hello, is there anybody in there? Just nod if you can hear me ...
Xie
What a long strange trip it's been. =)

Forum statistics

Threads
61,962
Messages
673,240
Members
89,015
Latest member
loxioalix