none
String de un TXT y extraer valores RRS feed

  • Pregunta

  • Muy buenos días,

    He estado mirando por el foro y no he podido encontrar una solución al manejo de string. Os pongo mi pregunta:

    - Tengo un txt con información, entre las lineas del TXT tengo lo siguiente:

    ----------------------------------------------

       Fecha HardwareInfo 
     .                      NAME: JLK - P/N:AA-AMSTRAD204-00 - L/N:0003007 - REV:REV. 12 - FW:9 - FECHA_ANA:2016-04-30 - NOTE: IOS_NUM:JSL1600244 - CAL_SITE:xxxxxxxx.  
     .                      NAME: FADE1 - P/N:102 - L/N:3158  
     .                      NAME: FADE2 - P/N:102 - L/N:3171 

    ----------------------------------------------

    Necesito extraer de este fichero los apartados NAME: JLK - P/N:AA-AMSTRAD204-00 y su  L/N:0003007 mas la fecha  FECHA_ANA:2016-04-30

    y los otros NAME: FADE1 - P/N:102  y el  L/N:3158 también.

    Todo lo quiero ver en un textbox quedando así:

    JLK   P/N:AA-AMSTRAD204-00       L/N:0003007     FECHA_ANA:2016-04-30

    FADE1  L/N:3158

    FADE2   L/N:3171 

    Cómo lo podría realizar?

    Muchisimas gracias a todos. Un saludo Javi.

     

    jueves, 15 de septiembre de 2016 10:10

Respuestas

  • Para leer el archivo de texto puedes usar StreamReader. Algo como esto:

    Dim objReader As New StreamReader("C:\ElArchivo.txt")

    Dim sLine As String = ""
    Dim arrText As New ArrayList()
    Do
        sLine = objReader.ReadLine() ' Vas leyendo cada línea
        If Not sLine Is Nothing Then
            If InStr(sLine,".                      NAME:") > 0 Then
               ' Has encontrado el dato buscado
               Dir Valor As String = Mid(sLine,29)
               txtValores.Text = txtValores.Text + vbCrlf
            End If
        End If
    Loop Until sLine Is Nothing
    objReader.Close()


    Saludos, Javier J

    jueves, 15 de septiembre de 2016 11:51