有关字窜替代的问题

citykunan

(vl-string-subst "to" "in" "go in the cinema in an hour ") 返回

"go to the cinema in an hour "

使用 vl-string-subst 仅替换字符串中第一次出现的子串，如果我想替换所有的子串怎么办？如：我想将“ABDAF”中的阿A都替换成B，成为“BBDBF”，有什么好办法？谢谢。

wdb

利用循环啊

alin

DosLIB or vl-string-translate _$ (dos_strreplace "ABDAF" "A" "B")
"BBDBF"
_$ (dos_strreplace "go in the cinema in an hour" "in" "to")
"go to the ctoema to an hour"
_$ (vl-string-translate "A" "B" "ABDAF")
"BBDBF"
_$

wdb

(setq str "go in the cinema in an hour                 ")


(repeat(strlen str)


        (setq str        (vl-string-subst "to" "in" "go in the cinema in an hour                 ") )


)

雪山飞狐_lzh

楼上的循环会出问题的

alin

_1$ (ST_ReplPattern "go in the cinema in an hour     " "in" "to" nil)
"go to the ctoema to an hour     "

2. ;; ! ***************************************************************************
3. ;; ! ST_ReplPattern
4. ;; ! ***************************************************************************
5. ;; ! Function : Replace a given pattern in a string with another pattern
6. ;; ! Arguments : 'Str'           - String to check
7. ;; !                         'Pat1'         - Pattern to search
8. ;; !                         'Pat2'         - Pattern to replace
9. ;; !                         'CaseSens' - If T, the search will be case-sensitive else no
10. ;; ! Return     : The string after the pattern has been replaced.
11. ;; !                       This is a case-sensitive search and replace
12. ;; ! Updated   : April 23, 2004
13. ;; ! e-mail     : rakesh.rao@4d-technologies.com
14. ;; ! Web           : www.4d-technologies.com
15. ;; ! ****************************************************************************(defun ST_ReplPattern   (Str Pat1 Pat2 CaseSens / newStr pos More len)
16.    (setq
17.        newStr ""
18.        More     T
19.        len       (strlen Pat1)
20.        )   (if CaseSens
21.        (setq _Str Str)
22.        (setq
23.            _Str (strcase Str)
24.            Pat1 (strcase Pat1)
25.            )
26.        )   (while More
27.        (setq pos (ST_FindPattern _Str Pat1))
28.        (if pos
29.            (progn
30.                (setq
31.                    newStr (strcat newStr (substr Str 1 (1- pos)) Pat2)
32.                    Str       (substr Str (+ pos len))
33.                    _Str     (substr _Str (+ pos len))
34.                    )
35.                (if (= Str "")
36.                    (setq More nil)
37.                    )
38.                )
39.            (setq
40.                newStr (strcat newStr Str)
41.                More     nil
42.                ))
43.        )
44.    newStr
45.    )
46. ;; ! ***************************************************************************
47. ;; ! ST_FindPattern
48. ;; ! ***************************************************************************
49. ;; ! Function : Returns the start of a given text pattern in a test string
50. ;; ! Argument : 'Str' - Text String to check
51. ;; !                       'Pat' - Pattern string to search
52. ;; ! Return     : The starting position of the first pattern string, if pattern is
53. ;; !                       found else returns nil.
54. ;; ! Update     : September 21, 1999
55. ;; ! e-mail     : rakesh.rao@4d-technologies.com
56. ;; ! Web           : www.4d-technologies.com
57. ;; ! ****************************************************************************(defun ST_FindPattern   (Str Pat / len1 len2 pos Found _Str)
58.    (setq
59.        len1 (strlen Str)
60.        len2 (strlen Pat)
61.        pos   nil
62.        )   (if (>= len1 len1)
63.        (progn
64.            (setq
65.                Found nil
66.                pos     1
67.                )
68.            (while (not Found)
69.                (setq _Str (substr Str pos len2))
70.                (if (equal _Str Pat)
71.                    (setq Found T)
72.                    (setq pos (1+ pos))
73.                    )
74.                (if (> pos len1)
75.                    (setq
76.                        Found T
77.                        pos nil
78.                        )
79.                    )
80.                )
81.            ))
82.    pos
83.    )

;; ! *************************************************************************** ;; ! ST_ReplPattern ;; ! *************************************************************************** ;; ! Function : Replace a given pattern in a string with another pattern ;; ! Arguments : 'Str'           - String to check ;; !                         'Pat1'         - Pattern to search ;; !                         'Pat2'         - Pattern to replace ;; !                         'CaseSens' - If T, the search will be case-sensitive else no ;; ! Return     : The string after the pattern has been replaced. ;; !                       This is a case-sensitive search and replace ;; ! Updated   : April 23, 2004 ;; ! e-mail     : rakesh.rao@4d-technologies.com ;; ! Web           : www.4d-technologies.com ;; ! ****************************************************************************(defun ST_ReplPattern   (Str Pat1 Pat2 CaseSens / newStr pos More len)    (setq        newStr ""        More     T        len       (strlen Pat1)        )   (if CaseSens        (setq _Str Str)        (setq            _Str (strcase Str)            Pat1 (strcase Pat1)            )        )   (while More        (setq pos (ST_FindPattern _Str Pat1))        (if pos            (progn                (setq                    newStr (strcat newStr (substr Str 1 (1- pos)) Pat2)                    Str       (substr Str (+ pos len))                    _Str     (substr _Str (+ pos len))                    )                (if (= Str "")                    (setq More nil)                    )                )            (setq                newStr (strcat newStr Str)                More     nil                ))        )    newStr    ) ;; ! *************************************************************************** ;; ! ST_FindPattern ;; ! *************************************************************************** ;; ! Function : Returns the start of a given text pattern in a test string ;; ! Argument : 'Str' - Text String to check ;; !                       'Pat' - Pattern string to search ;; ! Return     : The starting position of the first pattern string, if pattern is ;; !                       found else returns nil. ;; ! Update     : September 21, 1999 ;; ! e-mail     : rakesh.rao@4d-technologies.com ;; ! Web           : www.4d-technologies.com ;; ! ****************************************************************************(defun ST_FindPattern   (Str Pat / len1 len2 pos Found _Str)    (setq        len1 (strlen Str)        len2 (strlen Pat)        pos   nil        )   (if (>= len1 len1)        (progn            (setq                Found nil                pos     1                )            (while (not Found)                (setq _Str (substr Str pos len2))                (if (equal _Str Pat)                    (setq Found T)                    (setq pos (1+ pos))                    )                (if (> pos len1)                    (setq                        Found T                        pos nil                        )                    )                )            ))    pos    )

无痕

用find命令不行么？

citykunan

(vl-string-subst "ll" "a" "abb") 返回llbb


(vl-string-translate         "a" "ll" "abb")返回lbb


vl-string-translate好像只能同等位数的字符的转化，我想要vl-string-subst 函数的效果，但是能够替换掉每个字窜。如：(函数 "ll" "abcab") 返回"llbcllb"，有没有这样的函数？谢谢。

alin

_$ ST_ReplPattern "abcab" "a" "ll" nil)
nil
"llbcllb"
_$

citykunan

ok la. thank you very much.