;;飞诗词库扩展---文字递增StrStepFun
(defun StrStepFun (str n / real s1 s2 s2+)
  (cond	((wcmatch str "*@")
	 (setq s1 (substr str 1 (1- (strlen str))))
	 (setq s2 (substr str (strlen str)))
	 (setq s2+ (+ n (ascii s2)))
	 (cond ((wcmatch (chr s2+) "@"))
	       ((> s2+ (ascii "z")) (setq s2+ 97)) ;122
	       ((> s2+ (ascii "Z")) (setq s2+ 65)) ;90
	 )
	 (strcat s1 (chr s2+))
	)
	((wcmatch str "*#")
	 (setq s1 "")
	 (while	(not (numberp (vl-catch-all-apply 'read (list str))))
	   (setq s1 (strcat s1 (substr str 1 1)))
	   (setq str (substr str 2))
	 )
	 (setq real (fsxm-tostring (+ n (read str))))
	 (strcat s1 real)
	)
	(t str)
  )
)