[求助]：(vl-string-right-trim "(4) 200X500" "KL4(4) 200X500"

hewb

(vl-string-right-trim "(4) 200X500" "KL2(4) 200X500") 返回 "KL"
(vl-string-right-trim "(4) 200X500" "KL4(4) 200X500") 返回 "KL"
(vl-string-right-trim "(4) 200X500" "KL1(4) 200X500") 返回 "KL1"
(vl-string-right-trim "(4) 200X500" "KL3(4) 200X500") 返回 "KL3"
是函数的Bug吗？

lazybug

最初由 hewb 发布
[B]另外，对(vl-string-right-trim "1386079" "39CPO is not R2D108267891") 返回 "39CPO is not R2D1082"确实没有理解。 [/B]

就是从字符串"39CPO is not R2D108267891"最右边开始查找看是否有字符串"1386079" 中的“某个字符”，如果有则删除（“1”“9”“8”“7”“6”），然后继续，直到没有（"1386079" 中没有“2”），则停止，返回剩下的字串

Underway

且看 .....
Command: (vl-string-right-trim "(4) 200X500" "KL14(4) 200X500")
"KL1"

Command: (vl-string-right-trim "(4) 200X500" "KL22(4) 200X500")
"KL"

Command: (vl-string-right-trim "(4) 200X500" "KL24(4) 200X500")
"KL"

Command: (vl-string-right-trim "(4) 200X500" "KL222(4) 200X500")
"KL"

Command: (vl-string-right-trim "(4) 200X500" "KL242(4) 200X500")
"KL"

Command: (vl-string-right-trim "(4) 200X500" "KL244(4) 200X500")
"KL"

Command: (vl-string-right-trim "(4) 200X500" "KL444(4) 200X500")
"KL"

lazybug

不是bug，使你对函数的理解有误，该函数功能是“从字符串结尾删除指定字符”，而不是删除“指定字符串”
可以看看函数说明中给的例子


语法

      (vl-string-right-trim character-set string)

功能

      从字符串结尾删除指定字符。

说明

1）参数 character-set 为字符串，列出要删除的字符。

2）参数 string 为字符串，从中删除 character-set。

返回值：

字符串，其中包含删除 character-set 后的所有字符。

样例：

_$ (vl-string-right-trim " \t\n" " lcl \n\t ")

" lcl"

_$ (vl-string-right-trim "1386079" "39CPO is not R2D108267891")

"39CPO is not R2D1082"

_$ (vl-string-right-trim " " "Too many spaces here      ")

"Too many spaces here"

aeo

应该是这样的意思

2. 
   
3. (setq a (vl-string->list "1386079))
   
4. (setq b   (vl-string->list "39CPO is not R2D108267891"))
   
5. (while (member (last b) a)
   
6.   (setq b (reverse(cdr(reverse b))))  ;去掉最后的字符
   
7. )
   
8. (vl-list->string b)
   

<br /> (setq a (vl-string->list "1386079))<br /> (setq b   (vl-string->list "39CPO is not R2D108267891"))<br /> (while (member (last b) a)<br />   (setq b (reverse(cdr(reverse b))))  ;去掉最后的字符<br /> )<br /> (vl-list->string b)<br />

不知道有没有理解错.

雨箭风刀

(vl-string-subst "" "(4) 200X500" "KL2(4) 200X500") 返回 "KL2"
(vl-string-subst "" "(4) 200X500" "KL4(4) 200X500") 返回 "KL4"
(vl-string-subst "" "(4) 200X500" "KL1(4) 200X500") 返回 "KL1"
(vl-string-subst "" "(4) 200X500" "KL3(4) 200X500") 返回 "KL3"

hewb

五楼雨箭风刀的结果就是我想要得到的结果。
谢谢。
是不是用(vl-string-right-trim str1 str2)函数就是搞不掂呢？
另外，对(vl-string-right-trim "1386079" "39CPO is not R2D108267891") 返回 "39CPO is not R2D1082"确实没有理解。

hewb

原来是这样理解。谢谢Lazybug。