有没有一个这样的处理字符串表的函数

Lisphk

就是有一系列 字符串表，比如：
(
   ("123" "34" "3")
   ("1"  "1" "1")
   ("12" "12345" "1")
)

我把他们写到文件里面，列让他们对齐
123     34           3
1         1             1
12       12345     1

列的最大空白从最长的数后都相等，前面字数小于列最大字符数的补空白

q3_2006

\t 加个制表符就行了...

Lisphk

q3_2006 发表于 2016-10-25 14:24

感谢回复，加制表符，能控制列的间距吗？ 比如我想列的间距是11个空白字符能做到吗？

/db_自贡黄明儒_

可以先格式化

1. (while (< (strlen a) 40)
   
2.       (setq a (strcat a " "))
   
3.     )

(while (< (strlen a) 40)<br />       (setq a (strcat a " "))<br />     )

newer

这个问题应该分两步，
1、算出每列的字符串最大的长度
2、最大长度+列的空白字符长度得到这列的总长度、按照老黄的代码把每列的字符串都格式化到总长

ll_j

还是用\t（制表符）好一些，虽然加空格可以控制位置，但每行是一个完整字串，得不偿失。
制表符在一般的文本浏览工具中默认是8个，少数的的软件可以自主设定制表符的位数，但多数的都不行。
字符长度大于制表符位数时，看上去后面的字串会向后再退一个制表位，显示的不太舒服，但实际上仍旧是对齐的，使用Excel这类软件打开就可以看出，并且不影响使用。

Lisphk

ll_j 发表于 2016-10-25 15:34

谢谢LJ和各位大师指点，我之所以想不同\t, 是因为有时候并不是要写大文件里面，比如：我要把文字画到CAD里面，每列都对齐，列的间距也能控制，这样制表符就做不到了吧？

ll_j

Lisphk 发表于 2016-10-25 15:40

你难道先读到文本文件中，再复制粘贴到cad中？
在cad中写文字应该是直接从表中读取文本，然后根据字符串在表中的“行列”位置算出插入点，再插入文字不是么？

lijiao

2. (defun format-str (ostr len /)
   
3.   (strcat
   
4.     ostr
   
5.     (substr
   
6.       "                                                                                        "
   
7.       1
   
8.       (- len (strlen ostr))
   
9.     )
   
10.   )
    
11. )

(defun format-str (ostr len /)<br />   (strcat<br />     ostr<br />     (substr<br />       "                                                                                        "<br />       1<br />       (- len (strlen ostr))<br />     )<br />   )<br /> )

Lisphk

ll_j 发表于 2016-10-25 15:47

有两个准备，一个是在CAD直接画，把表里面每行每列的字符串格式化好后，把一行的字符串STRCAT起来，写一行文件，其他行同样处理，这样不就屏幕上列都对齐了嘛。

还有一个就是打印到CAD的文本屏幕，一些计算信息，让打印的更漂亮些，不一定非要制表符控制。

ll_j

一般的数据信息8位的制表符是够的，对于有不够的的情况，空格填充是个办法，但设置太多一行写不了几个数字，太少又拥挤，这种情况可以自己写一个函数，参数是列数和列间距，参数可以用表来解决列数变化的问题，例如：(wt '(列数 间距1 间距2 ...))，这样可以根据自己的要求来设置位置。
在cad中直接画还是建议使用单个文本，可以根据字符串的长度来计算间距。
不建议在文本屏幕上直接显示，刷新很快，不便于查看，如果需要可以写入文本文件，用第三方软件阅读。
另：cad本身的对话框显示文本是可以设定制表位长度的，不过使用起来太过麻烦。

sicky111

又学习了。