4个回答
展开全部
选中文本框按delete
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
一维数组中
然后对每个元素进行遍历
如果出现相同,去掉
最后把整理后的数组元素再全部显示出来
写好了,你看看
Dim strNum
Dim arrNum
Dim strResult
Dim i,j
strNum = "05,21,01,09,10,11,14,15,23,41,08,26,28,34,35,40,44,48,46,26,46,48,08,28,34,35,36,37,40,42,44,01,03,11,23,05,21,03"
arrNum = Split(strNum,",")
strResult = CStr(arrNum(0))
For i=1 To UBound(arrNum)
If InStr(strResult,arrNum(i)) = 0 Then
strResult = strResult&","&arrNum(i)
End if
Next
Response.Write strResult
测试结果:
05,21,01,09,10,11,14,15,23,41,08,26,28,34,35,40,44,48,46,36,37,42,03
然后对每个元素进行遍历
如果出现相同,去掉
最后把整理后的数组元素再全部显示出来
写好了,你看看
Dim strNum
Dim arrNum
Dim strResult
Dim i,j
strNum = "05,21,01,09,10,11,14,15,23,41,08,26,28,34,35,40,44,48,46,26,46,48,08,28,34,35,36,37,40,42,44,01,03,11,23,05,21,03"
arrNum = Split(strNum,",")
strResult = CStr(arrNum(0))
For i=1 To UBound(arrNum)
If InStr(strResult,arrNum(i)) = 0 Then
strResult = strResult&","&arrNum(i)
End if
Next
Response.Write strResult
测试结果:
05,21,01,09,10,11,14,15,23,41,08,26,28,34,35,40,44,48,46,36,37,42,03
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询