Arg0s
06-11-2013, 19:48
Hola a todos:
Aunque no es ni la 1ª ni la 10ª vez que consulto algo en este foro, sí es la 1ª vez que posteo, así que saludos a todos y felicidades por el trabajo que hacéis.
Hace poco que empecé a usar VB.NET y me encuentro con un error al que no encuentro solución. Me explico:
He leído sobre streamreader y escribo de nuevo, anexo líneas, leo por completo e incluso leer hasta un determinado texto
Un ej sencillo (de hasta ;) donde llego):
Sub LeeHasta()
Dim RutaTXT As System.IO.StreamReader = System.IO.File.OpenText("C:\x.txt")
Dim LineaLeida As String
Do
LineaLeida = RutaTXT.ReadLine()
If LineaLeida Is Nothing Then Exit Do
RichTextBox1.Text = RichTextBox1.Text & LineaLeida & vbCrLf
Loop Until LineaLeida = "sección 3"
RutaTXT.Close()
End Sub
Lo que quisiera es leer DESDE, por ejemplo, "sección 2", HASTA "sección 3"si x.txt es:
sección 1
01
02
03
Sección 2
04
05
06
sección 3
07
08
09
sección 4
10
11
12
final
es decir que en el RichTextBox quede:
sección 2
04
05
06
Saludos y GRACIAS
Aunque no es ni la 1ª ni la 10ª vez que consulto algo en este foro, sí es la 1ª vez que posteo, así que saludos a todos y felicidades por el trabajo que hacéis.
Hace poco que empecé a usar VB.NET y me encuentro con un error al que no encuentro solución. Me explico:
He leído sobre streamreader y escribo de nuevo, anexo líneas, leo por completo e incluso leer hasta un determinado texto
Un ej sencillo (de hasta ;) donde llego):
Sub LeeHasta()
Dim RutaTXT As System.IO.StreamReader = System.IO.File.OpenText("C:\x.txt")
Dim LineaLeida As String
Do
LineaLeida = RutaTXT.ReadLine()
If LineaLeida Is Nothing Then Exit Do
RichTextBox1.Text = RichTextBox1.Text & LineaLeida & vbCrLf
Loop Until LineaLeida = "sección 3"
RutaTXT.Close()
End Sub
Lo que quisiera es leer DESDE, por ejemplo, "sección 2", HASTA "sección 3"si x.txt es:
sección 1
01
02
03
Sección 2
04
05
06
sección 3
07
08
09
sección 4
10
11
12
final
es decir que en el RichTextBox quede:
sección 2
04
05
06
Saludos y GRACIAS