• 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
  • 当前位置: 山茶花美文网 > 校园文章 > 正文

    【如何过滤html中的回车空格】 html代码学习

    时间:2020-05-25来源:山茶花美文网 本文已影响 山茶花美文网手机站

    Function FormatStr(str)

    Dim s1,s2
    If str<>"" then
    str=replace(replace(Trim(str),chr(32)&chr(32),""),chr(9),"")
    DO While (instr(str,">")>0 and instr(str,"<")>0)
    s1=InStr(str,"<")
    s2=Instr(s1,str,">")
    If s1>0 and s2>0 then
    str=replace(str,mid(str,s1,s2-s1+1),"")
    End if
    Loop
    str=replace(replace(str,"<","<"),">",">")
    str=Replace(Replace(Replace(replace(replace(str,chr(13),""),chr(10),""),"""","”"),""","’")," ","")
    FormatStr=str
    Else
    FormatStr=""
    End if
    End Function

    • 【如何过滤html中的回车空格】 html代码学习 相关文章:
    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全