從字符串中提取多種類型的模式

Question

我從字符串中提取多種類型的模式。例如，

「上市2013年3月25日爲25000和銷售爲$ 10,250的2010年4月5日」

我想提取日期「2013年3月25日」，「2010年4月5日「向量」日期「和」25000「」$ 10,250「到向量。

text <- "Listed 03/25/2013 for 25000 and sold for $10,250 on 4/5/2010" 
    # extract dates 
dates <- str_extract_all(text,"\\d{1,2}\\/\\d{1,2}\\/\\d{4}")[[1]] 
    # extract amounts 
text2 <- as.character(gsub("\\d{1,2}\\/\\d{1,2}\\/\\d{4}", " ", text)) 
amountsdollar <- as.character(str_extract_all(text2,"\\$\\(?[0-9,.]+\\)?")) 
text3 <- as.character(gsub("\\$\\(?[0-9,.]+\\)?", " ", text2)) 
amountsnum <- as.character(str_extract_all(text3,"\\(?[0-9,.]+\\)?")) 
amounts <- as.vector(c(amountsdollar, amountsnum)) 
list(dates, amounts) 

但是訂單沒有保留。有沒有更好的方法來做到這一點？謝謝。

Answer 1

基礎R處理此細

x <- "Listed 03/25/2013 for 25000 and sold for $10,250, on 4/5/2010" 
date.pat <- '\\d{1,2}/\\d{1,2}/\\d{2,4}' 
amount.pat <- '(?<=^|)[$,0-9]+[0-9](?=,|\\.|$|)' 

dates <- regmatches(x, gregexpr(date.pat, x)) 
amounts <- regmatches(x, gregexpr(amount.pat, x, perl=TRUE))