急:如何得到这样的字符串?

Cybernet 2005-07-18 09:32:06
a,b都是数字字符组成的,带","号分割的字符串,比如:
a="1,2,3,4,5,10,20,30,40,50"
b="1,3,5,10,30,50"

我想得到字符串c是:b在a中出现的,就删除,
相当于:c=a-b
既c="2,4,20,40"

ASP中如何做呀,谢谢!
...全文
74 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
devillicheng 2005-07-18
  • 打赏
  • 举报
回复
同意 peijunfeng(爱缕缕)
在完善一下
<%
a="1,2,3,4,5,10,20,30,40,50"
b="1,3,5,10,30,50"
aArr = Split(a,",")
bArr = Split(b,",")
Dim Flag

For i = 0 To Ubound(aArr)
For j = 0 To Ubound(bArr)
Flag = True
'Response.Write bArr(i) & " " & aArr(j) & "<br>"
If bArr(j) = aArr(i) Then
Flag = False
Exit For
End If
Next
If Flag Then
c = c & aArr(i) & ","
End If
Next
c = Mid(c,1,Len(c)-1)
Response.Write c
%>
hnfz123 2005-07-18
  • 打赏
  • 举报
回复
数组解决,数组的的差
peijunfeng 2005-07-18
  • 打赏
  • 举报
回复
ubound加split函数将a和b分割为两个数组,例如得到数组aArr和bArr,然后比较,赋值给cArr
简要如下:
for i=0 to ubound(aArr)
iflag=0
for j=0 to ubound(bArr)
if aArr(i)=bArr(j) then
iflag=1
end if
next
if iflag<>1 then
cArr=cArr& aArr(i) & ","
end if
next

你可以在此基础上修改,希望对你有帮助

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧