Mensajes

Buenos dias a todos antes de nada queria pedir disculpas por si el post no va aqui ya q no se en que sitio ponerlo

Bueno os comento mi problema tengo que realizar un traductor en visual basic .net con bases de datos en access (hecha por mi, la cual tiene una tabla y 4 campos, id, palaras español, palabras ingles, y numero de uso, esto es por ejemplo si una palabra tiene mas de una traduccion utilizar siempre la q tenga mayor numero de uso)

mi problema es q no se muy bn como hacerlo ya que quiero comprobar si la palabra introducida en un textbox la tengo en mi base de datos y de ser asi q me imprima la traduccion en otro textbox lo q ocurre sq no se mb como hacerlo

alguien puede ayudarme con este problemilla?

gracias

creo q esa expresion regular q me pusiste no me vale :S

xq por ejemplo si quiero traducir la palabra "perro" al haber dos letras iguales no me la detecta xq lo tengo programado para q sino encuentra una palabra la traduzca tal cual esta escrita

por ejemplo si voy a traducir "Buenos dias" y buenos no la tengo quedara "Buenos days"

y claro como detecta la repetericion de la "r" no me la traduce supongo q hara la correccion y buscara "pero" pro como no la tengo no traduce

alguna forma de solucionar este problemilla?

gracias

ok pues entocnes muchas gracias a los dos por vuestra informacion

no no quiero q me lo hagan sino luego no se ni como se hace yo bsucaba la solucion del problema x si abia algun metodo o algo y me dijeron que el de ToLower y para q me explicaran como funciona

sq el problema es q si el profesor no nos a explicado eso y le entro algo asi seguramente pensara q lo e copiado y q no e hecho yo nada ni me lo e currado ni nada y la verdad q es parte si xq me lo as dicho tu pro el resto de las cosas me las estoy intentando currar jajajaja

intentare acer lo del substring y si es un espacio, coma o punto como lo ignoro?

gracias

si lo q pasa q no la entiendo mb xq tal y como lo pusiste tu deberia hacer otro array con todas las palabras en español y antes de buscarlas compararla no?

lo q pasa q en un paso de mas adelante tengo q añadir palabras y claro si lo ago como creo q tu me lo as peusto deberia añadirlas a los 4 arrays y seria un poco liante no?

Codigo:




Imports System.Text.RegularExpressions
Imports System.IO

Public Class Form1

    Dim matrizesp As String() = {"Hola", "casa", "perro", "gato"}
    Dim matrizing As String() = {"Hello", "home", "dog", "cat"}
    Dim nuevoarray As String() = {}
    Dim texto As String
    Dim espacio As String = " "
    Dim coma As String
    Dim punto As String



    Dim nuevodialogo As New Dialog1
    Dim nuevoform As New Form2
    Dim nuevoformu As New Form3
    Dim cad As String



    ''' <summary>
    ''' Al cargar el formulario introducimos los items en el combobox
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        ComboBox1.Items.Add("Seleccione un idioma")
        ComboBox1.Items.Add("Español")
        ComboBox1.Items.Add("Ingles")

        ComboBox1.SelectedIndex = 0




    End Sub




    Private Sub BotonTraducir_Click(sender As System.Object, e As System.EventArgs) Handles BotonTraducir.Click

        Dim palabra As String = String.Format(TextBox1.Text)
     

       


        If String.IsNullOrEmpty(TextBox1.Text) Then
            MessageBox.Show("Debe introducir un texto para traducirlo")
            TextBox1.Focus()






        ElseIf ComboBox1.SelectedItem = "Seleccione un idioma" Then

            MessageBox.Show("Debe elegir un idioma original")
        ElseIf ComboBox1.SelectedItem = "Español" Then

            texto = TextBox1.Text
            corregir(texto)
            If RadioButtonIng.Checked = True Then
                For i As Integer = 0 To matrizesp.GetUpperBound(0)

                   
                    If matrizesp(i) = cad Then
                        TextBox2.Text = matrizing(i)
                        Exit For
                    Else
                        TextBox2.Text = palabra
                    End If
                Next
            Else
                MessageBox.Show("Debe elegir un idioma para traducir")
            End If
        ElseIf ComboBox1.SelectedItem = "Ingles" Then

            texto = TextBox1.Text
            corregir(texto)
            If RadioButtonEsp.Checked = True Then

                For i As Integer = 0 To matrizing.GetUpperBound(0)
                    If matrizing(i) = cad Then
                        TextBox2.Text = matrizesp(i)
                        Exit For
                    Else
                        TextBox2.Text = palabra
                    End If
                Next
            Else

                MessageBox.Show("Debe elegir un idioma para traducir")
            End If
        End If

       



    End Sub

    Private Sub BotonSalir_Click(sender As System.Object, e As System.EventArgs) Handles BotonSalir.Click
        Me.Close()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.SelectedItem = "Seleccione un idioma" Then
            RadioButtonEsp.Enabled = False
            RadioButtonIng.Enabled = False
        End If

        If ComboBox1.SelectedItem = "Español" Then
            RadioButtonEsp.Enabled = False
            RadioButtonIng.Enabled = True
        End If

        RadioButtonIng.Checked = False

        If ComboBox1.SelectedItem = "Ingles" Then
            RadioButtonIng.Enabled = False
            RadioButtonEsp.Enabled = True
        End If

        RadioButtonEsp.Checked = False

    End Sub




    Private Sub ButtonAñadir_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAñadir.Click
        nuevodialogo.ShowDialog()
    End Sub

    Private Sub ButtonVerGuardadas_Click(sender As System.Object, e As System.EventArgs) Handles ButtonVerGuardadas.Click
        nuevoform.ShowDialog()


    End Sub

    Private Sub ButtonModificacion_Click(sender As System.Object, e As System.EventArgs) Handles ButtonModificacion.Click
        nuevoformu.ShowDialog()
    End Sub


    Public Function corregir(cadena As String) As String

        cad = TextBox1.Text

        cad = Regex.Replace(cadena, "(.)\1{1,}", "$1")
       

        Return cad

    End Function





hay teneis el codigo de lo q tengo echo hasta ahora a ver si podeis ayudarme gracias

yo para recorrer mi array ago esto :

Dim palabra As String = String.Format(TextBox1.Text)

For i As Integer = 0 To matrizesp.GetUpperBound(0)

                   
                    If matrizesp(i) = cad Then
                        TextBox2.Text = matrizing(i)
                        Exit For
                    Else
                        TextBox2.Text = palabra
                    End If
                Next


donde cad = a la palabra correguida por si x ejemplo se introduce perrrro que lo corrija


si quereis os paso todo el copdigo que tengo lo que pasa q tneog varios procedimientos y eso pro si os enterais mejor viendolo todo no tenog nignun problema en pasaroslo

gracias

uuuuuuuffff
eso e smuy chungoo!!!

yo lo que busco es algo solamente para comas, espacios, y puntos y q no seas las expresiones regulares esas q nunca las e visto :S

muchas gracias de todas formas pro si sabeis algo mas sencillo.....

gracias!

pro el ToLower ami me aparece como una funcion no como un metodo es lo mismo?

o debo acer una funcion y pasarle pa matriz donde estan las palabras?