如何在ms中显示LISP代码

marko_ribar · 发表于 2022-7-5 16:27:33

Grrr，如果您使用的是旧版本的MS Office，您也可以这样做。。。制造*。带有LispTyler的html文件，打开*。html在浏览器中，选择所有内容，按ctrl+C，启动MS Word，按ctrl+V。。。所以复制+粘贴工作，你应该得到彩色文本，如*。html文件。。。

jbreard · 发表于 2022-7-5 16:29:58

你好

我尝试了李的格式化程序，并设法得到了输出。html。结果显然是正确的（我的意思是它是正确的html），因为我可以在Firefox中打开它，但我没有颜色，也没有特定的格式。

经过一些研究，我的理解是，李的代码是指一个单独的。包含所有样式描述的css文件。如果这是正确的，我必须理解如何做出这样的决定。我想做什么就做什么。html显示。是这样吗？

对不起，我不是很清楚。所有这些对我来说都是全新的

雅克

Grrr · 发表于 2022-7-5 16:32:14

Marko，我正在使用MS Office 2013 Pro，但仍然无法正确显示word中的代码（我尝试了各种粘贴特殊选项），它实际上是这样显示的（示例代码）：

copy

<pre>
<span class="brkt">(</span><span class="func">defun</span> C:test <span class="brkt">(</span> <span class="func">/</span> SS i e enx o <span class="brkt">)</span>
 <span class="brkt">(</span><span class="func">if</span> <span class="brkt">(</span><span class="func">setq</span> SS <span class="brkt">(</span><span class="func">ssget</span> <span class="str">"_:L"</span><span class="brkt">))</span>
   <span class="brkt">(</span><span class="func">repeat</span> <span class="brkt">(</span><span class="func">setq</span> i <span class="brkt">(</span><span class="func">sslength</span> SS<span class="brkt">))</span>
     <span class="brkt">(</span><span class="func">setq</span> e <span class="brkt">(</span><span class="func">ssname</span> SS <span class="brkt">(</span><span class="func">setq</span> i <span class="brkt">(</span><span class="func">1-</span> i<span class="brkt">))))</span>
     <span class="brkt">(</span><span class="func">setq</span> enx <span class="brkt">(</span><span class="func">entget</span> e<span class="brkt">))</span>
     <span class="brkt">(</span><span class="func">setq</span> o <span class="brkt">(</span><span class="func">vlax-ename->vla-object</span> e<span class="brkt">))</span>
     <span class="brkt">(</span><span class="func">cond</span> 
       <span class="brkt">(</span> <span class="brkt">(</span><span class="func">vl-some</span> <span class="quot">'</span><span class="brkt">(</span><span class="func">lambda</span> <span class="brkt">(</span>x<span class="brkt">)</span> <span class="brkt">(</span><span class="func">=</span> x <span class="quot">'</span><span class="brkt">(</span><span class="int">0</span> <span class="quot">.</span> <span class="str">"INSERT"</span><span class="brkt">)))</span> enx<span class="brkt">)</span> <span class="brkt">(</span><span class="func">alert</span> <span class="brkt">(</span><span class="func">vla-get-EffectiveName</span> o<span class="brkt">))</span> <span class="brkt">)</span>
       <span class="brkt">(</span>
         <span class="brkt">(</span><span class="func">vl-some</span> 
           <span class="brkt">(</span><span class="func">function</span>
             <span class="brkt">(</span><span class="func">lambda</span> <span class="brkt">(</span>x<span class="brkt">)</span>
               <span class="brkt">(</span><span class="func">=</span> x <span class="quot">'</span><span class="brkt">(</span><span class="int">0</span> <span class="quot">.</span> <span class="str">"TEXT"</span><span class="brkt">))</span>
             <span class="brkt">)</span>
           <span class="brkt">)</span>
           enx
         <span class="brkt">)</span>
         <span class="brkt">(</span><span class="func">alert</span> <span class="brkt">(</span><span class="func">vla-get-TextString</span> o<span class="brkt">))</span>
       <span class="brkt">)</span>
     <span class="brkt">)</span>
   <span class="brkt">)</span>
 <span class="brkt">)</span>
 <span class="brkt">(</span><span class="func">princ</span><span class="brkt">)</span>
<span class="brkt">)</span>
</pre>

或者只是干净的代码，没有格式（没有颜色，没有行索引）-至少保留了选项卡，字面上是这样的：

copy

<pre>
<span class="brkt">(</span><span class="func">defun</span> C:test <span class="brkt">(</span> <span class="func">/</span> SS i e enx o <span class="brkt">)</span>
 <span class="brkt">(</span><span class="func">if</span> <span class="brkt">(</span><span class="func">setq</span> SS <span class="brkt">(</span><span class="func">ssget</span> <span class="str">"_:L"</span><span class="brkt">))</span>
   <span class="brkt">(</span><span class="func">repeat</span> <span class="brkt">(</span><span class="func">setq</span> i <span class="brkt">(</span><span class="func">sslength</span> SS<span class="brkt">))</span>
     <span class="brkt">(</span><span class="func">setq</span> e <span class="brkt">(</span><span class="func">ssname</span> SS <span class="brkt">(</span><span class="func">setq</span> i <span class="brkt">(</span><span class="func">1-</span> i<span class="brkt">))))</span>
     <span class="brkt">(</span><span class="func">setq</span> enx <span class="brkt">(</span><span class="func">entget</span> e<span class="brkt">))</span>
     <span class="brkt">(</span><span class="func">setq</span> o <span class="brkt">(</span><span class="func">vlax-ename->vla-object</span> e<span class="brkt">))</span>
     <span class="brkt">(</span><span class="func">cond</span> 
       <span class="brkt">(</span> <span class="brkt">(</span><span class="func">vl-some</span> <span class="quot">'</span><span class="brkt">(</span><span class="func">lambda</span> <span class="brkt">(</span>x<span class="brkt">)</span> <span class="brkt">(</span><span class="func">=</span> x <span class="quot">'</span><span class="brkt">(</span><span class="int">0</span> <span class="quot">.</span> <span class="str">"INSERT"</span><span class="brkt">)))</span> enx<span class="brkt">)</span> <span class="brkt">(</span><span class="func">alert</span> <span class="brkt">(</span><span class="func">vla-get-EffectiveName</span> o<span class="brkt">))</span> <span class="brkt">)</span>
       <span class="brkt">(</span>
         <span class="brkt">(</span><span class="func">vl-some</span> 
           <span class="brkt">(</span><span class="func">function</span>
             <span class="brkt">(</span><span class="func">lambda</span> <span class="brkt">(</span>x<span class="brkt">)</span>
               <span class="brkt">(</span><span class="func">=</span> x <span class="quot">'</span><span class="brkt">(</span><span class="int">0</span> <span class="quot">.</span> <span class="str">"TEXT"</span><span class="brkt">))</span>
             <span class="brkt">)</span>
           <span class="brkt">)</span>
           enx
         <span class="brkt">)</span>
         <span class="brkt">(</span><span class="func">alert</span> <span class="brkt">(</span><span class="func">vla-get-TextString</span> o<span class="brkt">))</span>
       <span class="brkt">)</span>
     <span class="brkt">)</span>
   <span class="brkt">)</span>
 <span class="brkt">)</span>
 <span class="brkt">(</span><span class="func">princ</span><span class="brkt">)</span>
<span class="brkt">)</span>
</pre>

marko_ribar · 发表于 2022-7-5 16:36:43

隐马尔可夫模型。。。正是我没有的。。。复制+粘贴适用于MS Office 2010，纯打开文件适用于MS Office 2016。。。
所以我不知道如何进一步调查。。。请注意，当我在MS Office 2010中使用纯开放文件时，得到的结果与您相同。。。

Grrr · 发表于 2022-7-5 16:38:46

也许我从LSP2HTML得到了错误的html输出，因为在内部。html文件代码看起来和我发布的第二个完全一样：没有颜色，没有行索引，只是保留了标签。
这就是为什么我问罗恩，他用什么论据来支持李的李。否则我只会责怪我的微软office 2013。

ronjonp · 发表于 2022-7-5 16:42:45

吼叫声

我只是快速地将颜色值硬编码如下：

copy

(lm:lispstyler
   file
   '(("<pre>" "</pre>")
     ;; Container
     ("<font color="black">" "</font>")
     ;; Quotes/Dots
     ("<font color="red">" "</font>")
     ;; Brackets
     ("<font color="gray">" "</font>")
     ;; Multiline Comments
     ("<font color="gray">" "</font>")
     ;; Single Comments
     ("<font color="DarkOrchid">" "</font>")
     ;; Strings
     ("<font color="blue">" "</font>")
     ;; Protected Symbols
     ("<font color="green">" "</font>")
     ;; Integers
     ("<font color="darkgreen">" "</font>")
     ;; Reals
    )
   ".html"
   t
 )