Foro de elhacker.net

Private Sub ButtonTraducir_Click(sender As System.Object, e As System.EventArgs) Handles ButtonTraducir.Click
        If String.IsNullOrWhiteSpace(TextBoxTexto.Text) Then
            MessageBox.Show("Introduce Texto a Traducir", "Información", MessageBoxButtons.OK)
            TextBoxTexto.Focus()
        ElseIf (RadioButtonEs.Checked And ComboBoxIdioma.SelectedIndex = 1) Or (RadioButtonIn.Checked And ComboBoxIdioma.SelectedIndex = 0) Then
            MessageBox.Show("No Se pueden hacer traducciones porque ha seleccionado mismo idioma de entrada y de salida", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            If ComboBoxIdioma.SelectedIndex = 1 Then
                TextBoxTraducción.Text = traducir(dicEsp, dicIng, TextBoxTexto.Text)
            End If
        End If
    End Sub


    Private Function traducir(diccionario1 As String(), diccionario2 As String(), frase As String) As String
        Dim palabra As String = ""
        Dim traduccion As String = ""
        Dim posicion As Integer = 0
        Dim letra As String = ""

        While posicion < frase.Length
            letra = frase(posicion)
            While frase(posicion) <> " " Or frase(posicion) <> "," Or frase(posicion) <> "."
                letra = frase(posicion)
                palabra = palabra & letra
            End While
            If palabra <> "" Then
                Dim a As Integer
                a = buscar(palabra, diccionario1)
                If a >= 0 Then
                    traduccion = traduccion & diccionario2(a)
                    traduccion = traduccion & letra
                    palabra = ""
                End If

            End If

            posicion += 1
        End While

        Return traduccion


    End Function



Private Function buscar(palabra As String, diccionario As String()) As Integer
        Dim posicion As Integer = -1

        For i As Integer = 0 To diccionario.Length - 1
            If palabra = diccionario(i) Then
                posicion = i
                Return posicion
            End If
        Next
        Return posicion
    End Function

Erase
una
vez,
en
la
era
de
los
dragones,
una
princesa
malvada.
Esta
princesa
era
una
maldita;
por
eso
lo
de
princesa
malvada
jeje
jeje

Erase
una
vez
en
la
era
de
los
dragones
una
princesa
malvada
Esta
princesa
era
una
maldita
por
eso
lo
de
princesa
malvada
jeje
jeje

class TestStringSplit
{
    static void Main()
    {
        char[] delimiterChars = { ' ', ',', '.', ':', '\t' };

        string text = "one\ttwo three:four,five six seven";
        System.Console.WriteLine("Original text: '{0}'", text);

        string[] words = text.Split(delimiterChars);
        System.Console.WriteLine("{0} words in text:", words.Length);

        foreach (string s in words)
        {
            System.Console.WriteLine(s);
        }
    }
}

Dim texto() As String = Split(TextBox1.Text, " ")
        Dim i As Integer
        For i = 0 To UBound(texto)
            MessageBox.Show(texto(i))
        Next
   

Dim separador() As Char = {" ", ",", "."}
        Dim texto() As String = Split(TextBox1.Text, separador)
        Dim i As Integer
        For i = 0 To UBound(texto)
            MessageBox.Show(texto(i))
        Next

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'separadores(TextBox1.Text)
        Dim texto As String
        texto = TextBox1.Text
        Dim i As Integer = 0


        ' For i = 0 To texto.Length
        texto.Replace(",", "")
        texto.Replace(".", "")
        texto.Replace(";", "")
        'MessageBox.Show(texto(i))


        'Next
        'For i = 0 To array.GetUpperBound(0)
        Dim array() = Split(texto, " ")
        'Next

        'For i = 0 To array.GetUpperBound(0)
        '    MessageBox.Show(array(i))
        'Next
        TextBox2.Text = texto
    End Sub

Public Class Form2
    Dim dicIng As String() = {"Car", "Door", "House", "Train", "Dog"}
    Dim dicEsp As String() = {"Coche", "Puerta", "Casa", "Tren", "Perro"}
    Dim texto As String


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        separadores(TextBox1.Text)
        TextBox2.Text = texto
    End Sub

    Public Function separadores(frase As String) As String

        Dim listado() As String
        Dim separador As String = " "


        texto = TextBox1.Text
        texto = texto.Replace(";", "")
        texto = texto.Replace(",", "")
        texto = texto.Replace(".", "")
        texto = texto.Replace("?", "")
        texto = texto.Replace("¿", "")
        texto = texto.Replace("!", "")
        texto = texto.Replace("¡", "")


        listado = Split(texto, separador)
        Return texto
    End Function
End Class