rm(list=ls())

# load packages
library(RCurl)
library(XML)


for (count in 119:121){
get_search <- function(u) {

html <- getURL(u, followlocation = TRUE)
 
# parse html
doc = htmlParse(html, asText=TRUE)
plain.text <- xpathSApply(doc, "//text()[not(ancestor::script)][not(ancestor::style)][not(ancestor::noscript)][not(ancestor::form)]", xmlValue)
V<-cat(paste(plain.text, collapse = " "))

write.table(V,row.names=FALSE)

free(doc)

return(df)

}

u<-paste("http://www.arlingtonva.us/departments/realestate/reassessments/scripts/Inquiry.asp?action=view&lrsn=55",count,sep="")
df <- get_search(u)
}