GetExcuses.ps1

# Gets a list of excuses from programmingexcuses.com
$url = 'http://programmingexcuses.com/'

$totalLoopCount = 10
$loopCount = 0
$excuses = @()

Function GetExcuse {
    $result = Invoke-WebRequest -Uri $url
    $lines = $result.Content.Split("`n")
    foreach ($line in $lines) {
        if ($line.Contains('<a')) {
            $excuse = $line.Replace('</a></center>', '').Replace('<center style="color: #333; padding-top: 200px; font-family: Courier; font-size: 24px; font-weight: bold;">', '').Replace('<a href="/" rel="nofollow" style="text-decoration: none; color: #333;">', '')
            Write-Host $excuse
            If ($excuses -contains $excuse)
            {
            }
            Else
            {
                $excuses += $excuse
            }
        }
    }
}

While ($loopCount -le $totalLoopCount) {
    GetExcuse
    Write-Host $loopCount
    $loopCount = $loopCount + 1
}

Write-Host $excuses.Count