none
Pasar lineas de un TXT como variables ID RRS feed

  • Pregunta

  • Dispongo de un txt con cientos de lineas y si logro terminarlo, ma ahorraré horas de curro, o al menos eso espero [:-S]
    El problemas es el siguiente. Recojo sin problemas las líneas del TXT, las visualizo sin problemas en la consola, pero soy un inutil para hacer que salgan de ahí y pueda utilizarlas donde necesito... AYUDA! please.
    Imports System.IO
    Imports System.Collections
    Imports System.Threading

    Public Class Form1
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim objReader As New StreamReader("archivo.txt")
            Dim sLine As String = ""
            Dim arrText As New ArrayList()
            REM Dim texto

            Do
                sLine = objReader.ReadLine()
                If Not sLine Is Nothing Then
                    arrText.Add(sLine)
                End If
            Loop Until sLine Is Nothing

            objReader.Close()
            For Each sLine In arrText
                REM texto = sLine  NADA, esto no funciona era una prueba
                REM TextBox1.Text = texto Y esto tampoco, otra prueba :-(
                Console.WriteLine(sLine)   REM De Maravilla aqui, pero solo aquí
                 Thread.Sleep(3000)    REM timeout entre entrada de datos
    REM falta código pero lo que deseo es que me ponga  en esta URL y luego realizare un For each
                  http://192.164.1.1/ prueba?[b]sLine   [/b] 
    Next
           
    Console.ReadLine()
    End Sub
    Me echáis un cable?
    jueves, 15 de febrero de 2018 17:17

Respuestas

  • Hola:
    En un Form con 1 Button, copia y pega el siguiente código

    Imports System.IO
    Public Class Form1
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim path As String = "C:\Borrar\TU_FICHERO.txt"
            Dim readText As String() = File.ReadAllLines(path)
            For Each s As String In readText
                MessageBox.Show(s)
            Next
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos

    jueves, 15 de febrero de 2018 21:42
  • Hola:

    Si el fichero con extension TXT por ejemplo tiene 13 lineas, como pretendes mostrar la 13 lineas en 1 TextBox.
    Sera mejor que las muestres en 1 ListBox, DataGridView, ListView, etc.

    Para mostrarlas en1 ListBox:

            For Each s As String In readText
                ListBox1.Items.Add(s)
            Next

    P.D.
    Las lineas

    Do
    Loop Until readText Is Nothing

    NO pintan nada, el ciclo For se cierra con la linea Next

    Un saludo desde Bilbo
    Carlos
    viernes, 16 de febrero de 2018 19:58

Todas las respuestas

  • Hola:
    En un Form con 1 Button, copia y pega el siguiente código

    Imports System.IO
    Public Class Form1
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim path As String = "C:\Borrar\TU_FICHERO.txt"
            Dim readText As String() = File.ReadAllLines(path)
            For Each s As String In readText
                MessageBox.Show(s)
            Next
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos

    jueves, 15 de febrero de 2018 21:42
  • Menuda resaca ayer (año nuevo chino, la parienta es de ahí. Son esponjas humanas aunque no lo parezca y yo para no quedar en ridículo... ), intento probar el código y te digo algo, Gracias.

    Pero por lo que ver entre legañas es que el código que tu me pasas solucionas todo mi problema con la mitad de líneas :-) :-)

    • Editado RicardCrr viernes, 16 de febrero de 2018 9:22 ampliasr info
    viernes, 16 de febrero de 2018 9:20
  • Aparte de novato, resacoso.

    He utilizado tu código, perfectísimo para que las líneas aparezcan en un messagebox.
    He intentado como primer paso (para probar) que esas líneas se visualizasen en un TextBox. Nada :-(  como tu sabes y he introducido un DO para que se hiciese de forma autómatica para que luego con modificaciones me fuese poniendo la variable en la URL y un InvokeMember("click") me vaya trabajando.

           Do
                For Each s As String In readText
                    MessageBox.Show(s)
                    REM TextBox1.Text = (s)
                Next
            Loop Until readText Is Nothing

    Lo mío es el CSS :-(

    Puedes echarme un cable (otro)

    Te invito a una birra cuando pases por Barna

    viernes, 16 de febrero de 2018 9:55
  • Hola:

    Si el fichero con extension TXT por ejemplo tiene 13 lineas, como pretendes mostrar la 13 lineas en 1 TextBox.
    Sera mejor que las muestres en 1 ListBox, DataGridView, ListView, etc.

    Para mostrarlas en1 ListBox:

            For Each s As String In readText
                ListBox1.Items.Add(s)
            Next

    P.D.
    Las lineas

    Do
    Loop Until readText Is Nothing

    NO pintan nada, el ciclo For se cierra con la linea Next

    Un saludo desde Bilbo
    Carlos
    viernes, 16 de febrero de 2018 19:58
  • No, no pretendía mostrar las 13 lineas en el TextBox. Lo que pretendía es que me fuesen cambiando las lineas para ver que funcionaba. El objetivo final si lo consigo es que un For me permita  me fuese poniendo la /? variable en la URL y un InvokeMember("click") a posteriori. Me funciona pero a pedal, dícese haciendo click y para eso no pierdo el tiempo y no te lo hago perder a ti
    viernes, 16 de febrero de 2018 20:10