判断是否是母子字符串？（字符串有重复，且位置不同）

alzeng

如果确认是用英文逗号为连接符的话，可以直接获取数组：

1. Function Yn(str1$, str2$)
   
2.     Set oJs = CreateObject("scriptcontrol"): oJs.Language = "rubyscript"
   
3.     Yn = oJs.Eval("a,b=[" & str1 & "],[" & str2 & "];bl=1;b.uniq.each{|o|" _
   
4.                   & "bl=0 if b.count(o)>a.count(o)};(bl==0?'不':'')+'包含';")
   
5.     Set oJs = Nothing
   
6. End Function

复制代码

bluexuemei

alzeng 发表于 2013-5-14 10:32
如果确认是用英文逗号为连接符的话，可以直接获取数组：

膜拜，老师的代码太简洁了！

alzeng

bluexuemei 发表于 2013-5-14 11:08
膜拜，老师的代码太简洁了！

我只是碰巧知道使用数组的count方法而已。

bluexuemei

alzeng 发表于 2013-5-14 11:13
我只是碰巧知道使用数组的count方法而已。

老师太谦虚了，俗话说“熟能生巧”，我第一次也想到用count，后来不知怎么地卡住了就放弃了，希望更多欣赏到老师的RUBY代码！

香川群子

小花鹿 发表于 2013-5-14 00:28
用你的思路，同时取个巧：
Function bb(rng1, rng2)
Dim ar(99)

呵呵，小花鹿的这个算法我最中意！

我写代码的话一定也是这个样子的。

dsmch

bluexuemei 发表于 2013-5-14 11:19
老师太谦虚了，俗话说“熟能生巧”，我第一次也想到用count，后来不知怎么地卡住了就放弃了，希望更多欣赏 ...

RUBY代码，没接触过，能不能链接一下有关知识点？

bluexuemei

http://club.excelhome.net/forum.php?mod=viewthread&tid=571603

sanso

都是高人在讨论。看不懂呀