冯立彬的博客

关注性能、效率、大型网站架构及分布式应用

写的一个字符串折分函数,并将结果存于数组中

<%
 dim id_array(20)
 dim total_id
 total_id=0
 Sub InterceptString(txt,str)
  txt=trim(txt)
        x = len(txt)
        y = 0
        tempStr=""

        if x >= 1 then
         for ii = 1 to x
    if mid(txt,ii,1)=str then
     id_array(y)=tempStr
     y=y+1
     tempStr=""
    else
     tempStr=tempStr+mid(txt,ii,1)
    end if
   next
  end if
  id_array(y)=tempStr
  total_id=y
 End Sub
%>

阅读更多
个人分类: ASP应用
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭