lisp routin的帮助

hosyn · 发表于 2022-7-5 22:39:18

嗨，伙计们，我需要打开一个名为test的文件。txt，并为此文件的每一行添加


1-find "A" in the file and replace with "AA".
2-added string "xxxxxxxx" in ahead of each line.
3-added "yyyyyy" in the end of each line .

感谢任何帮助8）

hmsilva · 发表于 2022-7-5 22:43:34

单向

copy


(setq a (open "X:\\Your\\Path\\test.txt" "r"))
(while (setq b (read-line a))
 (setq c (cons b c))
);; while
(close a)
(foreach x c
 (if (wcmatch x "*A*")
   (progn
     (setq i 0)
     (while (setq i (vl-string-search "A" x i))
(setq x (vl-string-subst "AA" "A" x i))
(setq i (+ i 2))
     );; while
   );; progn
 );; if
 (setq        x (strcat "xxxxxxxx" x "yyyyyy")
d (cons x d)
 );; setq
);; foreach
(setq a (open "X:\\Your\\Path\\test.txt" "w"))
(foreach x d
 (write-line x a)
);; foreach
(close a)

希望有帮助
亨里克

hosyn · 发表于 2022-7-5 22:46:48

所以XXXXX hmsilva
第2、3项操作OK，但第1项表现不好，且“A”没有变化，

hmsilva · 发表于 2022-7-5 22:49:16

你确定吗？
具有
A测试e测试AA A
测试B A
测试A B和C
运行代码后
XXXXXXXX AA测试e测试AAAA AA AAAYYYYY
XXXXXXXX测试B AAYYYYY
XXXXXXXX测试AA B和CYYYYY

亨里克

hosyn · 发表于 2022-7-5 22:54:13

好的，再次测试，一切正常
thanxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx:）

hmsilva · 发表于 2022-7-5 22:55:12

不客气，霍辛
很高兴我能帮忙

亨里克

hosyn · 发表于 2022-7-5 22:59:11

如果我在bat文件中有这个dos命令，有没有办法更改为lisp rotine？///？

copy


dir/b/oN/A-H    *.LSP >uu(LSP).LSP

BIGAL · 发表于 2022-7-5 23:02:42

在这里搜索这两个lisp命令getfield和Findfile，你会发现一些例子可以做你想做的事情，我知道你想做的。lsp A-H您可能需要删除列表，因为我认为这两种方法将为您提供所有内容，但这很容易查看文件名的第一个字符。

hosyn · 发表于 2022-7-5 23:07:27

hmsilva公司
一切正常，直到我想改变特殊角色”和括号

hosyn · 发表于 2022-7-5 23:08:28

hmsilva公司
一切正常，直到我想更改特殊字符和括号
在这种情况下，lisp不匹配：？

copy


(foreach x c
 (setq        x (strcat "[u](load "C:\\000-lisp1\\[/u]" x "[u] " "MyLISP Failed to Load")[/u]")
d (cons x d)
 );; setq
);; foreach

[编程交流] lisp routin的帮助

发表回复

精选推荐