Código de Visual Basic.NET - Consulta en LINQ baseado en string

Pos: 3

Val: 643

Ha mantenido su posición en Visual Basic.NET (en relación al último mes)

Consulta en LINQ baseado en string

Visual Basic.NET

Publicado el 20 de Septiembre del 2019 por Melqui (5 códigos)

1.308 visualizaciones desde el 20 de Septiembre del 2019

Buenas noches a todos

este ejemplo que les traigo es para quienes están comenzando la lenguaje de programación en vbnet, la idea es hacer la biblioteca LINQ, como base, que nos ayudara a entender de como se comunican entre string, este pequeño ejemplo trae un modo de como se trabaja y se trata una colección de strings,
para quien trabaja mucho con parámetros puede ayudar
espero que sea de grande ayuda.

hasta pronto

Screenshot_1

ninguna

Publicado el 20 de Septiembre del 2019

1.309 visualizaciones desde el 20 de Septiembre del 2019

Public Class frmFerramenta_001

    Private Sub LeituraDados()

Try

            Dim palavraAlvo As String = txtPalabra.Text.Trim()

            Dim fonteDados As String() = txtTexto.Text.Split(New Char() {" ", ",", ".", ";", ":", "-", ", ", "(", ")"}, StringSplitOptions.RemoveEmptyEntries)

            Dim resultado = From palavra In fonteDados

                            Where palavra.ToLowerInvariant() = palavraAlvo.ToLowerInvariant()

                            Select palavra

            Dim valor As Integer = resultado.Count()

            lbResultado.Items.Add(valor & " palabras """ & palavraAlvo & """ fueron encontradas.")

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Private Sub TxtPalabra_TextChanged(sender As Object, e As EventArgs) Handles txtPalabra.TextChanged

        If txtPalabra.Text = "" Then

            Exit Sub

        Else

            lblcaracteres.Text = "Digitando " & CStr(Len(txtPalabra.Text)) & " Caracteres"

        End If

    End Sub

    Private Sub txtPalabra_KeyDown(sender As Object, e As KeyEventArgs) Handles txtPalabra.KeyDown

        If e.KeyCode = Keys.Enter Then

            If String.IsNullOrWhiteSpace(txtPalabra.Text) Then

                MessageBox.Show("Informe a palabra a ser contada na string")

                Exit Sub

            Else

                Call LeituraDados()

            End If

        End If

    End Sub

End Class

Comentarios sobre la versión: ninguna (0)

No hay comentarios

Comentar la versión: ninguna

http://lwp-l.com/s5536

Sistema de Almacén

Gestión de una biblioteca

Código de Visual Basic.NET - Consulta en LINQ baseado en string

ninguna

Comentarios sobre la versión: ninguna (0)

Comentar la versión: ninguna

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.