用法
评论
建议
取 消
确 定
(defun string:align-by-length (str len / flag) "将字节长度小于 len 的字符串前后增加空格,使其长度等于 len。可用于DCL中的字符对齐。" "String" "(string:align-by-length \"abc\" 8) => \" abc \"" (if (null str) (setq str "")) (setq flag nil) (while (< (string:bytelength str) len) (if flag (setq str (strcat " " str)) (setq str (strcat str " "))) (setq flag (not flag))) str)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新