正则化
time <- c();use <- c();msg <- c();
for(i in 1:length(mantou)){
regmantou <- regexpr("[0-9]{4}-[0-9]{2}-[0-9]{2} [0-9]+:[0-9]+:[0-9]+",mantou[i])
if(regmantou[1]==1){
time[i] <- substr(mantou[i],1,19)
use[i] <- substr(mantou[i],21,nchar(mantou[i]))
}else{
msg[i] <- mantou[i]
}
}