正则表达式贪婪匹配

中国火箭

1799

收藏 2017-06-09

悬赏 10 个论坛币未解决

假设有字符串： word<-'新车aaa比ttt新车ttt比ttt旧款tttt好看ttttt好看'
word<-"ttttttttt新车旧款hhhhhhh新车比旧款好看aaaaaaaa好看jjjjjjjjjj"

如何抓出新车比旧好看的字符串

pattern<-'新车.*?比.*?旧.*?好看'
a<-gregexpr(pattern, word, perl = TRUE)
substr(word,a[[1]][1],attr(a[[1]],'match.length'))

现在我的pattern写的，会多抓内容或者被截断

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

gongjiangchao

2017-6-9 18:40:58

library(stringr)
str_extract_all(word,"新车|比|旧|好看")

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

中国火箭

2017-6-12 10:12:20

gongjiangchao 发表于 2017-6-9 18:40
library(stringr)
str_extract_all(word,"新车|比|旧|好看")

您理解错了，我是要提出整句话，比如word<-'新车aaa比ttt新车ttt比ttt旧款tttt好看ttttt好看'，希望提出：新车ttt比ttt旧款tttt好看ttttt好看； word<-"ttttttttt新车旧款hhhhhhh新车比旧款好看aaaaaaaa好看jjjjjjjjjj"，希望提出：新车比旧款好看

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

gongjiangchao

2017-6-12 12:44:00

中国火箭发表于 2017-6-12 10:12
您理解错了，我是要提出整句话，比如word

library(stringr)
library(purrr)
pattern<-"(新车).*?(比).*?(旧).*?(好看)"
da<-str_match(word,pattern)
reduce(da[,-1],str_c)

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

中国火箭

2017-6-12 17:24:47

gongjiangchao 发表于 2017-6-12 12:44
library(stringr)
library(purrr)
pattern

您还是没有理解我的意思， tttt那些字母是我用来代替不确定文本的，

比如有的用户会评论：新车比旧款改进了造型，看起来比旧款好看
有的会说：新车挺不错，比旧款好看多了

我希望能抓到整句话，比如word<-'新车aaa比ttt新车ttt比ttt旧款tttt好看ttttt好看'，希望提出：新车ttt比ttt旧款tttt好看ttttt好看； word<-"ttttttttt新车旧款hhhhhhh新车比旧款好看aaaaaaaa好看jjjjjjjjjj"，希望提出：新车比旧款好看

不过还是很谢谢你的回答，第一次见到purrr包

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群