去处HTML的函数

最新推荐文章于 2026-01-01 20:08:21 发布

原创最新推荐文章于 2026-01-01 20:08:21 发布 · 800 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#html #vbscript #function #javascript #null #url

博客提供了JavaScript实例参考网站，包含VBScript函数用于清除HTML标签，还给出Java代码实现HTML代码屏蔽，将特殊字符进行替换处理，涉及JavaScript、VBScript、Java等信息技术内容。

javascript实例参考网站
http://www.jxyc.gov.cn/blog/withwolf/index.asp?vt=default&page=14

<SCRIPT LANGUAGE="VBScript">
Function ClearHTML(jnkcV)
    Dim jnkcTmp,jnkcRegExp
    jnkcTmp = jnkcV & ""
    Set jnkcRegExp = new RegExp
    jnkcRegExp.Global = True
    jnkcRegExp.Pattern = "(/[[^/]]*/])"
    jnkcTmp = jnkcRegExp.Replace(jnkcTmp,"")
    jnkcRegExp.Pattern = "(<[^>]*>)"
    jnkcTmp = jnkcRegExp.Replace(jnkcTmp,"")
    Set jnkcRegExp = Nothing
    ClearHTML = jnkcTmp
End Function
MsgBox ClearHTML("[url]http://www.xiaobin.net[/url] <a href=#>Withwolf</a>")
</SCRIPT>


     //html代码屏蔽
     public  static String filterStr(String str){
               if(str==null)return null;
            StringBuffer sb = new StringBuffer();
           int n = str.length();
           for (int i = 0; i < n; i++) {
                  char c = str.charAt(i);
                  switch (c) {
                          case ' ': sb.append(" ");break;
                    case '':sb.append("<br/>");break;
                    case '/'':sb.append("'");break;

                    case '<': sb.append("<"); break;
                    case '>': sb.append(">"); break;
                    case '&': sb.append("&"); break;
                    case '"': sb.append("""); break;
                    default:  sb.append(c);
              }
        }
        return sb.toString();
    }