使用 R 语言 编写 删除java文件中 每行 前面的 数字 的程序

今天从Lucene的网站上 拷贝了一个 IndexeFile文件的源码，但是，每行都有行号 ，也一并都拷贝过来了，为了以后省事，就写了这个程序，这里是删除每行前面的3位数字，

大家可根据自己的情况自由调整

#先把带有行号的源文件读入内存

f<-file("IndexerFiler.java","r")
txt<-readLines(f)
close(f)

#创建一个文件，保存删除行号后的内容
file.create("IndexerFile.java")
f<-file("IndexerFile.java","w")


for(i in 1:length(txt)){
  a<-strtrim(txt[i],1)  
  if(a>="0" && a<="9"){
    txt[i]<-substr(txt[i],4,nchar(txt[i]))#如果第一个字符是数字，就从第4位开始截取字符串，我这里的行号是3位的 所有从第4位截
  }
  
 writeLines(txt[i],f,sep="\n")#将每一行写进新文件
}

 close(f)