<%@ Page Debug="True" Language="vb" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SQLClient" %> <script runat="server">
Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Page.IsPostBack Then
Dim w As String = Request.Form("TextBox1")
Label1.Text = "Statement with Replaced words:<b>" & badWords(w) & "</b>"
End If
End Sub
Function badWords(mytext As String) As String
Dim badWordsDS As New DataSet("Dataset")
Dim myRow As DataRow
badWordsDS.ReadXml(Server.Mappath("badwords.xml"))
Dim ct As Integer
ct = badWordsDS.Tables(0).Rows.Count
label2.text = "Amount of Records in XML file: <b>" & ct.ToString() & "</b>"
For Each myRow In badWordsDS.Tables(0).Rows
mytext = mytext.ToLower.Replace(myRow(0).ToString(), "ReplacementText")
Next
Return mytext
End Function
</script> <html>
<head>
<title>Replace text using XML File</title>
</head>
<body>
<form id="Form1" method="post" runat="server">
<asp:TextBox id="TextBox1" runat="server"></asp:TextBox>
<br />
<asp:Button id="Button1" runat="server" Text="Button"></asp:Button>
<br />
<b>Textbox data</b>
<br />
<asp:Label id="Label1" runat="server">Statement with Replaced words</asp:Label>
<br />
<br />
<b>Amount of records in XML file</b>
<br />
<asp:Label id="Label2" runat="server">Amount of Words in XML file</asp:Label>
</form>
</body>
</html>
XML File used in replacing text <swearwords>
<menu>
<word>badword</word>
</menu>
<menu>
<word>badword2</word>
</menu>
</swearwords>
| 
ASP.NET Export to Excel and Word using VB.NET and C#
