标题:怎么用for加mid把输入的字符依次取出?
只看楼主
无根泉
Rank: 2
等 级:新手上路
威 望:4
帖 子:853
专家分:0
注 册:2004-11-4
 问题点数:0 回复次数:4 
怎么用for加mid把输入的字符依次取出?
aa=request("aa")
a=len(aa)
for i=1 to a-1
b=mid(aa,i,1)
next
%>
<%= b %>
麻烦大家给看看代码那里有错误呀,
总是不能依次取出
要么是第一位,要么是第二们
搜索更多相关主题的帖子: mid 字符 输入 next len 
2005-01-15 16:40
无根泉
Rank: 2
等 级:新手上路
威 望:4
帖 子:853
专家分:0
注 册:2004-11-4
得分:0 
现在行了,刚才又写错了,改时后的代码如下:
<%
aa=request.form("aa")
a=len(aa)
for i=1 to a
b=mid(aa,i,1)
if i mod 1=0 then
response.Write(""&b&""&" """&asc(""&b&"")&"""<br>")
end if
next
%>

我很菜,但我很努力!
2005-01-15 16:50
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
得分:0 
if i mod 1=0 then
为什么加这一句?!

2005-01-16 15:08
无根泉
Rank: 2
等 级:新手上路
威 望:4
帖 子:853
专家分:0
注 册:2004-11-4
得分:0 
<% aa=request.form("aa") a=len(aa) for i=1 to a b=mid(aa,i,1) if i mod 1=0 then response.Write(""&b&""&"&nbsp;"""&asc(""&b&"")&"""<br>") exit for'如果不是字母则退出! end if next %>

我很菜,但我很努力!
2005-01-18 13:38
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
得分:0 

2005-01-19 21:13



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




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

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