> x <- readLines(...) > tmp <- file() > writeLines(x[substr(x, 83, 86) == "STD"], tmp) > read.fwf(tmp, ...) I wrapped this approach into function and it worked swimmingly. Thanks all. -Andy