如何抓取符合正则表达的字符里的某些字符

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

简短地问，想要抓取的字符串前后满足一定的正则，但其本身并没有特殊规律，应如何实现？
具体：
例如一堆字符串：
a<-c("http://asdfghjk.com","asdfhttp://asdf.com","qwerhttp://poiu.org","dfasdfhttp://qwer.comqwer")

利用下面谷歌找到的代码
GetContent <- function(list,pattern){
  d <- c()
  for (i in 1:length(list)) {
    g <- gregexpr(pattern,list)[[1]]
    d <- append(d,substring(list,g,g+attr(g,'match.length')-1))
  }
  d
}


pattern <- "http://.*?(\\.com|\\.org)"
GetContent(a,pattern)

抓取到c("http://asdfghjk.com","http://asdf.com","http://poiu.org","http://qwer.com")
但实际上我只想要中间的，就是c("asdfghjk","asdf","poiu","qwer")，应该如何解决？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：如何实现 字符串 如何

pattern 改为 "(?<=http://).*?(?=(\\.com|\\.org))"
gregexpr加个参数perl=T