| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 710 人关注过本帖
标题:循环得到的数组问题
只看楼主 加入收藏
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
快速回复:循环得到的数组问题
数据加载中...
 
   



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

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