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

Imágen de perfil
Val: 111
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Consulta en LINQ baseado en stringgráfica de visualizaciones


Visual Basic.NET

Publicado el 20 de Septiembre del 2019 por melqui
551 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 2019gráfica de visualizaciones de la versión: ninguna
552 visualizaciones desde el 20 de Septiembre del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Screenshot_2
Screenshot_3
Screenshot_4
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5536