(PureBasic) Must-Match Patterns

You may restrict the spider to only follow links that match any one of a set of "must-match" wildcard patterns. The AddMustMatchPattern can be called repeatedly to add must-match patterns.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkSpider.pb"

Procedure ChilkatExample()

    spider.i = CkSpider::ckCreate()
    If spider.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; --------------------------------------------------------------------
    ; Note: The URLs in this example are no longer valid.
    ; You should replace the URLs with URLs from a site of your
    ; own choosing -- preferably your own site if testing.
    ; (Google's Directory no longer exists.)
    ; --------------------------------------------------------------------

    ; First, we'll get the outbound links for a page in the
    ; Google directory.  Then we'll add some must-match
    ; and then re-fetch, to see it work...

    CkSpider::ckInitialize(spider,"directory.google.com")
    CkSpider::ckAddUnspidered(spider,"http://directory.google.com/Top/Recreation/Outdoors/Hiking/Backpacking/")

    success.i
    success = CkSpider::ckCrawlNext(spider)

    ; Display the outbound links
    i.i
    url.s
    For i = 0 To CkSpider::ckNumOutboundLinks(spider) - 1
        Debug CkSpider::ckGetOutboundLink(spider,i)
    Next

    ; The output:
    ; http://www.backpacker.com
    ; http://www.cmc.org
    ; http://www.backpacking.net
    ; http://www.thebackpacker.com/
    ; http://www.rei.com/online/store/LearnShareArticlesList?categoryId=Camping
    ; http://www.trailspace.com/
    ; http://www.catskillhikes.com/
    ; http://gorp.away.com/gorp/location/asia/nepal/favpicks.htm
    ; http://www.backpackinglight.com/cgi-bin/backpackinglight/index.html
    ; http://www.yetizone.com/
    ; http://www.backpackingfun.com
    ; http://www.freezerbagcooking.com/
    ; http://www.spadout.com/backpacking/
    ; http://sierrabackpacker.com
    ; http://www.abovecalifornia.com/
    ; http://www.personal.psu.edu/faculty/r/p/rpc1/bbb/
    ; http://www.thebackpackersguide.com
    ; http://www.journeywest.com/WB/index.html
    ; http://www.johann-sandra.com/backpackdir.htm
    ; http://www.geocities.com/amytys/
    ; http://www.cloudwalkersbasecamp.com
    ; http://www.netbackpacking.com
    ; http://members.tripod.com/~stooges/
    ; http://www.thebackpackingsite.com
    ; http://www.thruhikers.com/
    ; http://www.redcompservices.com/AT/
    ; http://members.aol.com/CMorHiker/backpack
    ; http://mywebpages.comcast.net/midwestpacker/
    ; http://www.midwesthiker.com/
    ; http://www.WeBackpack.com
    ; http://www.michiganhiker.com
    ; http://www.host33.com/backpack/
    ; http://www.wilderness-backpacking.com
    ; http://www.thetravelmonkey.net
    ; http://dmoz.org/cgi-bin/add.cgi?where=Recreation/Outdoors/Hiking/Backpacking
    ; http://dmoz.org/about.html
    ; http://dmoz.org/cgi-bin/apply.cgi?where=Recreation/Outdoors/Hiking/Backpacking
    ; http://dmoz.org
    ; http://dmoz.org/profiles/cdog.html
    ; http://dmoz.org/profiles/justinwp.html

    ; Do it again, but this time with avoid patterns.
    CkSpider::ckInitialize(spider,"directory.google.com")
    CkSpider::ckAddUnspidered(spider,"http://directory.google.com/Top/Recreation/Outdoors/Hiking/Backpacking/")

    ; Add some must-match patterns:
    CkSpider::ckAddMustMatchPattern(spider,"*.com/*")
    CkSpider::ckAddMustMatchPattern(spider,"*.net/*")

    ; Add some avoid-patterns:
    CkSpider::ckAddAvoidOutboundLinkPattern(spider,"*.mypages.*")
    CkSpider::ckAddAvoidOutboundLinkPattern(spider,"*.personal.*")
    CkSpider::ckAddAvoidOutboundLinkPattern(spider,"*.comcast.*")
    CkSpider::ckAddAvoidOutboundLinkPattern(spider,"*.aol.*")
    CkSpider::ckAddAvoidOutboundLinkPattern(spider,"*~*")

    success = CkSpider::ckCrawlNext(spider)

    Debug "-----------------------"

    ; Display the outbound links
    For i = 0 To CkSpider::ckNumOutboundLinks(spider) - 1
        Debug CkSpider::ckGetOutboundLink(spider,i)
    Next

    ; Output:
    ; http://www.thebackpacker.com/
    ; http://www.rei.com/online/store/LearnShareArticlesList?categoryId=Camping
    ; http://www.trailspace.com/
    ; http://www.catskillhikes.com/
    ; http://gorp.away.com/gorp/location/asia/nepal/favpicks.htm
    ; http://www.backpackinglight.com/cgi-bin/backpackinglight/index.html
    ; http://www.yetizone.com/
    ; http://www.freezerbagcooking.com/
    ; http://www.spadout.com/backpacking/
    ; http://www.abovecalifornia.com/
    ; http://www.journeywest.com/WB/index.html
    ; http://www.johann-sandra.com/backpackdir.htm
    ; http://www.geocities.com/amytys/
    ; http://www.thruhikers.com/
    ; http://www.redcompservices.com/AT/
    ; http://www.midwesthiker.com/
    ; http://www.host33.com/backpack


    CkSpider::ckDispose(spider)


    ProcedureReturn
EndProcedure