[求助]：急求一次对多个字符串文本中某位进行相同运算的程序

SONG421

如
F-203-1改为F-203-2
F-203-3改为F-203-4
F-203-5改为F-203-4
或
-48-改为-49-
-36-改为-37-
-24-改为-25-

哪位高手帮帮忙

SONG421

具体要求已修改，见一楼，请指点

jiang820408

用lisp比较好修编.下面这个程序是我编了加度分秒的,你改一下就可以实现了!
(defun c:mladfm ( / p p1 p2 k k1 k2 ss1 index num name ent oldlist newlist
              gs strs str1 str2 str3 conlist cmd)
  (setvar "cmdecho" 0)
  (setq p 1)
  (setq p1 3)
  (setq p2 4)
      
  (princ "\n选择要编辑的文本:")
  (setq ss1 (ssget (list (cons 0 "text"))))
  (setq index 0)
  (setq num (sslength ss1))
  
  (repeat num
    (setq name(ssname ss1 index))
    (setq ent(entget name))
    (setq oldlist(assoc 1 ent))
    (setq str (cdr oldlist))
    (setq gs (strlen str)) ;;;求出字符串长度
    (setq k(- gs p2))
    (setq k1(- gs p1))
    (setq k2(- gs p))
      
    (setq str1(substr str 1 k));;;划分出度的位数及字符串
    (setq str2(substr str k1 2));;;划分出分的位数及字符串
    (setq str3(substr str k2 2)) ;;;划分出秒的位数及字符串

    (setq strs (strcat "α=" str1 "°" str2 "′" str3 "″"))
    ;;;连接字符串
    (setq conlist (cons (car oldlist) strs)) ;;;新建元素表
    (setq newlist (subst conlist oldlist ent));;;替换文本内容
    (entmod newlist);;;刷新
    (setq index(1+ index))
   )
  (setvar "cmdecho" 1)
  (princ)
  )

小玩童

我想问问楼主，修改格式就这两种吗？