自己弄了一个比较笨的办法，跟大家分享一下。
<br />
temp = "0#32#211#31004#240#13#33#20#23#14#34#20#25"<br />
## 比如这个例子中的结果为2 3 4<br />
gsub("^.*?#3([0-9]{1,2})#2.*?$", "\\1", temp, perl = TRUE);<br />
tRes = strsplit(temp, split = "#2");<br />
tRes2 = grepl("^.*?#3[0-9]{1,2}$", tRes[[1]]);<br />
tRes3 = gsub("^.*?#3([0-9]{1,2}$)","\\1",tRes[[1]][tRes2]);<br />
</p>
