正则化


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]   

     }

}

帮你顶一下帖子