Visual Basic.NET - cargar lectura del fichero seleccionado listview

 
Vista:
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

cargar lectura del fichero seleccionado listview

Publicado por melqui (242 intervenciones) el 28/12/2019 17:35:20
holá amigos,
necesito la ayuda de uds.
tengo un problema qe no estoy conseguiendo solucionar
tengo la lista del archivo que tiene varias extensiones, mas necesito que cuando seleccione la extencion (.txt) quiero que se cargue en mi textbox mas no se como hacerlo, si alguien me puede orientar será de grande ayuda.


Screenshot_3
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

cargar lectura del fichero seleccionado listview

Publicado por Phil Rob (1546 intervenciones) el 29/12/2019 09:52:38
Hola Melqui,

Comprendo que quieras leer el contenido del archivo TXT y lo copiar en una TextBox.
Supongo que tienes una ListView llamada MaListView y una TextBox llamada MaTextBox y mas, que la propiedad MultiLines de la TextBox es TRUE.
En la primera columna de la ListView es el nombre completo del archivo y en la segunda columna es la extensión.

En este caso, el código siguiente hace el trabajo cuando seleccionas una línea de la Listview :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub MaListView_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MaListView.Click
    If MaListView.SelectedItems(0).SubItems(1).Text.ToUpper = ".TXT" Then
        Dim NombreDelArchivo As String = MaListView.SelectedItems(0).Text
        Dim Archivo As New System.IO.StreamReader(NombreDelArchivo)
        Dim Linea As String
        While Not Archivo.Peek = -1
            Linea = Archivo.ReadLine
            MaTextBox.AppendText(Linea & vbCr)
        End While
        Archivo.Close()
    End If
End Sub

Espero que esto te ayudará ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

cargar lectura del fichero seleccionado listview

Publicado por melqui (242 intervenciones) el 29/12/2019 11:54:12
hola Phil Rob,

gracias por la idea, estoy intentando aplicarla mas no me la está cogiendo, colo que un point e ele está haciendo el falto no pasa por los parametros declarado.
será que estoy haciendo mal?



Screenshot_4
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

cargar lectura del fichero seleccionado listview

Publicado por Phil Rob (1546 intervenciones) el 29/12/2019 17:50:58
Hola,

Veo tu codigo y veo un error : para agregar lineas en un TextBox, tienes que utilizar el metodo AppendText.

Corrijo tu codigo :

1
2
3
' ... ... ...
TxtCamada.AppendText(Archivo.ReadLine() & vbCR)
' ... ... ...

Atención : tiene que TxtCamada.MultiLines = True ! Este puede ser hecho en la cuadra de las propiedades o en el procedimiento de evento Load del Form.
vbCR es necesario para ver un texto legible en la TextBox.

Comentario : si puedes, mejor trabajar con el evento Click y no DoubleClick.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

cargar lectura del fichero seleccionado listview

Publicado por melqui (242 intervenciones) el 30/12/2019 09:51:18
phil, muchas gracias
realmente estaba haciendo errado
mas acabe comentando esta linha, porque estaba dando un error

1
If MaListView.SelectedItems(0).SubItems(1).Text.ToUpper = ".TXT" Then

quedo perfecto
Screenshot_5

por otro lado, será que tu me puedes dar una idea de como hago esa lectura en loop ? que cuando el check este habilitado lea despues de un thread el quede deshabilitadom atravez de un button, ya intente de todas formas mas infelizmente no me está saliendo

la estoy haciendo asi mas me está disparando un error, si tienes un ejemplo para ayudarme te agradezco

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
For Each lvItem As ListViewItem In ListaArquivos.Items
    If lvItem.Checked = True Then
 
        '   If ListaArquivos.SelectedItems(0).SubItems(2).Text.ToUpper = ".TXT" Then
        Dim NombreDelArchivo As String = ListaArquivos.SelectedItems(0).Text
        Dim Archivo As New System.IO.StreamReader(NombreDelArchivo, System.Text.Encoding.UTF7)
        Dim Linea As String
        While Not Archivo.Peek = -1
            Linea = Archivo.ReadLine
            txtMensagem.AppendText(Linea & vbCr)
        End While
        Archivo.Close()
 
    End If
 
    Thread.Sleep(1000)
    Application.DoEvents()
    lvItem.Checked = False
    lvItem.Remove()
    'End If
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

cargar lectura del fichero seleccionado listview

Publicado por Phil Rob (1546 intervenciones) el 30/12/2019 10:56:31
Hola Melqui,

El código de mi procedimiento Button1_Click hace este que quieras.

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each L As Integer In MaListView.CheckedIndices
    MaListView.Items(L).Selected = True
    Dim NombreDelArchivo As String = MaListView.SelectedItems(0).Text
    Dim Archivo As New System.IO.StreamReader(NombreDelArchivo)
    Dim Linea As String
    While Not Archivo.Peek = -1
        Linea = Archivo.ReadLine
        MaTextBox.AppendText(Linea & vbCr)
    End While
    MaTextBox.AppendText(vbCr)
    Archivo.Close()
    MaListView.Items(L).Selected = False
Next

Adjunto mi proyecto de pruebas. Cuando utilizo los CheckBox en la ListView, soy obligado de poner el código del ayer en el evento DoubleClick porque el clic de un CheckBox es también el Click de la línea …

Que tenga un buen días ...

ListView
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

cargar lectura del fichero seleccionado listview

Publicado por melqui (242 intervenciones) el 30/12/2019 22:21:26
Phil Rob, muchas gracias por la explicacion ahora si salio lo q esperaba.
gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar