18145¿¡ ´äº¯Àº 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}