如何去掉字符串制定的字符

[yyh112]

n=1,2,3,4,5,6,12,11,34,23,

制定字符

i=1,11,3,4

最后得到：n=2,5,6,12,34,23,


如果 i=13,
则 报错 字符串N中不包含13

[hookee]

<%
n = "1,2,3,4,5,6,12,11,34,23,"
i = "1,11,3,4,13"

a = Split(n, ",")
Set dic = CreateObject("Scripting.Dictionary")
For k=0 To UBound(a)
    If a(k)<> "" Then dic.Add "_" & a(k), a(k)
Next
a = Split(i, ",")
For k=0 To UBound(a)
    If a(k)<> "" Then
        If dic.Exists("_" & a(k)) Then
            dic.Remove "_" & a(k)
        Else
            Response.Write a(k) & "不存在"
        End If
    End If
Next

items = dic.Items()
Set dic = Nothing
Response.Write "最后得到: " & Join(items, ",")
%>

[yyh112]

谢谢

[lzp4881]

<%
str1="1,2,3,4,5,6,12,11,34,23"
str2="1,11,3,4"
response.write formatStr(str1,str2)
%>
<%
function formatStr(str1,str2)
arr=split(str2,",")
str1=","&str1&","
m=false
for each item in arr
if instr(str1,","&item&",")>0 then
str1=replace(str1,","&item&",",",")
m=true
end if
next
if m then
while instr(str1,",,")>0
str1=replace(str1,",,",",")
wend
str1=left(str1,len(str1)-1)
str1=right(str1,len(str1)-1)
formatStr=str1
else
formatStr="字符串中不包含"&str2
end if
end function
%>