Tenho o seguinte código, que foi fornecido pelo xstringautor Christian Tellechea, muito obrigado. A ideia é contar o número de caracteres dentro de uma estrutura que pertencem a uma lista predefinida.
\documentclass{article}
\usepackage{xstring}
\usepackage{blindtext}
\makeatletter
\def\countoccurs#1#2{%
\saveexpandmode\expandarg
%\exploregroups
\expandafter\def\expandafter\tmp@list\expandafter{\list,}%
\let\nboccur\z@
\loop
\unless\ifx\empty\tmp@list
\StrCut\tmp@list,\tmp@cs\tmp@list
%\StrCount{\noexpand#2}\tmp@cs[\tmp@cs]%
\StrCount{#2}\tmp@cs[\tmp@cs]%
\edef\nboccur{\number\numexpr\nboccur+\tmp@cs}%
\repeat
\restoreexpandmode
}
%\def\list{12,a,bc,9} % list can also be defined as this
\def\list{%
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,Q,r,s,t,u,v,w,x,y,z,%
A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,S,X,Y,Z,%
1,2,3,4,5,6,7,8,9,0,%
}
\def\countenv#1{#1\countoccurs\list{#1}}
\makeatother
\begin{document}
\countenv{\begin{tabular}{ll} a & b \\ a & c \end{tabular}}\par
I counted: \nboccur.
\noindent\hrulefill
\countenv{\textbf{D}2345}\par
I counted: \nboccur.
\noindent\hrulefill
\countenv{\blindtext}\par
I counted: \nboccur.
\noindent\hrulefill
%\countoccurs\list{12987d bc abcabc999}
\countenv{12987d bc abcabc999}\par
I counted: \nboccur.
\noindent\hrulefill
\end{document}
Como você pode ver na saída, a primeira e a última contagem estão corretas, mas as outras não. Tentei usar o \exploregroupse \noexpand#2mas sorte com todos os exemplos apresentados. Por exemplo, \noexpand#2corrige a segunda saída, mas influencia negativamente a primeira e a terceira. Existe uma maneira que funcione para todos?
Responder1
\blindtextnão se expande para algum texto, mas executa muitos comandos (não expansíveis) antes de chegar a um texto.
Você pode tentar com kantlipsum, que tem a possibilidade de definir uma macro expandindo para um de seus parágrafos.
\documentclass{article}
\usepackage{xstring}
\usepackage{kantlipsum}
\kantdef\mytext{1}
\makeatletter
\def\countoccurs#1#2{%
\saveexpandmode\expandarg
%\exploregroups
\expandafter\def\expandafter\tmp@list\expandafter{\list,}%
\let\nboccur\z@
\loop
\unless\ifx\empty\tmp@list
\StrCut\tmp@list,\tmp@cs\tmp@list
%\StrCount{\noexpand#2}\tmp@cs[\tmp@cs]%
\StrCount{#2}\tmp@cs[\tmp@cs]%
\edef\nboccur{\number\numexpr\nboccur+\tmp@cs}%
\repeat
\restoreexpandmode
}
%\def\list{12,a,bc,9} % list can also be defined as this
\def\list{%
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,Q,r,s,t,u,v,w,x,y,z,%
A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,S,X,Y,Z,%
1,2,3,4,5,6,7,8,9,0,%
}
\def\countenv#1{#1\countoccurs\list{#1}}
\makeatother
\begin{document}
\countenv{\begin{tabular}{ll} a & b \\ a & c \end{tabular}}\par
I counted: \nboccur.
\noindent\hrulefill
\countenv{\textbf{D}2345}\par
I counted: \nboccur.
\noindent\hrulefill
\countenv{\mytext}\par
I counted: \nboccur.
\noindent\hrulefill
%\countoccurs\list{12987d bc abcabc999}
\countenv{12987d bc abcabc999}\par
I counted: \nboccur.
\noindent\hrulefill
\end{document}
Após umlongotempo (15 segundos na minha máquina, que é ummuito longotempo de processamento), você entende isso.
