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

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

阅读更多
上一篇将asp页面转换成html页面
下一篇vb.net线程的创建
想对作者说点什么? 我来说一句

删除字符串某一字符

2009年04月23日 247B 下载

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

关闭
关闭