Extract Some String
take_out(x, ..., type = "c")
x
string
...
patterns of c('begin','after')
type
any left characters of character or list
characters
x='abdghtyu' take_out(x,c('a','d'),c('h','u'))