Code Bank
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
 
User Name:
Password:
Remember me
Go Back   ASP Free ForumsProgrammingCode Bank

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread ASP Free Forums Sponsor:
  #1  
Old February 5th, 2004, 02:21 PM
Rich's Avatar
Rich Rich is offline
Administrator
Developer Shed Admin.
 
Join Date: Sep 2003
Location: Fort Lauderdale, FL
Posts: 152 Rich User rank is Sergeant (500 - 2000 Reputation Level)Rich User rank is Sergeant (500 - 2000 Reputation Level)Rich User rank is Sergeant (500 - 2000 Reputation Level)Rich User rank is Sergeant (500 - 2000 Reputation Level)Rich User rank is Sergeant (500 - 2000 Reputation Level) 
Time spent in forums: 11 h 47 m 28 sec
Reputation Power: 10
Replace words using XML file

This article shows how to pass a string of text from a TEXTBOX server control to a routine that replaces words in the string. This is handy in replacing words before they get committed to the database, email or where ever this text is being sent. A dataset is created to and uses the READXML method to read an XML file into the newly created dataset to compare the words.

Here is the code: <%@ 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>

Reply With Quote
Reply

Viewing: ASP Free ForumsProgrammingCode Bank > Replace words using XML file


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump


Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 





© 2003-2008 by Developer Shed. All rights reserved. DS Cluster 5 hosted by Hostway
Stay green...Green IT