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

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

各位好！

我需要一个能把单行文字按照中间的空格分开的程序lisp

效果如下：

假设原文字为单行TXT：

“bolt 3 set”

转化为三个独立同行单行TXT：

“bolt” “3” “set”

就是原有的单行文字以中间空格为界被断开为三个单行文字中间的空格取消

同时要保持字符位置不变

可以实现么

谢谢各位高手了！期待帮助！

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

可以实现，绝对准确就有难度

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

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

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

_$ (XYP-GET-STR2LST "bolt 3 set")
("bolt" "3" "set")

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

请搜寻
(defun parse ... 2000+
(defun StrParse ... R14

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

虽然还是不懂还是谢谢各位

我想要写好的lsp文件

我不会编程

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

有函数有示例

http://www.augi.com/publications/hotnews.asp?id=757

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

谢谢学习了！

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

(DEFUN C:TEST ()
(LOAD_DOSLIB)
(setq str_lst (DOS_STRTOKENS "bolt 3 set" " "))
(setq 1_str (nth 0 str_lst)) ;;;1_str="bolt"
(setq 2_str (nth 1 str_lst)) ;;;2_str="3"
(setq 3_str (nth 2 str_lst)) ;;;3_str="set"
)

(DEFUN LOAD_DOSLIB (/ AC_VER);←LOAD DOSLIB 函式庫
(SETQ AC_VER (SUBSTR (GETVAR "ACADVER") 1 2))
(IF (NOT DOS_DRIVE)
      (PROGN
       (COND ((AND (= AC_VER "13")(WCMATCH (STRCASE (GETVAR "PLATFORM")) "*DOS*"))
              (XLOAD "DOSLIB13")
             )
             ((= AC_VER "12")(XLOAD "DOSLIB12"))
             (T (ARXLOAD (STRCAT "DOSLIB" AC_VER)))
       )
      )
)
)

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

有没有新的？

账号		自动登录	找回密码
密码			注册

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