string <- '<a href="/Archiv-Suche/!344002&amp;s=&amp;SuchRahmen=Print/" ratiourl-ressource="344002"'
pattern = "!(\\d+)&amp;"
res <- unlist(regmatches(string,regexec(pattern,string)))
res[2]