以前做的程序的一部分,你可以参考不一下,不知道能不能满足你的要求 (setq fanyihou (vl-string-translate "+-1234567890" "##########" wenzi)) ;翻译字符 (setq weizhi (vl-string-search "#" fanyihou)) ;找出#的位置 (setq qianzhui (substr wenzi 1 weizhi)) ;取出前缀 (setq zimu (substr wenzi (- wenzilen 1))) (setq shuzi (substr wenzi (+ weizhi 1))) ;取出字符串形式的数字 (setq shishu (atoi shuzi)) ;把数字改为实数 |