[RESOLVED] Character removal

Hi all

Im stuck on a bit of code and looking for a bit of help.
I need (i think) a for loop to analyse a string and remove all non alpha characters from it.

Something like:
Input text "today is my 21st birthday"
result "todayismustbirthday"

I assume Id need a loop to look at each character starting at index 0 and steping by 1 each time.
The loop would then take the value of all the characters (alpha) and write them to a result string.

Can anyone help?

thanks

Firstly, the CodeBank forums are for sharing code samples, not for asking questions. I've asked the mods to move this thread to the appropriate forum.

As for the question, there are various specific ways it could be done and this is just one. You can treat the original String basically as a Char array and loop through it with For Each loop. You can use the Char.IsLetter method to pick out the letters and add just them to another String. At the end of the loop, that other String will contain just the letters from the first String.

Thanks Jmcilhinnery

Thread moved from the 'CodeBank VB.Net' forum (which is for you to post working code examples, not questions) to the 'VB.Net' forum

Is this homework by any chance ?

Some past paper questions. Leading to an exam next summer.
I dont have the soultions part of the paper.
Have you any different approach to the solution other than the others mentioned.
I'd like to know a few different solutions for each problem.

Some past paper questions. Leading to an exam next summer.
I dont have the soultions part of the paper.
Have you any different approach to the solution other than the others mentioned.
I'd like to know a few different solutions for each problem.

This is the same as

http://www.vbforums.com/showthread.php?702009-Methods

Where you have been given two suggestions already.

Thanks for all the comments

Figured it out in the end and even got it running in a console(big step for me) :)

Dim result As String
Dim input As String
result = ""
input = "Happy Birthday!"

For i As Integer = 0 To input.Length - 1 Step 1
If Char.IsLetter(input(i)) Then
Convert.ToString(input(i))
result = result + input(i)
End If
Next
result = result.ToLower
Console.WriteLine(result)

Quote:

---

Originally Posted by vbiskillingme

Thanks for all the comments

Figured it out in the end and even got it running in a console(big step for me) :)

Dim result As String
Dim input As String
result = ""
input = "Happy Birthday!"

For i As Integer = 0 To input.Length - 1 Step 1
If Char.IsLetter(input(i)) Then
Convert.ToString(input(i))
result = result + input(i)
End If
Next
result = result.ToLower
Console.WriteLine(result)

---

Pretty much what was given to you by .paul. here http://www.vbforums.com/showthread.p...=1#post4297785

A generalized approach that allows for more discretion in what is kept.

Code:

---

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim inpstring As String = "Today is my 21st birthday!"
        Dim result As String = certainCharsOnly(inpstring, True)
    End Sub

    Dim keepThese As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"

    Private Function certainCharsOnly(inp As String, Optional lower As Boolean = False) As String
        Dim rv As String = ""
        For Each c As Char In inp
            If keepThese.IndexOf(c) <> -1 Then
                rv &= c
            End If
        Next
        If lower Then Return rv.ToLower Else Return rv
    End Function

---

Or simply a one liner as shown here which if needed you could add things like period etc. too.

Thanks Guys

I'll give each of them a try and step throught the code to see how each one works.