关闭

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

6150人阅读 评论(0) 收藏 举报

<%
 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
%>

0
0

  相关文章推荐
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:6812988次
    • 积分:60443
    • 等级:
    • 排名:第44名
    • 原创:462篇
    • 转载:209篇
    • 译文:28篇
    • 评论:1747条
    最新评论