x <- "someurl.com/vp/125514_45147_55144.jpg?_nc25244"regmatches(x,regexec("/vp/([^/?]*)\\.",x))[[1]][2]
Standard input is empty
[1] "125514_45147_55144"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!