求个字符串分割函数，删除字符串内相同的部分

[Derekwong]

1、x=ab
2、y=a
3、z=a,b,c,ab

求写一个函数，把x,y的值和z进行比较，删除z字符串中相同的部分。


运行后结果：

1、x=ab
2、y=a

z的值                 结果
a,b,c,ab             b,c
b,a,ac               b,ac
a,ab 

[sh__w]

先将转换为数组,然后遍历z就好了 if(z[i]!=a)x&&z[i]!=y） 打印 z[i]

[sh__w]

是 if( z[i] != x && z[i] != y ） 打印 z[i]

[ASP微信支付 APIV3]

x = "ab"
y = "cd"
z = "a,b,c,ab,cd"

Response.Write sp(z)

Function sp(byval s)
  art = split(s,",")
  dim outstr
  For i = 0 To Ubound(art)
  	If cstr(art(i))<>cstr(x) and cstr(art(i))<>cstr(y) Then
  	  outstr = outstr & "," & art(i)
  	End If
  Next
  sp = mid(outstr,2)
End Function

[csdn_aspnet]

ASP字符串替换函数

Function ReplaceReg(str,patrn,replStr,Ignor)
'=========================================
'参数解释:
'str 原来的字符串
'patrn 要替换的字符串（正则表达式）
'replStr 要替换成的字符串
'Ignor 是否区分大小写(1不区分,0区分)
'=========================================
Dim regEx ' 建立变量。
If Ingor=1 Then Ingor=true else Ingor=false
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = Ignor ' 设置是否区分大小写。
regEx.Global=True
ReplaceReg = regEx.Replace(str,replStr) ' 作替换。
End Function 

ASP字符串替换函数的使用方法 '例如 将 www.qdxw.net 替换成 <a href="http://www.qdxw.net">www.qdxw.net</a> 'Response.Write(ReplaceReg("www.qdxw.net","www\.qdxw\.net","<a href=""http://www.qdxw.net"">www.qdxw.net</a>",1))