args <- commandArgs()

name <- args[6]
n.block <- as.numeric(args[7])


for (i in 1:n.block) {
     file <-  sprintf("%s_%03d.txt", name, i)
     cat(file) # 画面に出力
     cat("\n")  # 改行コード
}

args