How to Create a Text Manipulation Tool in Visual Basic

Submitted by Yorkiebar on Wednesday, October 16, 2013 - 06:43.

Language

Introduction: Welcome to my tutorial on how to create a Text Manipulation tool in Visual Basic. Steps of Creation: Step 1: First we want to create a form with one button as 'go', textbox1 to contain the text to manipulate, textbox2 to contain the text reversed, textbox3 to contain the text muddled and textbox4 to contain the total characters of the text. Step 2: Now we want to set up our go button. This simply sets the text in the textboxes to the returned string.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    TextBox2.Text = rev(TextBox1.Text)
    doMuddle()
    TextBox4.Text = TextBox1.Text.Count() & " Characters."
End Sub

Step 3: For the reverse function we want to simply run through the characters backwards and return the temporary string.

Private Function rev(ByVal s As String)
    Dim ret As String = Nothing
    Dim i As Integer = s.Count() - 1
      While i > -1
        ret &= s.Chars(i)
        i -= 1
    End While
    Return ret
End Function

Step 4: Finally, for the muddle function we just simply select numbers at random and remove our duplicates.

Private Function doMuddle()
    Dim muddle As String = Nothing
    Dim doneChars As New List(Of Integer)
    Do Until doneChars.Count() - 1 = TextBox1.Text.Count() - 1
        Dim rand As Random = New Random()
        Dim r As Integer = rand.Next(TextBox1.Text.Count())
        Dim isNew As Boolean = True
        For Each n As Integer In doneChars
            If (n = r) Then isNew = False
        Next
          If (isNew) Then
            muddle &= TextBox1.Text.Chars(r)
             doneChars.Add(r)
        End If
    Loop
    TextBox3.Text = muddle
End Function

Project Complete! Below is the full source code and download to the project files.

Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox2.Text = rev(TextBox1.Text)
        doMuddle()
        TextBox4.Text = TextBox1.Text.Count() & " Characters."
    End Sub
 
    Private Function rev(ByVal s As String)
        Dim ret As String = Nothing
        Dim i As Integer = s.Count() - 1
        While i > -1
            ret &= s.Chars(i)
            i -= 1
        End While
        Return ret
    End Function
 
    Private Function doMuddle()
        Dim muddle As String = Nothing
        Dim doneChars As New List(Of Integer)
        Do Until doneChars.Count() - 1 = TextBox1.Text.Count() - 1
            Dim rand As Random = New Random()
            Dim r As Integer = rand.Next(TextBox1.Text.Count())
            Dim isNew As Boolean = True
            For Each n As Integer In doneChars
                If (n = r) Then isNew = False
            Next
            If (isNew) Then
                muddle &= TextBox1.Text.Chars(r)
                doneChars.Add(r)
            End If
        Loop
        TextBox3.Text = muddle
    End Function
End Class

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Add new comment

89 views