, .
Select[{"D14 J4N4-BAPN_633nm_20x_100%_30accu_10s_point 1",
"D14 J4N5-NOBAPN_633nm_20x_100%_30accu_10s_point 3"},
StringMatchQ[
{"D14 J4N4-BAPN_633nm_20x_100%_30accu_10s_point 1"}
Complement, .
stringlist = {
"D14 J4N4-BAPN_633nm_20x_100%_30accu_10s_point 2",
"D14 J4N4-BAPN_633nm_20x_100%_30accu_10s_point 1",
"D14 J4N5-NOBAPN_633nm_20x_100%_30accu_10s_point 3",
"D14 J4N5-NOBAPN_633nm_20x_100%_30accu_10s_point 2",
"D14 J4N5-NOBAPN_633nm_20x_100%_30accu_10s_point 1"};
posnobapn = Position[stringlist , _?(StringContainsQ[
posbapn = Position[stringlist , _?(StringContainsQ[
listbapn = Extract[stringlist , Complement[posbapn, posnobapn]]
{"D14 J4N4-BAPN_633nm_20x_100%_30accu_10s_point 2",
"D14 J4N4-BAPN_633nm_20x_100%_30accu_10s_point 1"}
listnobapn = Extract[stringlist , posnobapn]
{"D14 J4N5-NOBAPN_633nm_20x_100%_30accu_10s_point 3",
"D14 J4N5-NOBAPN_633nm_20x_100%_30accu_10s_point 2",
"D14 J4N5-NOBAPN_633nm_20x_100%_30accu_10s_point 1"}
, Nieminen.
regexcases = StringCases[stringlist, RegularExpression["(BAPN)|(NOBAPN)"]];
Pick[stringlist, regexcases /. {"BAPN"} -> True]
{"D14 J4N4-BAPN_633nm_20x_100%_30accu_10s_point 2",
"D14 J4N4-BAPN_633nm_20x_100%_30accu_10s_point 1"}
Pick[stringlist, regexcases /. {"NOBAPN"} -> True]
{"D14 J4N5-NOBAPN_633nm_20x_100%_30accu_10s_point 3",
"D14 J4N5-NOBAPN_633nm_20x_100%_30accu_10s_point 2",
"D14 J4N5-NOBAPN_633nm_20x_100%_30accu_10s_point 1"}