正则表达式模式匹配中的错误,用于将文本检索到数据帧的两列中

^(?s)(?!(?:(?:[^:]*?.){3,}))(.*?):(.*)$

Regex Demo and Detailed explanation of the regex

Updated:

如果你的条件满足,那么正则表达式将返回true,你应该得到2份

第1组包含第一个值：第2组将包含值.

如果条件未满足,则将整个字符串复制到第2列并将所需的任何内容作为第1列

包含名为过程数据的方法的更新样本片段将为您完成这些技巧.如果条件满足,那么它将拆分数据并放入col1和col2 ….如果在输入中y和z的情况下不满足条件…它将NA放在col1和整个值中在col2.

运行示例源 – > ideone：

library(stringr)

    x <- "There is a horror movie running in the iNox theater. : If row names are supplied of length one and the data 
    frame has a single row,the row.names is taken to specify the row names and not a column (by name or number). 
    If row names are supplied of length one and the data frame has a single row,the row.names is taken to specify 
    the row names and not a column (by name or number) Can we go : Please"


    y <- "There is a horror movie running in the iNox theater. If row names are supplied of length one and the data 
    frame has a single row,the row.names is taken. To specify the row names and not a column. By name or number. : 
    If row names are supplied of length one and the data frame has a single row,the row.names is taken to specify 
    the row names and not a column (by name or number) Can we go : Please"

    z <- "There is a horror movie running in the iNox theater. If row names are supplied of length one and the data frame has a single row,the row.names is taken to specify the row names and not a column (by name or number). 
    If row names are supplied of length one. : And the data frame has a single row,the row.names is taken to specify 
    the row names and not a column (by name or number) Can we go : Please"             


df <- data.frame(Text = c(x,stringsAsFactors = F)

resDF <- data.frame("Col1" = character(),"Col2" = character(),stringsAsFactors=FALSE)

   processData <- function(a) {
        patt <- "^(?s)(?!(?:(?:[^:]*?.){3,}))(.*?):(.*)$"    
        if(grepl(patt,a,perl=TRUE))
        {
            result<-str_match(a,patt)    
            col1<-result[2]
            col2<-result[3]
        }
        else
        {
            col1<-"NA"
            col2<-a
        }
       return(c(col1,col2))

    }



for (i in 1:nrow(df)){
tmp <- df[i,]
resDF[nrow(resDF) + 1,] <- processData(tmp)
}    


print(resDF)

样本输出：

Col1
1 There is a horror movie running in the iNox theater. 
2                                                    NA
3                                                    NA
                                                                                                                                                                                                                                                                                                                                                                                                                              Col2
1                                                        If row names are supplied of length one and the data n    frame has a single row,the row.names is taken to specify the row names and not a column (by name or number). n    If row names are supplied of length one and the data frame has a single row,the row.names is taken to specify n    the row names and not a column (by name or number) Can we go : Please
2 There is a horror movie running in the iNox theater. If row names are supplied of length one and the data n    frame has a single row,the row.names is taken. To specify the row names and not a column. By name or number. : n    If row names are supplied of length one and the data frame has a single row,the row.names is taken to specify n    the row names and not a column (by name or number) Can we go : Please
3      There is a horror movie running in the iNox theater. If row names are supplied of length one and the data frame has a single row,the row.names is taken to specify the row names and not a column (by name or number). n    If row names are supplied of length one. : And the data frame has a single row,the row.names is taken to specify n    the row names and not a column (by name or number) Can we go : Please