pborregg
asked on
Parse the letters of the alphabet when a user inputs a word....
I need to create a Windows application that contains a single form. The form will have three controls, a textbox, a button displaying the text Parse and a suitable UI control, preferably scrollable, used to display the results. After entering the text and clicking the Parse button, the program should output the number of times each letter in the alphabet occurs in the textbox. Case sensitivity is not required.
For example, if the user enters baaad as the text and hits the Parse Button, the result control should display:
There are 3 A's
There are 1 B's
There are 0 C's
There are 1 D's
There are 0 E's
There are 0 F's
etc...
Any thoughts?
I'd like it in VB.NET if possible, but C#, VB Script or ASP.NET is fine....
For example, if the user enters baaad as the text and hits the Parse Button, the result control should display:
There are 3 A's
There are 1 B's
There are 0 C's
There are 1 D's
There are 0 E's
There are 0 F's
etc...
Any thoughts?
I'd like it in VB.NET if possible, but C#, VB Script or ASP.NET is fine....
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Declare sABC as String
Dim sABC As String = "abcdefghijklmnopqrstuvwxy z"
Dim sABC As String = "abcdefghijklmnopqrstuvwxy
ASKER
Get this error now...
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/racmswebprojectMSSQL/Unti tled-4.asp , line 4, column 9
Dim sABC as String, sLetter, iCount, x, y
--------^
Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 1.0.3705; OfficeLiveConnector.1.3; OfficeLivePatch.0.0)
Page:
GET /racmswebprojectMSSQL/Unti tled-4.asp
Time:
Monday, July 06, 2009, 5:56:24 PM
More information:
Microsoft Support
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/racmswebprojectMSSQL/Unti
Dim sABC as String, sLetter, iCount, x, y
--------^
Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 1.0.3705; OfficeLiveConnector.1.3; OfficeLivePatch.0.0)
Page:
GET /racmswebprojectMSSQL/Unti
Time:
Monday, July 06, 2009, 5:56:24 PM
More information:
Microsoft Support
ASKER
Ok, I'd like this is VB SCRIPT
Does anyone have any idea of what I'm looking for?
Does anyone have any idea of what I'm looking for?
You specifically asked for VB.NET. I coded your routine and it works exactly as you asked. So, the answer is no, I have no idea what your are looking for.
ASKER
Ok, sorry, I believe you... how do I call that button clicked event from the button and code I put above...
Do I need to encapsulate the code you wrote with Sub btnControl_onclick() and End Sub?
Peter
Do I need to encapsulate the code you wrote with Sub btnControl_onclick() and End Sub?
Peter
ASKER
Unified,
What I'm asking for is the entire page code.. I'm new to VB.NET but not new to VB Script.
Thanks,
Peter
What I'm asking for is the entire page code.. I'm new to VB.NET but not new to VB Script.
Thanks,
Peter
I don't know the syntax for the control event methods in vb script but yes, that code goes in the click event of the button.
I'm assuming you are using the designer to place your controls
public class yourformname
Private Sub btnDrawing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrawing.Click
Dim sABC As String = "abcdefghijklmnopqrstuvwxy z"
Dim sLetter As String
Dim iCount As Integer
For x As Integer = 0 To sABC.Length - 1
iCount = 0
sLetter = sABC.Substring(x, 1).ToUpper
For y As Integer = 0 To Me.txtLetterCount.Text.Tri m.Length - 1
If Me.txtLetterCount.Text.Sub string(y, 1).ToUpper = sLetter.ToUpper Then
iCount += 1
End If
Next
Me.lstLetterCount.Items.Ad d("There are " & iCount & Space(1) & sLetter & "'s")
Next
End Sub
end class
public class yourformname
Private Sub btnDrawing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrawing.Click
Dim sABC As String = "abcdefghijklmnopqrstuvwxy
Dim sLetter As String
Dim iCount As Integer
For x As Integer = 0 To sABC.Length - 1
iCount = 0
sLetter = sABC.Substring(x, 1).ToUpper
For y As Integer = 0 To Me.txtLetterCount.Text.Tri
If Me.txtLetterCount.Text.Sub
iCount += 1
End If
Next
Me.lstLetterCount.Items.Ad
Next
End Sub
end class
ASKER
Here's my ASPX page so far...
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="">
<p>
<input type="text" name="textField" id="textField" />
<input type="button" name="btnControl" id="btnControl" value="Parse" onclick="btnClickEvent()" />
</p>
<p>
<textarea name="textBox" id="textBox" cols="45" rows="5"></textarea>
</p>
</form>
</body>
</html>
Do I need a Code Behind Page or can I simply put it on the same page?
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="">
<p>
<input type="text" name="textField" id="textField" />
<input type="button" name="btnControl" id="btnControl" value="Parse" onclick="btnClickEvent()" />
</p>
<p>
<textarea name="textBox" id="textBox" cols="45" rows="5"></textarea>
</p>
</form>
</body>
</html>
Do I need a Code Behind Page or can I simply put it on the same page?
ASKER
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" %>
<%#
public class form1
Private Sub btnControl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnControl.Click
Dim sABC As String = "abcdefghijklmnopqrstuvwxy z"
Dim sLetter As String
Dim iCount As Integer
For x As Integer = 0 To sABC.Length - 1
iCount = 0
sLetter = sABC.Substring(x, 1).ToUpper
For y As Integer = 0 To Me.txtLetterCount.Text.Tri m.Length - 1
If Me.txtLetterCount.Text.Sub string(y, 1).ToUpper = sLetter.ToUpper Then
iCount += 1
End If
Next
Me.lstLetterCount.Items.Ad d("There are " & iCount & Space(1) & sLetter & "'s")
Next
End Sub
end class
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="">
<p>
<input type="text" name="textField" id="textField" />
<input type="button" name="btnControl" id="btnControl" value="Parse" onclick="btnClickEvent()" />
</p>
<p>
<textarea name="textBox" id="textBox" cols="45" rows="5"></textarea>
</p>
</form>
</body>
</html>
<%#
public class form1
Private Sub btnControl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnControl.Click
Dim sABC As String = "abcdefghijklmnopqrstuvwxy
Dim sLetter As String
Dim iCount As Integer
For x As Integer = 0 To sABC.Length - 1
iCount = 0
sLetter = sABC.Substring(x, 1).ToUpper
For y As Integer = 0 To Me.txtLetterCount.Text.Tri
If Me.txtLetterCount.Text.Sub
iCount += 1
End If
Next
Me.lstLetterCount.Items.Ad
Next
End Sub
end class
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="">
<p>
<input type="text" name="textField" id="textField" />
<input type="button" name="btnControl" id="btnControl" value="Parse" onclick="btnClickEvent()" />
</p>
<p>
<textarea name="textBox" id="textBox" cols="45" rows="5"></textarea>
</p>
</form>
</body>
</html>
ASKER
It's throwing an error:
Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.
Compiler Error Message: BC30201: Expression expected.
Source Error:
Line 3:
Line 4:
Line 5: Public Class Form1 <-- HERE
Line 6:
Line 7: Private Sub btnControl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnControl.Click
Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.
Compiler Error Message: BC30201: Expression expected.
Source Error:
Line 3:
Line 4:
Line 5: Public Class Form1 <-- HERE
Line 6:
Line 7: Private Sub btnControl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnControl.Click
Not sure, but waaay off the question now
ASKER
Technical Information (for support personnel)
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'abcdefghijklmnopqrst'
/racmswebprojectMSSQL/Unti
Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 1.0.3705; OfficeLiveConnector.1.3; OfficeLivePatch.0.0)
Page:
GET /racmswebprojectMSSQL/Unti
Time:
Monday, July 06, 2009, 4:36:41 PM
More information:
Microsoft Support
Open in new window