关闭

一段字符串处理程序

814人阅读 评论(0) 收藏 举报
'处理下半部的超链接
  
  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
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:77752次
    • 积分:1452
    • 等级:
    • 排名:千里之外
    • 原创:66篇
    • 转载:4篇
    • 译文:0篇
    • 评论:9条
    文章分类
    最新评论