Imports System.IO
 
Public Class Form1
 
    Private Sub AbrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbrirToolStripMenuItem.Click
        Dim myStream As Stream = Nothing
 
        Dim openFileDialog1 As New OpenFileDialog()
        With openFileDialog1 'dando las características al archivo que abriremos
            .InitialDirectory = "c:\" 'directorio inicial
            .Filter = "Archivos txt (*.txt)|*.txt|Todos los Archivos (*.*)|*.*" 'archivos que podra abrir
            .FilterIndex = 1 'indexe del archivo de lectura por defecto
            .RestoreDirectory = False 'restaurar directorio default al abrir de nuevo
            .Multiselect = False 'cancelando la multiple seleccion
            .Title = "Selecciona un Archivo de Texto" 'titulo de la ventana
        End With
        'si se encontro el archivo
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
                'abrir el archivo
                myStream = openFileDialog1.OpenFile()
                If (myStream IsNot Nothing) Then 'si no es nulo
                    LoadToRichTextBox(myStream) 'que desamos hacer con el archivo
                End If
            Catch Ex As Exception
                MessageBox.Show("No se puede leer el archivo del disco. Error original: " & Ex.Message)
            Finally
 
                'comprobar esto de nuevo, ya que tenemos que asegurarnos de que no se produzca una excepcion cuando este abierto
                If (myStream IsNot Nothing) Then 'si no se escogio nada entonces
                    myStream.Close() 'cerrar el streaming de datos
                End If
            End Try
        End If
    End Sub
    Private Sub GuardarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarToolStripMenuItem.Click
 
        Dim SaveFileDialog1 As New SaveFileDialog()
        With SaveFileDialog1
            .InitialDirectory = "c:/" 'directorio inicial
            .CheckFileExists = True 'checar primero si el archivo no existe primero
            .CheckPathExists = True 'checar si la ruta de acceso existe
            .Filter = "Archivos txt (*.txt)|*.txt|Todos los Archivos (*.*)|*.*"
            .FilterIndex = "1"
            .RestoreDirectory = False
            .Title = "Guardar Archivo de Texto"
        End With
        ' si la ventana de diaologo esta abierta y el resultado es positivo
        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim bAppendToFile As Boolean = False
            'se guarda todo el texto, nombre, y de donde se va a guardar
            My.Computer.FileSystem.WriteAllText( _
                SaveFileDialog1.FileName, RichTextBox2.Text, bAppendToFile)
        End If
 
    End Sub
    Private Sub LoadToRichTextBox(ByVal myStream As Stream)
        Dim myStreamReader As StreamReader = New StreamReader(myStream)
 
        Me.RichTextBox1.Clear() 'limpiando el RichTextBox
        'hacemos un while para leer de principio a fin el archivo de texto
        While myStreamReader.Peek() >= 0
            Dim str As String = myStreamReader.ReadToEnd
            Me.RichTextBox1.Text = str.ToLower
        End While
 
    End Sub
    Private Sub TabPage2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabPage2.VisibleChanged
        'wtf como uso esto
        'rtbString.Replace(".", "")
        'txtString.Replace(".", "")
 
        Dim WordList As New List(Of String) 'Esto contendra nuestra lista ordenada cuando haya terminado
        For i As Integer = 0 To RichTextBox1.Lines.Count - 1  'recorrer las primeras líneas del RTB
 
            Dim SeparatedWords() As String = RichTextBox1.Lines(i).Split(" "c)   'dividir las palabras en esta línea hasta
 
            For Each Word As String In SeparatedWords   'hacemos un bucle a traves de las palabras en esta linea
                WordList.Add(Word & " " & (i + 1))   'añadir cada palabra y el número a nuestra lista 
            Next
        Next
 
        WordList.Sort()  'Acomoda alfabeticamente
 
        RichTextBox2.Lines = WordList.ToArray  'establece el texto de la otroa RTB a nuestra lista de palabras ordenadas
    End Sub
    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        Me.Close() 'cierro forma
    End Sub
 
    Private Sub AcercaDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcercaDeToolStripMenuItem.Click
        AboutBox1.Visible = True 'hago visible la forma sobre...
    End Sub
End Class

 Private Sub TabPage2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabPage2.VisibleChanged
        'wtf como uso esto
        'rtbString.Replace(".", "")
        'txtString.Replace(".", "")
 
        Dim sentence As String = RichTextBox1.Text
 
        Dim words() As String = System.Text.RegularExpressions.Regex.Split(sentence, "\W+")
 
        Dim dict As Dictionary(Of String, Integer) = New Dictionary(Of String, Integer)
 
        For Each word In words
 
            Dim cnt As Integer
 
            If (dict.TryGetValue(word, cnt)) Then
 
                dict(word) = cnt + 1
 
            Else
 
                dict.Add(word, 1)
 
            End If
 
        Next
        For Each key In dict
            'this doesn't work to sort
            'dict.Sort()
             'this doesn't work too, to print the output
            'RichTextBox2.Text = dict.toarray
             'original code to print the output
              Console.WriteLine("Word: {0} Count:{1}", key.Key, key.Value)
 
 
        Next
 
    End Sub