regex - trả lại tất cả trước khi sự xuất hiện thứ hai

Question

Với chuỗi này:

DNS000001320_309.0/121.0_t0 

Làm thế nào tôi sẽ trở lại tất cả mọi thứ trước khi sự xuất hiện thứ hai của "_"?

DNS000001320_309.0/121.0 

Tôi đang sử dụng R.

Cảm ơn.

Answer 1

Tôi nghĩ rằng điều này có thể làm nhiệm vụ (regex để phù hợp với tất cả mọi thứ befor sự xuất hiện cuối cùng của _):

_([^_]*)$ 

Ví dụ:

> sub('_([^_]*)$', '', "DNS000001320_309.0/121.0_t0") 
[1] "DNS000001320_309.0/121.0" 

Answer 2

Cá nhân, tôi ghét regex, vì vậy may mắn có một cách để làm điều này mà không có họ, chỉ bằng cách tách chuỗi:

> s <- "DNS000001320_309.0/121.0_t0"  
> paste(strsplit(s,"_")[[1]][1:2],collapse = "_") 
[1] "DNS000001320_309.0/121.0" 

Mặc dù tất nhiên điều này giả định rằng sẽ luôn có ít nhất 2 dấu gạch dưới trong của bạn chuỗi, vì vậy hãy cẩn thận nếu bạn vectorize này và đó không phải là trường hợp.

Answer 3

không đẹp nhưng điều này sẽ làm các trick

mystr <- "DNS000001320_309.0/121.0_t0" 

mytok <- paste(strsplit(mystr,"_")[[1]][1:2],collapse="_") 

Answer 4

Các kịch bản sau đây:

s <- "DNS000001320_309.0/121.0_t0" 
t <- gsub("^([^_]*_[^_]*)_.*$", "\\1", s) 
t 

sẽ in:

DNS000001320_309.0/121.0 

Một lời giải thích nhanh chóng của các regex:

^   # the start of the input 
(  # start group 1 
    [^_]* # zero or more chars other than `_` 
    _  # a literal `_` 
    [^_]* # zero or more chars other than `_` 
)   # end group 1 
_   # a literal `_` 
.*  # consume the rest of the string 
$   # the end of the input 

mà được thay thế bằng:

\\1  # whatever is matched in group 1 

Và nếu có ít hơn 2 dấu gạch dưới, chuỗi là không thay đổi.