Lee Mendelowitz LeeMendelowitz

To run, download PhantomJS

From the terminal:

phantomjs snapshot.js > output.html

find . -name '*.aln' | xargs -I {} sh -c 'cut -f 1 "$1" > "$1.cut"' -- {}

This will find all files *.aln and then output the first column to *.aln.cut.

	\documentclass[12pt]{article}
	\usepackage[sc]{mathpazo}
	\usepackage[T1]{fontenc}
	\usepackage{amsmath}

	\usepackage[top=1in, bottom=1in, left=1.5in, right = 1.5in, marginparwidth=0.0in, marginparsep=0.25in]{geometry}

	% \geometry{verbose,tmargin=0.75in,bmargin=0.75in,lmargin=0.75in,rmargin=0.75in} %Commented out in favor of the marginnote settings

	\setcounter{secnumdepth}{2}

	############################################################
	# Time a call. Execution time is printed. Return the value of wrapped call
	time.call <- function(expr) {

	start.time <- proc.time()
	ret = evalq(expr)
	end.time <- proc.time()
	print(end.time - start.time)
	ret

	Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
	xWs.Copy
	xcsvFile = xWs.Name & ".csv"
	Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, _
	FileFormat:=xlCSV, CreateBackup:=False
	Application.ActiveWorkbook.Saved = True
	Application.ActiveWorkbook.Close

	The Washington Post Aiport Survey

	http://www.washingtonpost.com/express/wp/2015/03/31/national-reagan-dca-17-years-later-locals-still-cant-agree-on-the-name-of-the-airport-in-question/?wprss=rss_traffic