阿信 郭碧婷:VB替换<>为《》咋实现啊？

来源：百度文库 编辑：高校问答 时间：2024/05/05 04:17:53
<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)
Dim strTemp
strTemp = Replace(str, chr(32) & chr(32), " ")
strTemp = Replace(strTemp, vbCrlf, "<br>")
strTemp = Replace(strTemp, "<", "《")
strTemp = Replace(strTemp, ">", "》")
DoWhiteSpace = strTemp
End Function

DoWhiteSpace = Replace((Replace(Replace(str,"<","《"), vbCrlf, "<br>")), chr(32)&chr(32), " ")
这句不就是把<换成《么？？？换一下不就可以了
DoWhiteSpace = Replace((Replace(Replace(str,">","》"), vbCrlf, "<br>")), chr(32)&chr(32), " ")

VB替换<>为《》咋实现啊？ VB同时替换<>为《》咋实现啊？ 如何在检查输入的内容时把所有的换行符替换为<br> 如何用$***$来替换asp语言中的<%=***%> c#如何实现字符串“<.....>”（.....代表任意字符）为空字符串“” VB中如何实现自动关机和待机>>>>>>>>>>>> VB中如何实现自动待机>>>>>>>>>>> 自考中<大学语文(本)>可否替换<大学语文(专)> 行政管理专科中<政治经济学>可否替换<政治学概论> VB中，什么是<形参>什么是<实参>？