代码之家 › 专栏 › 技术社区 › kjfletch

如何在elisp中使字符串居中?

center padding elisp string

kjfletch · 技术社区 · 16 年前

我想将给定的输入字符串居中对齐到给定的大小,这样生成的字符串两边(左右两侧)都有填充空格。

我要做的代码是:

(defun center-string (string size)
  (let* ((padding (/ (- size (length string)) 2))
         (lpad (+ (length string) padding))
         (lformat (format "%%%ds" lpad))
         (rformat (format "%%%ds" (- size))))
    (format rformat (format lformat string))))

以及一些测试案例:

(center-string "KJF" 10)
 => "   KJF    "
(center-string "KF" 10)
 => "    KF    "
(center-string "0123456789" 10)
 => "0123456789"
(center-string "0123456789" 5)
 => "0123456789"       ; Notice justifcation is ignored as input string too large.

是否有现有的elisp函数来执行此操作或更好的方法?

2 回复 | 直到 16 年前

Trey Jackson 16 年前

不,没有一个现有的EmacsLisp例程可以满足您的需要。(通过emacs lisp info和emacs info进行的标准搜索支持这一点)。

Jouni K. Seppänen 16 年前

有一个 center-line ,在缓冲区中工作(并使用缓冲区的值 fill-column 因此,如果您的目标是生成一个格式良好的文件,您可以执行如下操作

(defun insert-centered (x)
  (insert "\n" x)
  (center-line)
  (insert "\n"))

推荐文章

Aidan · 为什么在将最后一个索引分配给空终止符(\0)后,我无法释放char缓冲区

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

Mehan Alavi · TCP Socket-打印字符串中所有不在C中的字符不起作用

1 年前

Haru Hoshizora · 为什么一个整数的位置没有改变,但值却不同

1 年前

bear_525 · 从列中删除中间名和首字母,并保存在单独的列中

1 年前

asdfadf · 为什么具有相同内存值的字符串和整数打印方式不同?

1 年前

DrakeMurdoch · 统计每行中的字符数,如果所有字符数都低于某个数字,则删除

1 年前

user764754 · 防止多行原始字符串文字中出现新行字符

1 年前

Bogaso · 从列表中返回与模式匹配的元素

1 年前

Jasco · 如何使用VBA提取两个相似字符之间的字符串中的单词?

1 年前