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

Imágen de perfil
Val: 286
Bronce
Ha aumentado su posición en 2 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 (5 códigos)
692 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
693 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...
CerrarCerrar
CerrarCerrar
Cerrar

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

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5536