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中的代码（我尝试了各种粘贴特殊选项），它实际上是这样显示的（示例代码）：
 
<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>

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

 
吼叫声
 
我只是快速地将颜色值硬编码如下：
(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
)
然后将粘贴复制到Word 2016

jbreard 发表于 2022-7-5 16:44:58

非常感谢Ronjonp。这对我来说真的很管用！非常感谢李·麦克的格式化程序：这是一个非常有用（令人印象深刻）的LISP！
 
当做
 
雅克

ronjonp 发表于 2022-7-5 16:49:00

 
你也可以在这里读到。。我处理这件事的方式可能不是最好的方式。

jbreard 发表于 2022-7-5 16:50:04

不过，我很欣慰有了一个功能解决方案。我会研究你的链接和其他人，但目前我很高兴！
 
当做
 
雅克

Grrr 发表于 2022-7-5 16:55:23

谢谢Ron，现在我成功地复制了您得到的结果-中的代码。html输出文件是有颜色和标签的，当我将其复制到word中时，它以相同的方式显示。
只有行编号缺失-你能在你的内部看到它吗。html输出文件还是这只是MS word的一个选项？
页: 1 [2]
查看完整版本: 如何在ms中显示LISP代码