zoukankan      html  css  js  c++  java
  • ASP去除所有html标签

    ASP去除所有html标签

    
    function nohtml(str)   
    	dim re   
    	Set re=new RegExp   
    	re.IgnoreCase =true   
    	re.Global=True   
    	re.Pattern="(<.[^<]*>)"   
    	str=re.replace(str," ")   
    	re.Pattern="(</[^<]*>)"   
    	str=re.replace(str," ")   
    	nohtml=str   
    	set re=nothing   
    end function
    
    Function delHtml(strHtml) '做了一个函数名叫delhtml
    
    	Dim objRegExp, strOutput
    	Set objRegExp = New Regexp ' 建立正则表达式
    
    	objRegExp.IgnoreCase = True ' 设置是否区分大小写
    	objRegExp.Global = True '是匹配所有字符串还是只是第一个
    	objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式,用来找出html标签
    
    	strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉
    	strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示
    	strOutput = Replace(strOutput, ">", ">") 
    	delHtml = strOutput
    
    	Set objRegExp = Nothing
     
    End Function
    
    
    Function RemoveHtml(byval strContent)
    	Dim objReg ,strTmp
    	If strContent="" OR ISNull(strContent) Then Exit Function
    
    	Set objReg=new RegExp
    	objReg.IgnoreCase =True
    	objReg.Global=True
    	objReg.Pattern="<(.[^>]*)>"
    	strTmp=objReg.Replace(strContent, "|")
    	Set objReg=Nothing
    	RemoveHtml=strTmp
    	strTmp=""
    End Function
    
    
    str="你好fsdgoijut%%$015$%%fefw%#$fw"
    chkstartstr = "%%$" '前边的标示字符串
    chkendstr = "$%%" '后边的标示字符串
    startstr = InStr(str,chkstartstr) + len(chkstartstr) '找到开始位置
    endstr = InStr(str,chkendstr) '找到结束位置
    censtr = Mid(str,startstr,endstr - startstr) '截取字符串
    
    
    
    正因为来之不易,所以才有了后来的倍加珍惜。
  • 相关阅读:
    Win10 UWP Tile Generator
    Win10 BackgroundTask
    UWP Tiles
    UWP Ad
    Win10 build package error collections
    Win10 八步打通 Nuget 发布打包
    Win10 UI入门 pivot multiable DataTemplate
    Win10 UI入门 导航滑动条 求UWP工作
    UWP Control Toolkit Collections 求UWP工作
    Win10 UI入门 SliderRectangle
  • 原文地址:https://www.cnblogs.com/jjxhp/p/10159698.html
Copyright © 2011-2022 走看看