Strings

Extract parts of string
name = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" substr(name, 9,15) substr(name, 3,nchar(name))

Adding parts of filenames to dataframe
for(i in 1:length(files)){ data[i]$V64 <- substr(files[i], 37, 43)}