一段字符串处理程序
'处理下半部的超链接
  
  dim sV,sD  '有效数据
  dim lStart,lEnd
  
  lStart = instr(1,sR,"product_con.asp")
  if lStart > 0 then
   
   sV = mid(sR,1,lStart-1)
   
   while lStart > 0
    
    lEnd = instr(lStart, sR, chr(34))
    lStart = lEnd-1
    
    while mid(sR,lStart,1)<>"="
     lStart = lStart -1
    wend
    
    sD = mid(sR, lStart + 1  ,lEnd - lStart -1)
    sV = sV & sD & ".htm"
    
    lStart = instr(lEnd,sR,"product_con.asp")
    
    if lStart=0 then
     sLast = right(sR, len(sR) - lEnd + 1)
     sV = sV & sLast
    else
     sV = sV & mid(sR, lEnd, lStart - lEnd)
    end if
    
   wend
    
  end if
阅读更多
想对作者说点什么? 我来说一句

字符串按指定的字符串进行分隔

2008年11月04日 1.78MB 下载

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

不良信息举报

一段字符串处理程序

最多只允许输入30个字

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