正则表达式:匹配四位数的前两位

Question

我有：

'30Jun2021'

我想跳过/删除四位数的前两位(或任何其他方式)：

'30Jun21'

我试过了：

^.{0,5}

https://regex101.com/r/hAJcdE/1

我有前5个字符，但我还没有想出如何跳过/删除'20‘

Answer 1

使用专用的日期/时间函数可以更好地处理日期时间。

您可以将变量转换为date，并使用format获得任意格式的输出。

x <- '30Jun2021'
format(as.Date(x, '%d%b%Y'), '%d%b%y')
#[1] "30Jun21"

您还可以使用lubridate::dmy(x)将x转换为date。

Answer 2

为此，您甚至不需要正则表达式。只需使用子字符串操作：

x <- '30Jun2021'
paste0(substr(x, 1, 5), substr(x, 8, 9))

[1] "30Jun21"

Answer 3

您还可以将字符串的格式与2个捕获组进行匹配，在这两个捕获组中，您将匹配您想要省略的部分，并捕获您想要保留的部分。

\b(\d+[A-Z][a-z]+)\d\d(\d\d)\b

Regex demo

sub("\\b(\\d+[A-Z][a-z]+)\\d\\d(\\d\\d)\\b", "\\1\\2", "30Jun2021")

输出

[1] "30Jun21"