VB.NET 美化HTML代码

概述Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim web As New Net.WebClient Dim content As String web.Headers("Cont

    Private Sub button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles button1.Click        Dim web As New Net.WebClIEnt        Dim content As String        web.headers("Content-Type") = "application/x-www-form-urlencoded"        web.headers("Referer") = "http://tool.lu/HTML/"        content = web.UploadString("http://tool.lu/HTML/AJAX.HTML","operate=beauty&code=" & Uri.EscapeDataString(RichTextBox1.Text))        content = Replace(content,"{""status"":true,""message"":"""",""text"":""","")        content = Replace(content,"""}","")        content = System.Text.RegularExpressions.Regex.Unescape(content)        RichTextBox1.Text = content    End Sub

总结

以上是内存溢出为你收集整理的VB.NET 美化HTML代码全部内容，希望文章能够帮你解决VB.NET 美化HTML代码所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。