fork download
copy 
  1. x <- "248_HIGH_FAN_BLADE,\n67B_COOLER_BLADE,\nBLADE_LOW_DIM"
  2. regmatches(x, gregexpr("(?m)^.*?\\K[0-9A-Z]_[0-9A-Z]", x, perl=TRUE))
Success #stdin #stdout 0.24s 185728KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[[1]]
[1] "8_H" "B_C" "E_L"
https://ideone.com/sGpFFP
language:
R (R 3.5.2)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!