一段字符串处理程序

'处理下半部的超链接
  
  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