Parse a file with a regexp and return first match

Question

I need to write a command that searches a file for a string that matches a certain regexp, and inserts that string. I know how to parse a string of text using a regex with

\usepackage{l3regex}
\ExplSyntaxOn
\cs_new_protected:Npn \mycom #1
  {
    \tl_set:Nn \l_tmpa_tl {#1}
    \regex_replace_all:nnN { THE-REGEXP } { THE-REPLACEMENT } \l_tmpa_tl
    \tl_use:N \l_tmpa_tl
  }
\ExplSyntaxOff

but I don't know how I can use it to parse the contents of a file. I tried replacing {#1} with {\input{#1}}, but it didn't work (the \input was simply considered part of the string).

Answer 1

There is no facility, at the moment, for storing into a token list the contents of a file, but you can still use the catchfile package:

\documentclass{article}
\usepackage{catchfile}
\usepackage{expl3,l3regex}
\ExplSyntaxOn
\cs_new_protected:Npn \mycom #1
  {
    \CatchFileDef \l_tmpa_tl {#1} {}
    \regex_replace_all:nnN { xrep } { foo } \l_tmpa_tl
    \tl_use:N \l_tmpa_tl
  }
\ExplSyntaxOff

\mycom{xrep}