|
Dim s As String = ClipBoard.GetText()
Dim strText As String = System.Text.RegularExpressions.Regex.Replace(s, "<br>|<BR>|<br/>|<BR/>", chr(11))
strText = System.Text.RegularExpressions.Regex.Replace(strText, "<p>|<P>", chr(254))
strText = System.Text.RegularExpressions.Regex.Replace(strText, "</p>|</P>", chr(255))
strText = System.Text.RegularExpressions.Regex.Replace(strText, "<[^>]+?>", "")
strText = System.Text.RegularExpressions.Regex.Replace(strText, chr(11), "<br/>")
strText = System.Text.RegularExpressions.Regex.Replace(strText, chr(254), "<p>")
strText = System.Text.RegularExpressions.Regex.Replace(strText, chr(255), "</p>")
msgbox(strText)
|
加好友 
发短信
Post By：2018/7/6 8:55:00 [只看该作者]
