Извлечение нескольких повторяющихся шаблонов текстовых

Question

У меня есть строка вида:

txt <- "|M CHG 6 44 -1 48 -1 53 -1 63 1 64 1 65 1|" 

Первая цифра (6) означает, что модель \\s+\\d+\\s+[\\+-]?\\d+ рецидивирует 6 раз. На самом деле меня интересует только вторая (потенциально подписанная) цифра этого шаблона. Поэтому я ищу для функции или регулярное выражение, которое дает мне в результате

[1] "-1" "-1" "-1" "1" "1" "1" 

Я пробовал с

gsub("^\\|M\\s+CHG\\s+\\d+(\\s+\\d+\\s+([\\+-]?\\d+))+\\|$", replacement="\\2", x=txt, perl=TRUE) 

, а также

str_replace_all(x, perl("^\\|M\\s+CHG\\s+\\d+(\\s+\\d+\\s+([\\+-]?\\d+))+\\|$"), "\\2") 

, но в обоих случаях я получил только последнее вхождение.

Answer 1

Одним из решений было бы раздеться начальные символы (я сделал это с regex, но вы можете захотеть использовать substr или matrix Затем напоминает формат в требуемых размеров и вернуть столбец вы хотите:.

# regex to strip superfluous characters 
# but `substring(txt , 10)` would work just as well in this example 
pat <- "^\\|M\\s+CHG\\s+\\d+\\s+(.*)\\|$" 
x <- gsub(pat , "\\1" , txt) 

# Get result 
matrix(unlist(strsplit(x , "\\s+")) , ncol = 2 , byrow = 2)[,2] 
# [1] "-1" "-1" "-1" "1" "1" "1" 

промежуточное matrix выглядит следующим образом:

#  [,1] [,2] 
#[1,] "44" "-1" 
#[2,] "48" "-1" 
#[3,] "53" "-1" 
#[4,] "63" "1" 
#[5,] "64" "1" 
#[6,] "65" "1" 

Answer 2

Я бы просто разделил на с концом | удален. Я бы взял только то, что после третьего элемента и нечетные.

var txt, txtArray, result; 

txt = "|M CHG 6 44 -1 48 -1 53 -1 63 1 64 1 65 1|"; 

// Remove the end '|'; 
txt = txt.slice(0, -1); 

// Split on one or more space... 
txtArray = txt.split(/\s+/); 


// Grab the odd ones only after the third element... 
result = txtArray.filter(function(n, i){ 
    return i > 3 && i % 2 === 0; 
}); 

console.log(result); 

Answer 3

Еще один

txt <- "|M CHG 6 44 -1 48 -1 53 -1 63 1 64 1 65 1|"  


#original 
#txtsplit<-unlist(strsplit(txt, "\\s+")) 
#n=as.numeric(txtsplit[3]) 
#o<-txtsplit[4+seq(from=1, by=2, length.out=n)] 

#fixed 
txtsplit<-unlist(strsplit(txt, "\\||\\s+")) 
n=as.numeric(txtsplit[4]) 
o<-txtsplit[5+seq(from=1, by=2, length.out=n)] 

#>o 
[1] "-1" "-1" "-1" "1" "1" "1"