用法
评论
建议
取 消
确 定
(defun string:number-format (str-num int-n int-fraction str-fill / lst-num part-int part-fraction) "格式化数字输出。使输出的字符串长度一致。参数: str-num:数字字符串,int-n,整数位数,int-fraction:小数位数,str-fill:填充字符" "字符串" "(string:number-format \"5.3\" 3 3 \"0\") = > \"005.300\"" (if (numberp str-fill) (setq str-fill (rtos str-fill 2 0))) (setq str-file (chr (ascii str-fill))) (setq lst-num (string:to-list str-num ".")) (setq part-int (car lst-num)) (setq part-fraction (cadr lst-num)) (repeat (- int-n (strlen part-int)) (setq part-int (strcat str-fill part-int))) (if part-fraction (repeat (- int-fraction (strlen part-fraction)) (setq part-fraction (strcat part-fraction str-fill))) (progn (setq part-fraction "") (repeat int-fraction (setq part-fraction (strcat part-fraction str-fill))))) (if (= "" part-fraction) (strcat part-int) (strcat part-int "." part-fraction)))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 725 个
函数库类别: 50 种
上传记录
刷新