查找字符串并使用 PostScript 转换为 ASCII

Question

当谈到后记编程时，我是一个完全的新手，我试图在这里的天才的帮助下找到解决我的问题的方法。

我是一名学生，目前正在处理一个项目，我们应该从 postscript 文件中读取一些内容并将其放入新的 postscript 文件中。

我想在 Ghostscript 的帮助下编辑 postscript 文件，以使用我从原始 postscript 文件中挑选的某些值进行输出。

现在我有一个文件可以执行此操作，但我想获取嵌入在十六进制字符串中的字体并对其进行解码，以便从中获取 ASCII 符号。

原始文件的对象看起来像这样

/g5 <1C60D8A8C9B64EDFFB83C6241DB110BEE5AB2FAD9D94B39ED5E81E7411B 66E9361DDE78FC667AB91EF9824>

我想做的就是把它们挑出来，并根据后记代码（systemdict？？？）中的一些字典检查它们，然后选出它的值。

有没有人有类似的事情或例子来做到这一点？

现在，我挑选文件的代码开始如下： (%stdout) (w) file def

我在其中获取文件，现在我想搜索字符串“<1C60D8”并复制该字符串与符号“>”之间的所有内容

之后，我想检查十六进制代码隐藏在其下面的内容，在本例中是 Arial 中的“E”。

我想提取文本，这样我就可以将其放入一个新文件中，而无需使用十六进制字符串并采用纯 ASCII 格式。例如变成“P”。 之后我可以制作一个软件，从新的postscript文件中挑选出“P”并将其放在我的主页上，最终的结果是一个主页，上面有每个人上次考试的测试结果。

现在我正在使用 Ghostscript 和我在互联网上找到的以下命令行来提取文件中的信息。

gswin32c.exe -q -dNODISPLAY -dNOPAUSE -sFONTPATH=C:\WINDOWS\Fonts -dBATCH extract.ps input.ps > output.ps

其中 extract.ps 是我需要进行一些编码以检索十六进制字符串并对它进行编码并最后输出它的文件，以便它成为“正常”字体，并且还写入它们应该位于的位置的一些坐标。

如果您知道我应该如何开始，那就太棒了。现在我想这可能行不通，我必须像其他学生一样采取另一种方法，但自从我发现 PostScript 是一种编程语言后，我认为我可以做到。

现在我想我一开始可能需要做这样的事情。 (%标准输出)(w) 测试{ 杜普？？？ 写字符串 检查 systemdict 吗？ 检查？？ } 绑定定义 显示测试？？？

我目前正在尝试阅读一些在互联网上找到的文献，但这非常困难！

如果您知道如何解决问题，请举个例子，让我知道

最好的问候！

Answer 1

在我看来，你走在正确的道路上。 PostScript是一种编程语言，因此出于一般目的，您必须使用 PostScript 解释器来处理它。简单地解析文件或任何其他类似的方法在一般情况下都不起作用（尽管它可能适用于简单的文件）。

您引用的原始对象似乎可能是字体中的字形描述，可能是 type 3 字体，可能由 Fontographer 生成，但这只是猜测。请注意，这是一个字形而不是字体，字体是字形的集合。

如果我这样做，我会首先重新定义各种 PostScript 运算符。例如，如果您重新定义“show”，您可以在绘制文本时拾取文本（实际上有多种显示操作符，您需要重新定义它们）。同时您可以选取字体字典，并可以安排将其输出到文件中。

例如，您可以从以下开始：

%!PS
% redefine.ps
%

/OutputFile (/out.txt) (w) file def

/show {
  OutputFile exch writestring
} bind def

然后运行此命令：

gswin32 redefine.ps input.ps

它将运行重新定义运算符的redefine.ps，然后它将解释input.ps。重新定义的“show”运算符会将任何“show”操作的字符串参数写入名为 /out.txt 的文件中。

显然，您可以将其扩展到其他演出运营商。您还可以复制字体字典，然后根据需要发出它们。这涉及到一些编程，但这里有一个概述：

%!PS
%

/OutputFile (/out.txt) (w) file def

%% FontStore will be an array of font dictionaries
/FontStore 1 array def

/CheckFont {
  currentfont /FontName get %% Extract the name of the current font from the 
                            %% font dictionary 
  true                      %% termination condition
  FontStore {               %% forall is called for each member of the array
    /FontName get           %% get font name from stored font dictionary
    2 index                 %% copy the current font name from the stack
    eq                      %% See if they are the same
    {
      pop                   %% remove the 'false' condition
      false                 %% replace it with a 'true'
      exit                  %% and exit the loop
    } if
  } forall
  exch pop                  %% remove stored font name
  {
    %% make the array one bigger, copy the old array, add the current font dict.
  } if
} def

/show {
  CheckFont
  OutputFile exch writestring
} bind def

/showpage {
  %% Emit the fonts if required, potentially reorder the stored strings etc.
} bind def

现在每当我们执行“show”时，我们都会检查当前字体是否已存储，如果没有则存储它。在页面末尾（执行 showpage 时）我们可以做其他事情，例如将存储的字体字典作为字体发出等。

您可能想要做的一件事是记录字符串到达​​“show”时的位置，currentpoint 运算符将为您提供 show 发生时的 xy 位置。您可以决定将字符串及其位置存储在数组中，而不是将它们写入文件。事实上，您可以构建一个包含有用信息的字典：

/show {
  5 dict            %% make a dictionary
  begin             %% start it (put it on the dict stack as the current dict)
  /String exch def  %% put the string operand in the dict.
  currentpoint      %% get the current location
  /Y exch def       %% store in the dict
  /X exch def       %%
  currentfont       %% get current font dict
  /FontName get     %% get FontName
  /Font exch def    %% store name in dict
  currentfont       %% copy current dict to operand stack
  end               %% close dictionary and remove from dict stack
  %%
  %% In here, add the newly created dictionary to an array of dictionaries
  %%
} bind def

现在，当您进入“showpage”时，您将拥有一个字体数组和一个带有其属性的字符串片段数组。您可以发出字体，然后写出适当的字体选择标准和字符串以在输出 PostScript 文件中“显示”字符串。

您还可以做更多事情，您可以捕获颜色，您将需要 CTM 以便您可以计算所需的字体大小等等。