none
Leer desde TextBox es mas lento que desde comillas RRS feed

  • Pregunta

  • Hola.

    Intentando obtener ciertas líneas de un archivo insertado en My.Resources, me he encontrado con lo siguiente...

            Dim plbr As String = My.Resources.Palabras
            For Each cntn As String In plbr.Split
                If CBool(cntn.Equals("PALABRA")) Then 'Diferencia
                    RichTextBox1.AppendText(cntn + vbCrLf)
                End If
            Next
    

    ...Porque con el código de arriba el resultado es bastante mas rápido que con el código de abajo?

            Dim plbr As String = My.Resources.Palabras
            For Each cntn As String In plbr.Split
                If cntn.Equals(TextBox1.Text) Then 'Diferencia
                    RichTextBox1.AppendText(cntn + vbCrLf)
                End If
            Next

    Puedo obtener mas rápido el resultado usando el textBox?

    Gracias.


    Rafael FM

    sábado, 28 de enero de 2017 7:07

Respuestas

  • Hola

    prueba a copiar el valor del texbox en una variable y utilizas la variable

    Dim plbr As String = My.Resources.Palabras

    Dim valor As String = TextBox1.Text

            For Each cntn As String In plbr.Split
                If cntn.Equals(valor) Then 'Diferencia
                    RichTextBox1.AppendText(cntn + vbCrLf)
                End If
            Next


    • Editado Juan FA sábado, 28 de enero de 2017 8:24
    • Marcado como respuesta RafaelFM sábado, 28 de enero de 2017 11:14
    sábado, 28 de enero de 2017 8:17