ASP 合并数组
<%str1=array("ASP字典")str2=array("PHP字典")str3=array("JSP字典")result=array_merge(str1,st...
<%
str1=array("ASP字典")
str2=array("PHP字典")
str3=array("JSP字典")
result=array_merge(str1, str2, str3)
for i=0 to ubound(result)
response.Write(result(i) )
next
%>
貌似那个array_merge函数不对啊,请问一下各位大侠应该怎么写呢? 展开
str1=array("ASP字典")
str2=array("PHP字典")
str3=array("JSP字典")
result=array_merge(str1, str2, str3)
for i=0 to ubound(result)
response.Write(result(i) )
next
%>
貌似那个array_merge函数不对啊,请问一下各位大侠应该怎么写呢? 展开
3个回答
展开全部
我收集的一段代码,你修改下也许可以实现。
除去数组中重复的内容
<%
'除去数组中重复的内容
Dim NewArr()
ReDim Preserve NewArr(0)
NewArr(0) = oldArr(0)
for i = 1 to UBound(oldArr)
MatchArray = Filter(NewArr, oldArr(i), True,1)
iRepeatFlag = 1
For j = 0 To UBound(MatchArray)
iRepeatFlag = StrComp(oldArr(i), MatchArray(j), 1)
'一旦发现重复,立刻退出循环
If iRepeatFlag = 0 Then
Exit For
End If
Next
If IsNull(iRepeatFlag) Then iRepeatFlag = 2
If iRepeatFlag <> 0 Then
ReDim Preserve NewArr(UBound(NewArr) + 1)
NewArr(UBound(NewArr)) = oldArr(i)
End If
next
'显示除去重复内容后的结果
for each a in NewArr
response.write a&"<br>"
next
%>
除去数组中重复的内容
<%
'除去数组中重复的内容
Dim NewArr()
ReDim Preserve NewArr(0)
NewArr(0) = oldArr(0)
for i = 1 to UBound(oldArr)
MatchArray = Filter(NewArr, oldArr(i), True,1)
iRepeatFlag = 1
For j = 0 To UBound(MatchArray)
iRepeatFlag = StrComp(oldArr(i), MatchArray(j), 1)
'一旦发现重复,立刻退出循环
If iRepeatFlag = 0 Then
Exit For
End If
Next
If IsNull(iRepeatFlag) Then iRepeatFlag = 2
If iRepeatFlag <> 0 Then
ReDim Preserve NewArr(UBound(NewArr) + 1)
NewArr(UBound(NewArr)) = oldArr(i)
End If
next
'显示除去重复内容后的结果
for each a in NewArr
response.write a&"<br>"
next
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
没有array_merge这个函数,ASP里合并数组用的是join,格式是join(arr,",")这种,其中arr是数组名,","表示数组里的数据之间用逗号分隔开.希望对你有帮助
追问
还是不对啊,这句话应该怎么写啊?
result=array_merge(str1, str2, str3) 改成什么才对啊?
追答
result=join(str1,",")&","&join(str2,",")&","&join(str3,",") 连接起来就行了
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
array_merge()可能是自定义函数
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询