请教ASP遍历的一个小问题

[zr3153136]

a="一,二,三,四,五,六,七"
b="三"

两个字符串组
怎么遍历对比a有没有b
如果有原样输出并在a与b相同的字符串前后加入"'/"
例如 "一,二,/三/,四,五,六,七"

[zr3153136]

兄弟 你这个运行结果 一,二,三/,四,五,六,七 很感谢你 ,不过能否给三前面也加上/ 例如一,二,/三/,四,五,六,七

[hookee]

a = "一,二,三,四,五,六,七"
b = "三"
c = ""
aItems = Split(a, ",")
bItems = Split(b, ",")
For i = 0 To UBound(aItems)
    isFound = False
    For j = 0 To UBound(bItems)
        If aItems(i) = bItems(j) Then
            isFound = True
            Exit For
        End If
    Next
    c = c & aItems(i)
    If isFound Then c = c & "/"
    c = c & ","
Next
If c <> "" Then c = Left(c, Len(c)-1)
Response.Write c

[php_wsd]

a="一,二,三,四,五,六,七" b="三" a = ","&a&"," b = ","&b&"," if(instr(a,b)>0) then response.write "存在" else response.write "不存在"

[zr3153136]

引用

这/你都不会加？还玩毛线啊

自己试试去 猪脑子 你以为在三前面加个/很简单

[yanjie0929]

引用 5 楼 zr3153136 的回复:

引用

这/你都不会加？还玩毛线啊

自己试试去 猪脑子 你以为在三前面加个/很简单

猪脑子,我随便改了下就弄好了，很简单！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

[zr3153136]

引用

引用 5 楼 zr3153136 的回复: 引用 这/你都不会加？还玩毛线啊 自己试试去 猪脑子 你以为在三前面加个/很简单 猪脑子,我随便改了下就弄好了，很简单！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

来!发出你的代码!

[yanjie0929]

引用 3 楼 zr3153136 的回复:

兄弟 你这个运行结果 一,二,三/,四,五,六,七 很感谢你 ,不过能否给三前面也加上/ 例如一,二,/三/,四,五,六,七

这/你都不会加？还玩毛线啊

[Dogfish]

	a="一,二,三,四,五,六,七"
	b="三"
	c = replace(",," & a & ",,", "," & b & ",", ",/" & b & "/,")
	c = replace(c, ",,","")
	response.Write c

[Dogfish]

如果b是多元素的，就先化为数组，然后一个一个置换。

[Dogfish]

	a="一,二,三,四,五,六,七"
	b="一,三,二"
	ar_b = split(b, ",")
	c = ",," & a & ",,"
	for i=0 to ubound(ar_b)
		c = replace(c, "," & ar_b(i) & ",", "," & ar_b(i) & "/,")
	next
	c = replace(c, ",,","")
	response.Write c

[rings2006]

a="一,二,三,四,五,六,七" b="三" a = ","&a&"," b = ","&b&"," if(instr(a,b)>0) then response.write "存在" response.write replace(a,b,"/"&b&"/") else response.write "不存在" end if