28,391
社区成员
发帖
与我相关
我的任务
分享
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
a="一,二,三,四,五,六,七"
b="三"
c = replace(",," & a & ",,", "," & b & ",", ",/" & b & "/,")
c = replace(c, ",,","")
response.Write c
这/你都不会加?还玩毛线啊
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