regex - 从R中的字符串获取日期/时间

Question

很难说出这里问的是什么。这个问题是模棱两可的、模糊的、不完整的、过于宽泛的或修辞的，无法以目前的形式得到合理的回答。为了帮助澄清这个问题以便可以重新打开它， visit the help center .

关闭 9年前。

我有一个字符串可以这样说

Ankit says: May 13, 2013 at 10:55 am you rock

而且，我希望从中获取日期

May 13, 2013

有什么方法可以在 R 中做到这一点吗？我已经通过以下方式尝试了 strptime 函数:

strptime("Ankit says: May 13, 2013 at 10:55 am you rock", " %b %d, %Y")

我得到 "NA"

但是当我尝试在日期之前没有任何文字时

strptime("May 13, 2013 at 10:55 am you rock", " %b %d, %Y")

我得到输出为 "2013-05-13"

我也尝试过类似的正则表达式

grep("Ankit says: May 13, 2013 at 10:55 am you rock", "?(?:[a-zA-Z]*)(\\s+)(?:[0-9]*)(,)(\\s+)(?:[0-9]*)")

Answer 1

这使用 gsubfn package 中的 strapply .它将正则表达式 pat 匹配到每个字符串，将匹配正则表达式括号部分的子字符串作为单独的参数传递给 to.POSIXct，然后最后组装该函数的输出。我们假设每个实例中存在相同的日期和时间格式，但没有对周围的文本做出太多假设:

library(gsubfn)
s <- c("Ankit says: May 13, 2013 at 10:55 am you rock", 
            "The date is Jun 6, 2013 and the time is 11:18 pm")

pat <- "(\\w+ \\d{1,2}, \\d{4}).*(\\d{2}:\\d{2} [ap]m)"
to.POSIXct <- function(d, t) as.POSIXct(paste(d, t), format = "%b %d, %Y %I:%M %p")
strapply(s, pat, to.POSIXct, simplify = "c")

给了

[1] "2013-05-13 10:55:00 EDT" "2013-06-06 23:18:00 EDT"

更新:更正