Displaying xp-erience headlines with coolmon

Discussion in 'Web Design & Coding' started by a1ehouse, Aug 25, 2002.

  1. a1ehouse

    a1ehouse Chamone M*tha Fu*ka

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

    xp-erience.vbs:

     
  2. xsivforce

    xsivforce Prodigal Son Folding Team

    Messages:
    8,547
    Location:
    Texas, USA
    Will have to have a look at this when I get home. :)
     
  3. Iceman

    Iceman Moderator

    Messages:
    2,695
    Nicely done a1ehouse :)

    :cool:
     
  4. yeah very nice, very useful for us xp-erience addicts ;)
     
  5. a1ehouse

    a1ehouse Chamone M*tha Fu*ka

    Messages:
    288
    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
     
  6. Electronic Punk

    Electronic Punk Administrator Staff Member Political User Folding Team

    Messages:
    18,590
    Location:
    Copenhagen, Denmark