Looking for characters within a string

You can test each item in the first string for being in the second string; at any “non match” stop and return false.

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn

\NewDocumentCommand{\checkTF}{mmmm}
 {
  \stringchecker_if_string_in:nnTF { #1 } { #2 } { #3 } { #4 }
 }

\bool_new:N \l__stringchecker_temp_bool

\prg_new_protected_conditional:Nnn \stringchecker_if_string_in:nn { T, F, TF }
 {
  % set the temporary boolean to true; it will remain such
  % unless a nonmatch will happen
  \bool_set_true:N \l__stringchecker_temp_bool
  % map over the substring to find
  \str_map_inline:nn { #1 }
   {
    % do nothing if there is a match; ##1 is the current item, #2 the string to search in
    \str_if_in:nnF { #2 } { ##1 }
     {
      % a nonmatch breaks the mapping and sets the boolean to false
      \str_map_break:n { \bool_set_false:N \l__stringchecker_temp_bool }
     }
   }
  \bool_if:NTF \l__stringchecker_temp_bool
   {% there was no nonmatch, return true
    \prg_return_true:
   }
   {% a nonmatch was found, return false
    \prg_return_false:
   }
 }
\ExplSyntaxOff

\begin{document}

\checkTF{asdf}{asdfgh}{TRUE}{FALSE}

\checkTF{asdf}{hgfdsa}{TRUE}{FALSE}

\checkTF{asdf}{asdghj}{TRUE}{FALSE}

\checkTF{}{asdghj}{TRUE}{FALSE}

\checkTF{a}{}{TRUE}{FALSE}

\end{document}

enter image description here

A slightly more efficient version that absorbs one token at a time from the first argument.

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn

\NewDocumentCommand{\checkTF}{mmmm}
 {
  \stringchecker_if_string_in:nnTF { #1 } { #2 } { #3 } { #4 }
 }

\prg_new_protected_conditional:Nnn \stringchecker_if_string_in:nn { T, F, TF }
 {
  \__stringchecker_check:nN { #2 } #1 \q_nil
 }

\cs_new_protected:Nn \__stringchecker_check:nN
 {
  \quark_if_nil:NTF #2
   {
    \prg_return_true:
   }
   {
    \str_if_in:nnTF { #1 } { #2 }
     {
      \__stringchecker_check:nN { #1 }
     }
     {
      \__stringchecker_stop:w
     }
   }
 }
\cs_new:Npn \__stringchecker_stop:w #1 \q_nil
 {
  \prg_return_false:
 }
\ExplSyntaxOff

\begin{document}

\checkTF{asdf}{asdfgh}{TRUE}{FALSE}

\checkTF{asdf}{hgfdsa}{TRUE}{FALSE}

\checkTF{asdf}{asdghj}{TRUE}{FALSE}

\checkTF{}{asdghj}{TRUE}{FALSE}

\checkTF{a}{}{TRUE}{FALSE}

\end{document}

\documentclass{article}

\usepackage{xinttools}

\makeatletter
\newcommand\mycheck[2]{%
   \xintFor*##1in{#1}:
   {%
      \in@{##1}{#2}%
      \unless\ifin@\expandafter\xintBreakFor\fi
   }%
   \ifin@\expandafter\@firstoftwo\else\expandafter\@secondoftwo\fi
}
\makeatother

\newcommand\test[2]{#1 in #2 ? \mycheck{#1}{#2}{TRUE}{FALSE}}
\begin{document}

\test{asdf}{asdfgh}

\test{asdf}{hgfdsa}

\test{asdf}{asdghj}
\end{document}

enter image description here

Tags:

Comparison