标题:循环得到的数组问题
只看楼主
35maoe
Rank: 1
等 级:新手上路
帖 子:341
专家分:0
注 册:2006-8-28
结帖率:100%
 问题点数:0 回复次数:9 
循环得到的数组问题
一个多选的变量i得到结果如下;
i=1,2,3,,5,6,,8
说明第4和第7个没选中。
用哪个函数可以将i结果变为;
i=1,2,3,5,6,8
 
不知表达的对不对,对这些不是太了解,请帮忙,谢谢!!
搜索更多相关主题的帖子: 变量 函数 结果 表达 
2008-05-31 09:56
35maoe
Rank: 1
等 级:新手上路
帖 子:341
专家分:0
注 册:2006-8-28
得分:0 
请帮忙,谢谢,急事...

2008-05-31 10:42
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
得分:0 
<%
i="1,2,3,,5,6,,8"
i=Replace(i,",,",",")
Response.Write(i)
%>
2008-05-31 12:35
35maoe
Rank: 1
等 级:新手上路
帖 子:341
专家分:0
注 册:2006-8-28
得分:0 
如果是多个呢,并不一定是两个啊,

2008-05-31 13:47
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
得分:0 
<%
i="1,2,3,,5,6,,,9,,11,,,,15"
for n=1 to len(i)
if instr(i,",,") then
i=Replace(i,",,",",")
end if
next
Response.Write(i)
%>
2008-05-31 14:05
35maoe
Rank: 1
等 级:新手上路
帖 子:341
专家分:0
注 册:2006-8-28
得分:0 
哈哈,谢谢楼上的,这样可以了
如果左边或右边的第一个字符是,号
要把他替换成空怎么写啊..

谢谢madpbpl,这个再解决就OK了

2008-05-31 14:19
35maoe
Rank: 1
等 级:新手上路
帖 子:341
专家分:0
注 册:2006-8-28
得分:0 
好了,晕,刚才中间有个空格,现在可以了,谢谢..

2008-05-31 14:29
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
while instr(str,",,")
 str=replace(st,",,",",")
wend
if left(str,1)="," then str=right(str,len(str)-1)
2008-05-31 14:37
35maoe
Rank: 1
等 级:新手上路
帖 子:341
专家分:0
注 册:2006-8-28
得分:0 
[bo][un]multiple1902[/un] 在 2008-5-31 14:37 的发言:[/bo]

while instr(str,",,")
 str=replace(st,",,",",")
wend
if left(str,1)="," then str=right(str,len(str)-1)

谢谢multiple1902..你这方法好..

2008-05-31 14:43
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:0 
Dim Str,tStr,TAry,i
Str="1,2,3,,5,6,,8"
tStr=Replace(Str,",,",",Null,")
TAry=Split(tStr,",")
For i=0 To UBound(TAry)
   IF TAry(i)=="Null" Then
      Response.Write "第"&i&"道题没有选中"
   End IF
Next
2008-05-31 23:24



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-216809-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.361864 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved