18146¿¡ ´äº¯Àº lineno¸¦ ¼Ò°³ÇÏ´Â °ÍÀ¸·Î ´Þ¾ÒÁö¸¸, ´äº¯À» ÀÛ¼ºÇÏ´Â °úÁ¤¿¡¼ *¹®´Ü °³¼ö*¸¦ ¼¼´Â ªÀº Äڵ带 ÀÛ¼ºÇÏ¿´±â ¶§¹®¿¡ ¿©±â¿¡ Àû¾îµÐ´Ù. ¿©±â¼´Â everypar¸¦ ÀÌ¿ëÇؼ *¹®´Ü*ÀÇ °³¼ö¸¦ ¼¼¾ú´Âµ¥, everyline ºñ½ÁÇÑ ¸í·ÉÀ» ¸¸µé¾î¼ ÁøÂ¥·Î ÇàÀÇ °³¼ö¸¦ ¼¼´Â ¹æ¹ýµµ ÀÖÁö ¾ÊÀ»±î ÇÑ´Ù.
\documentclass{article}
\newcounter{mycnt}\setcounter{mycnt}{0}
\newwrite\myOutput
\def\OutputName{\jobname.tmp}
\makeatletter
\newcommand\showmethenumber{%
\IfFileExists{\jobname.tmp}{\input{\jobname.tmp}}{??}%
}
\newenvironment{countthelines}%
{\setcounter{mycnt}{0}\everypar\expandafter{\stepcounter{mycnt}}%
\openout\myOutput\OutputName
}
{\everypar{\empty}\par We have \themycnt~lines.
\protected@write{\myOutput}{}{\themycnt\string\ignorespaces}%
\closeout\myOutput
}
\makeatletter
\begin{document}
The following paragraph has \showmethenumber~lines.
\begin{countthelines}
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line\par
a line
\end{countthelines}
\end{document}