代码之家 › 专栏 › 技术社区 › Denis

解析格式化程序字符串

regex r

Denis · 技术社区 · 6 年前

假设我有以下几点:

format.string <- "@AB@-@BC@/@DF@" #wanted to use $ but it is problematic
value.list <- c(AB="a", BC="bcd", DF="def")

我想将value.list应用于format.string,以便替换指定的值。因此,在本例中,我应该使用一个字符串: a-bcd/def

我试着像下面这样做:

  resolved.string <- lapply(names(value.list), 
       function(x) { 
         sub(x = save.data.path.pattern, 
             pattern = paste0(c("@",x,"@"), collapse=""),
             replacement = value.list[x]) })

3 回复 | 直到 6 年前

acylam 6 年前

这个 glue 软件包就是为此而设计的。可以使用更改开始和结束分隔符 .open 和 .close value.list

library(glue)

format.string <- "{AB}-{BC}/{DF}"
value.list <- list(AB="a", BC="bcd", DF="def")

glue_data(value.list, format.string)
# a-bcd/def

Julius Vainora 6 年前

要回答您的实际问题,请使用 lapply 结束 names(value.list) 正如您的输出所示,您可以获取 value.list 并进行更换。然而,所有这些都是独立发生的,也就是说,替换并不是最终组合成一个结果。

为了使类似于你的方法有效,我们可以使用 Reduce 正是这一点:

Reduce(function(x, y) sub(paste0(c("@", y, "@"), collapse = ""), value.list[y], x),
      init = format.string, names(value.list))
# [1] "a-bcd/def"

如果我们调用匿名函数 f ,那么结果是

f(f(f(format.string, "A"), "B"), "C")

我相信这正是你想要的。

akrun 6 年前

我们可以使用 gsubfn pattern

library(gsubfn)
gsub("@", "", gsubfn("[^@]+", as.list(value.list), format.string))
#[1] "a-bcd/def"

注意:“value.list”是一个 vector 而不是 list

推荐文章

lonix · 使用sed从JSON中提取非贪婪正则表达式

1 年前

me-me · regex检查电子邮件字符串是否有@后跟一个点以及点符号后至少2个字符[重复]

2 年前

Dave Guerrero · 是否有一个正则表达式模式来捕获字符串中直到第一个字母字符的数字?

2 年前

Dima Malko · 如何在指定符号前添加符号?

2 年前

shekharsabale · 从列表元素捕获子字符串

2 年前

maycca · 正则表达式:过滤年份数值大于某个值的文件?字符串中编码的年份

2 年前

Katia · 根据特定规则进行多行匹配

2 年前

Andrei Cleland · 在长正则表达式中包含unicode字符

2 年前

MHA · Pandas str.extract()以字母结尾的数字

2 年前

Slava Vir · 如何查找后面“/”之间的最后一组

2 年前