yatoons 发表于 2010-8-30 00:45:00

[求助]单行文字按照中间的空格分开的程序lisp

各位好！<div><br/><div>我需要一个能把单行文字按照中间的空格分开的程序lisp</div><div><br/></div><div>效果如下：</div><div><br/></div><div>假设原文字为单行TXT：</div><div><br/></div><div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;“bolt &nbsp; &nbsp;3 &nbsp; &nbsp;set”</div><div><br/></div><div>转化为三个独立同行单行TXT：</div><div>&nbsp;&nbsp; &nbsp; &nbsp; “bolt” &nbsp; “3” &nbsp; “set”</div><div><br/></div><div>就是原有的单行文字以中间空格为界被断开为三个单行文字 &nbsp; &nbsp;中间的空格取消</div><div><br/></div><div>同时要保持字符位置不变</div><div><br/></div><div>可以实现么</div><div><br/></div><div><br/></div><div>谢谢各位高手了！期待帮助！</div></div>

cauin 发表于 2010-8-30 00:52:00

&nbsp;可以实现，绝对准确就 有难度<br/>

yatoons 发表于 2010-8-30 11:43:00

谁能帮我设计一段lsp么 要用 谢谢了

xyp1964 发表于 2010-8-30 13:09:00

<font face="Verdana">_$ (XYP-GET-STR2LST "bolt&nbsp;&nbsp;&nbsp; 3&nbsp;&nbsp;&nbsp; set")<br/>("bolt" "3" "set")</font>

Andyhon 发表于 2010-8-30 13:15:00

<font style="BACKGROUND-COLOR: #ffffff" face="Verdana">请搜寻<br/>(defun parse&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ... 2000+ <br/>(defun StrParse&nbsp;&nbsp;&nbsp; ... R14 </font>

yatoons 发表于 2010-8-31 00:41:00

虽然还是不懂 还是谢谢各位 &nbsp;<div><br/></div><div>我想要写好的lsp文件</div><div><br/></div><div>我不会编程</div>

Andyhon 发表于 2010-8-31 08:29:00

<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">有函数 有示例</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"><a href="http://www.augi.com/publications/hotnews.asp?id=757">http://www.augi.com/publications/hotnews.asp?id=757</a></font></p>

yatoons 发表于 2010-9-1 01:15:00

谢谢学习了！

plan 发表于 2010-9-1 20:56:00

<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(DEFUN C:TEST ()<br/>&nbsp; (LOAD_DOSLIB)<br/>&nbsp; (setq str_lst (DOS_STRTOKENS "bolt&nbsp; 3&nbsp;&nbsp;&nbsp;&nbsp; set" " "))<br/>&nbsp; (setq 1_str (nth 0 str_lst)) ;;;1_str="bolt"<br/>&nbsp; (setq 2_str (nth 1 str_lst)) ;;;2_str="3"<br/>&nbsp; (setq 3_str (nth 2 str_lst)) ;;;3_str="set"<br/>)</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(DEFUN LOAD_DOSLIB (/ AC_VER);←LOAD DOSLIB 函式庫<br/>&nbsp; (SETQ AC_VER (SUBSTR (GETVAR "ACADVER") 1 2))<br/>&nbsp; (IF (NOT DOS_DRIVE)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (PROGN<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COND ((AND (= AC_VER "13")(WCMATCH (STRCASE (GETVAR "PLATFORM")) "*DOS*"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (XLOAD "DOSLIB13")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= AC_VER "12")(XLOAD "DOSLIB12"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (T (ARXLOAD (STRCAT "DOSLIB" AC_VER)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>)</font></p>

freeok 发表于 2013-11-21 21:57:57

有没 有新的？
页: [1]
查看完整版本: [求助]单行文字按照中间的空格分开的程序lisp