path = "D:……"

setwd(path)

infle =  "XX.gb"   #要读取的gb格式大文件

keyword = "LOCUS   "  #提取该有该关键词的特定行

outfile = "序列号基本信息.txt" #结果输出到这个文件中

mat = genbank.tag (infle, keyword,      outfile)

write.csv(mat,file = "序列号基本信息.csv")

对于不能很好的返回表格文件的提取项目

path = "……"

setwd(path)

infle =  "XX.gb"

keyword = "***"

outfile = "XXX.txt"

genbank.tagB (infle, keyword, outfile)

mat = read.table(outfile) #读表格时经常出错

write.csv(mat,file = "XXX.csv")