Question

我正在尝试使用以下代码：

x <- scan("myfile.txt", what="", sep="\n")

b <- grep('/^one/(.*?)/^four/', x, ignore.case = TRUE, perl = TRUE, value = TRUE,
     fixed = FALSE, useBytes = FALSE, invert = FALSE)

从myfile.txt中提取文本的移植

zero
one
two
three
four
five

我期待的输出是

one
two
three
four

我想要包括“一”和“四”，我不想抛弃它们。）

但不知怎的，正则表达式不起作用，控制台输出没有错误但没有文字......？

我正在使用print（b）

Answer 1

我不太清楚你在寻找什么，但只是为了好玩......

R> x
[1] "zero"  "one"   "two"   "three" "four"  "five" 

R> grep("one|four", x) # get the position of "one" and "four"
[1] 2 5

子集x仅包含“一”和“四”之间的内容

R> x[do.call(seq, as.list(grep("one|four", x)))]
[1] "one"   "two"   "three" "four"

Answer 2

gsub('one(.*)four','\\1',paste(x,collapse=''))
[1] "zerotwothreefive"

或者在单词之间留出空格：

gsub('one(.*)four','\\1',paste(dat,collapse=' '))
[1] "zero  two three  five"

Gsee评论后

编辑：

 gsub('.*(one.*four).*','\\1',paste(dat,collapse=' '))
[1] "one two three four"

但我认为这里不需要使用正则表达式：

 dat[seq(which(dat == 'one'),which(dat == 'four'))]
[1] "one"   "two"   "three" "four"

当然，如果前一个索引的顺序不正确，你可以使用min。

使用正则表达式从文件中提取一部分文本

2 个答案: