走近以色列 央视 12集:VB同时替换<>为《》咋实现啊?

来源:百度文库 编辑:神马品牌网 时间:2024/05/16 04:42:10
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoWhiteSpace(str)
DoWhiteSpace = Replace((Replace(Replace(str,"<","《"), vbCrlf, "<br>")), chr(32)&chr(32), " ")
End Function
</SCRIPT>
这段代码只能把<换成《...我想同时把<>换成《》怎么换啊?

function DoWhiteSpace(str)
DoWhiteSpace = Replace(Replace(Replace(Replace(str,"<","《"), ">", "》"), vbCrlf, "<br>"), chr(32)&chr(32), " ")
End Function