创建包含/不包含图片的纯 CSV 页面列表

Question 1

此解决方案侵入figure环境以输出彩色页面列表。您还可以使用\MarkColorPage标记其他带有彩色内容的地方。数据在下一次 LaTeX 传递时输入回来，并用于构建黑白列表。然后将列表（具有绝对页码）写入文件<jobname>.bwlist和<jobname>.colorlist。我必须\clearpage在最后添加，否则最后一页的页码会差一页。

之所以需要两次传递，是因为只有在页面输出时才能获得正确的页码（？），而这正是\write和\iow_shipout_x:Nn所做的。如果有办法以类似的方式推迟代码在输出时执行，那么一次传递就可以获得正确的列表。

（这是我第一次尝试使用 LaTeX3 进行编程。非常感谢大家的评论！）

\documentclass{article}

\usepackage{expl3,xparse}
\usepackage{atbegshi}

\ExplSyntaxOn
\clist_new:N \g_lp_bw_clist
\clist_new:N \g_lp_color_clist
\int_new:N   \g_lp_page_int

\cs_new:Nn \lp_add_bw_page:n {
  \clist_gput_right:Nx \g_lp_bw_clist {#1}
}
\cs_new:Nn \lp_add_color_page:n {
  \clist_gput_right:Nx \g_lp_color_clist {#1}
}
\cs_new:Nn \lp_test_page: {
  \int_gincr:N \g_lp_page_int
  \exp_args:NNx \clist_if_in:NnF \g_lp_color_clist { \int_use:N \g_lp_page_int } {
    \lp_add_bw_page:n { \int_use:N \g_lp_page_int }
  }
}
\cs_new:Nn \lp_write_list:Nn {
  \iow_open:Nn \g_lp_stream { \tl_use:N \c_job_name_tl .#2 }
  \iow_now:Nx  \g_lp_stream { \clist_use:N #1 }
  \iow_close:N \g_lp_stream
}
\cs_new:Nn \lp_write_lists: {
  \clist_gremove_duplicates:N \g_lp_color_clist
  \lp_write_list:Nn \g_lp_bw_clist    { bwlist }
  \lp_write_list:Nn \g_lp_color_clist { colorlist }
}
\cs_new:Nn \lp_mark_color_page: {
  \iow_shipout_x:Nn \g_lp_stream {
    \exp_not:N \lp_add_color_page:n { \int_use:N \g_lp_page_int }
  }
}

\AtBeginDocument{
  \ExplSyntaxNamesOn
  \file_input:n { \tl_use:N \c_job_name_tl .clp }
  \ExplSyntaxNamesOff
  \iow_open:Nn \g_lp_stream { \tl_use:N \c_job_name_tl .clp }
}
\AtBeginShipout{
  \lp_test_page:
}
\AtEndDocument{
  \clearpage
  \iow_close:N \g_lp_stream
  \lp_write_lists:
}
\cs_set_eq:NN \MarkColorPage \lp_mark_color_page:

\char_set_catcode_letter:N @
\RenewDocumentEnvironment { figure } { o } {
  \IfNoValueTF {#1} {
    \@float { figure }
  }{
    \@float { figure } [#1]
  }
  \lp_mark_color_page:
}{
  \end@float
}
\char_set_catcode_other:N @
\ExplSyntaxOff

\begin{document}

\listoffigures

\clearpage
\begin{figure}
\caption{Test}
\end{figure}

\clearpage
\begin{figure}[!htbp]
\caption{Test}
\end{figure}

\clearpage
Hello World

\end{document}

要创建单独的 PDF，请在生成页面列表后使用此文档代码：

\documentclass{article}

\usepackage{pdfpages}

\newread\pagein
\openin\pagein=thesis.\listtype
\read\pagein to \pages
\closein\pagein

\begin{document}

\edef\optarg{[pages={\pages}]}
\expandafter\includepdf\optarg{thesis.pdf}

\end{document}

\listtype应为bwlist或colorlist。您可以创建文档的两个副本，并\listtype在每份副本中替换为适当的名称，或者在命令行上定义它（请参阅这个问题详情请见):

pdflatex'\def\liststype{bwlist} \input{something.tex}'

Answer

此解决方案侵入figure环境以输出彩色页面列表。您还可以使用\MarkColorPage标记其他带有彩色内容的地方。数据在下一次 LaTeX 传递时输入回来，并用于构建黑白列表。然后将列表（具有绝对页码）写入文件<jobname>.bwlist和<jobname>.colorlist。我必须\clearpage在最后添加，否则最后一页的页码会差一页。