A missing function in Mathematica that is essential for many string parsing applications. Inputs a string and a regular expression delimiter, and takes from the string until it matches the delimiter (or takes the entire string if the delimiter is not found).

Mathematica - StringTakeUntil

StringTakeUntil[str_, delim_] := 
  If[StringMatchQ[str, delim ~~ ___] || StringLength[str] == 0, "", 
   StringTake[str, 1] <> StringTakeUntil[StringDrop[str, 1], delim]];