"Macro" program? :O

Okay. So im pretty dumb when it comes into the conversation of "macros".
if I even have the correct general idea of what they are.

Anywho, my dad is starting a business from home and he has asked me to fill out spreadsheets of information about crematories who might be interested buyers. He had given me a website (http://www.crematorydirectory.com/profiles/index.html) and he gives me a spreadsheet at a time to fill out (Im on Washington now)
It's a lot of hard work and it's time consuming, and I'm wondering if there are any programs that will help me speed up the process.
I probably sound dumb. But it's worth a shot. Haha

HELP APPRECIATED

A macro program is nothing more than a program which automates repetitive tasks. The best thing you could do is learn regular expressions, a little bit of python, and really get to know urllib.

Here's something I whipped up in about 40 minutes:

Code:

import urllib2
import re
import time

BASEURL = 'http://www.crematorydirectory.com/profiles/'

def GetFirmName(webPage):
    firmName = re.findall(r'firm_name">(.*?)</span>', webPage, re.DOTALL)
    if len(firmName) == 0:
        print(webPage)
        raise Exception("No firm name?")
    else:
        return firmName

def GetContactDetails(webPage):
    contactDetails = re.findall(r'contact_info">(.*?)</span>', webPage)
    if len(contactDetails) == 0:
        print(contactDetails)
        raise Exception("No contact details?")
    return contactDetails

def GetAddresses(baseWebPage, baseURL, curAddresses, state, recursionDepth):
    locations = re.findall(r'state_profile.*?href="([a-z/_\.]*?)">([A-Za-z0-9\-]*?)</a>', baseWebPage)
    if locations == []:
        #We've now reached the base - no sublocations. Get the address information
        name = GetFirmName(baseWebPage)
        contactDetails = GetContactDetails(baseWebPage)
        return '\n'.join(name + contactDetails)
    else:
        #Not at the base yet. Continue recursion
        for url, location in locations:
            print(url, location)
            time.sleep(5)
            locationIndex = urllib2.urlopen(baseURL + url)
            locationIndexHTML = locationIndex.read()
            locationIndex.close()

            #Change URL to not have additional file name on the end
            urlwithoutfilename = '/'.join(url.split('/')[:-1])
            if len(urlwithoutfilename) > 0 and urlwithoutfilename[-1] != '/':
                urlwithoutfilename += '/'
            curAddresses.append(GetAddresses(locationIndexHTML, baseURL + urlwithoutfilename, curAddresses, location, recursionDepth + 1))
        return curAddresses

baseIndex = urllib2.urlopen(BASEURL + 'index.html')
baseIndexHTML = baseIndex.read()
baseIndex.close()

allAddresses = GetAddresses(baseIndexHTML, BASEURL, [], '', 0)
for eachThing in allAddresses:
    if type(eachThing) != type(''):
        allAddresses.remove(eachThing)
print(allAddresses)
print('\n\n\n'.join(allAddresses))
f = open('outputoutput.txt', 'wb')
f.write('\n\n\n'.join(allAddresses))
f.close()

The output looks like this:

 Spoiler

Code:

ABANKS MORTUARY & CREMATORY
808 5th Avenue N, Birmingham, Alabama 35203
Telephone: (205) 322-9050 or (800) 264-9855


ALABAMA CREMATION CENTERS
21927 Highway 280, Camp Hill, Alabama 36850
Telephone: (256) 896-4502 or (800) 721-2662


BERRYHILL FUNERAL HOME & CREMATORY
2305 North Memorial Parkway, Huntsville, Alabama 35810
Telephone: (256) 536-9197


BROOKSIDE FUNERAL HOME, CREMATORIUM & MEMORIAL GARDENS
3360 Brookside Drive, Millbrook, Alabama 36054
Telephone: (334) 285-7442


K. L. BROWN FUNERAL HOME & CREMATION CENTER
322 Nisbet Street NW, Jacksonville, Alabama 36265
Telephone: (256) 435-7042


CHAPEL HILL FUNERAL HOME & CREMATORY, INC.
542 West 52nd Street, Anniston, Alabama 36206
Telephone: (256) 820-5151


CHARTER FUNERAL HOME & CREMATORY
2521 Highway 31, Calera, Alabama 35040
Telephone: (205) 621-0800 or (800) 953-5884


COLBERT MEMORIAL CHAPEL, GARDENS & CREMATORY
700 Highway 43 S, Tuscumbia, Alabama 35674
Telephone: (256) 383-2603


CORNER STONE FUNERAL CHAPEL & CREMATORY INC.
40 Corner Stone Drive, Ider, Alabama 35981
Telephone: (256) 657-4003


GRAY BROWN - SERVICE MORTUARY & CREMATORY
1329 Wilmer Avenue, Anniston, Alabama 36201
Telephone: (256) 236-3441


GUNTERSVILLE MEMORIAL CHAPEL FUNERAL HOME & CREMATORY
1601 Henry Street, Guntersville, Alabama 35976
Telephone: (256) 582-7931


HUGHES CREMATION CENTER & FUNERAL SERVICES INC.
7951 American Way, Daphne, Alabama 36526
Telephone: (251) 621-5890


JOHNS - RIDOUT'S CREMATION SERVICES
2116 University Boulevard, Birmingham, Alabama 35233
Telephone: (205) 251-5254


LAUGHLIN SERVICE FUNERAL HOME & CREMATORY INC.
2320 Bob Wallace Avenue SW, Huntsville, Alabama 35805
Telephone: (256) 534-2471 or (888) 464-4906


MACK FUNERAL HOME INC. & CREMATORY
22154 Milwaukee Street, Robertsdale, Alabama 36567
Telephone: (251) 947-7781


MORGAN FUNERAL CHAPEL / CREMATORY
625 Gilbert Ferry Road, Attalla, Alabama 35954
Telephone: (256) 538-7834 or (800) 894-7834


MORRISON FUNERAL HOMES INC.
825 North Main Street, Tuscumbia, Alabama 35674
Telephone: (256) 383-7311


PINE CREST CREMATORY
1939 Dauphin Island Parkway, Mobile, Alabama 36605
Telephone: (251) 478-5227


SOUTHERN CREMATION SERVICES
3409 West Main Street, Dothan, Alabama 36305
Telephone: (334) 793-3003


SOUTHERN HERITAGE FUNERAL HOME & CREMATORY
1000 Hodgesville Road, Dothan, Alabama 36301
Telephone: (334) 702-1712


SOUTHERN MEMORIAL FUNERAL HOME & CREMATORIUM
3154 Highland Avenue, Montgomery, Alabama 36107
Telephone: (334) 271-4404


SPRY FUNERAL HOME & CREMATORY
2411 Memorial Parkway NW, Huntsville, Alabama 35810
Telephone: (256) 536-6654


TWICKENHAM CREMATORY
6262 Highway 431 S, Hampton Cove, Alabama 35763
Telephone: (256) 518-9168


WOLFE - BAYVIEW FUNERAL HOMES & CREMATORY INC.
19698 Greeno Road, Fairhope, Alabama 36532
Telephone: (251) 990-7775

Because the webpage limits the amount of connections I can do in a period of time, I can nab one of these every 5 seconds. Come back later and I'll have them all.

That's so awesome!
Thanks a ton Fiel ;D

http://www.sendspace.com/file/ystskb