Ich habe den folgenden Code, der vom xstringAutor Christian Tellechea zur Verfügung gestellt wurde, vielen Dank. Die Idee besteht darin, die Anzahl der Zeichen innerhalb einer Struktur zu zählen, die zu einer vordefinierten Liste gehören.
\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}
Wie Sie in der Ausgabe sehen können, sind die erste und die letzte Zählung korrekt, die anderen jedoch nicht. Ich habe versucht, \exploregroupsund zu verwenden \noexpand#2, hatte aber bei allen vorgestellten Beispielen Glück. Beispielsweise \noexpand#2korrigiert das die zweite Ausgabe, beeinflusst aber die erste und dritte negativ. Gibt es eine Möglichkeit, die für alle funktioniert?
Antwort1
\blindtextwird nicht zu irgendeinem Text erweitert, sondern führt viele (nicht erweiterbare) Befehle aus, bevor ein Text erreicht wird.
Sie können es kantlipsumstattdessen mit versuchen. Dabei besteht die Möglichkeit, ein Makro zu definieren, das einen der Absätze erweitert.
\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}
Nach einerlangZeit (15 Sekunden auf meiner Maschine, das ist einesehr langBearbeitungszeit), erhalten Sie dies.
