关闭

将字符串中某一字符串替代成其它的字符

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

dim sR
dim iStart,iEnd,sHtm
iStart = instr(1,sA,"product.asp?id=")

sqian = mid(sA,1,iStart-1)

while iStart > 0    
 
 iEnd = instr(iStart,sA,"target")
 shuzi = trim(mid(sA, iStart+15, iEnd - iStart -15))
 lujing = "product/" & shuzi & ".htm "
 
 iStart = instr(iEnd + 6,sA,"product.asp?id=")
 if iStart>0 then
  kongxi = mid(sA,iEnd,iStart-iEnd)
  sR = sR & lujing & kongxi
 else
  zuihou = mid(sA,iEnd,len(sA)-iEnd)
 end if
  
wend

sR = sqian & sR & zuihou

0
0

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