Visual Basic - trabajar un txt

Hola muy buenas,

Soy principiante en esto y me gustaria hacer una aplicacion que corte en parrafos un txt dependiendo del primer caracter de cada linea.

por ejemplo si
a=mid(texto,1,1) y "a" coje el valor de "1" entonces desde esa posicion hasta que en otra linea "a" vuelva a tener el valor "1" todo ese parrafo se me meta en un textbox.

y asi sucesivamente hasta final de archivo, necesito que se me separe el archivo en diferentes textbox.

Soy administrativo pero me gusta la programacion y esto me ayudaria.
Si alguien puede ayudarme se lo agradeceria. Una vez que aprenda a programar aportare mis conocimientos ;).

Un saludo a todos, Ortzi

Hombre, ya que estás aprendiendo busca información sobre la función Split. Te será de utilidad.

Muchas gracias peleon, estoy en ello.
un saludo

Esto es lo que tengo hecho...
me parece que con el split no consigo lo que quiero


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
Me.Button1.Text = " Abrir archivo "
End Sub

Function Leer(ByVal path As String) As String
Try
Dim oSR As StreamReader = New StreamReader(path)
Dim a As String
Dim contador As Integer
Dim nombre As String
Dim l As String
Dim tempSTR As String = ""
contador = 0
' lee la primer línea
l = oSR.ReadLine()
While Not l Is Nothing
a = Mid(l, 1, 1)
If a = "1" Then
nombre = Mid(l, 53, 35)
contador = contador + 1
If contador = 1 Then
Me.CheckBox1.Text = nombre
Else
Me.CheckBox2.Text = nombre
End If

tempSTR = tempSTR & l & vbNewLine
l = oSR.ReadLine() ' lee la siguiente
Else
' variable temporal que almacena las líneas
tempSTR = tempSTR & l & vbNewLine
l = oSR.ReadLine() ' lee la siguiente
End If
End While
' cierra y libera los recursos
oSR.Close()
oSR.Dispose()
' retorna el texto
Return tempSTR
' errores
Catch oe As Exception
Return ""
MsgBox(oe.Message)
End Try

End Function

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
' nuevo diálogo
Dim OpenFiledlg As New OpenFileDialog
With OpenFileDialog1
.FileName = ""
.Filter = "Archivos de texto *.txt|*.txt|Todos *.*|*.*"
' abre el diálogo para seleccionar archivo el de texto
.ShowDialog()

If .FileName <> "" Then
TextBox1.Text = Leer(.FileName)
End If
End With
End Sub
End Class

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

este es el textbox que tengo ahora...

1S90200604005200712120037652006010920061231B33456625EXCAVACION 20060400520071212003765 0400520071212003765 000000000 000000000 000000000241
1S90200604005200712120037652006010920061231B33456625EXCAVACION 20060400520071212003765 0400520071212003765 000000000 000000000 000000000241 y lo que necesito es que me introduzca asi...
textbox1..

1S90200604005200712120037652006010920061231B33456625EXCAVACION 20060400520071212003765 0400520071212003765 000000000 000000000 000000000241

textbox2

1S90200604005200712120037652006010920061231B33456625EXCAVACION 20060400520071212003765 0400520071212003765 000000000 000000000 000000000241

separandomelas cuando la primera posicion de la linea sea de valor "1" hasta cuando vuelva a serlo.

igual asi mexplico mejor.
un saludo

Yo creo que con la función Split sí lo puedes conseguir.
Modifica la llamada a la función 'Leer' así:

If .FileName <> "" Then
Dim ElText As String = Leer(.FileName)
Dim a() As String = Split(ElText, vbNewLine)
TextBox1.Text = a(0)
TextBox2.Text = a(1)
End If

Para otra vez, es mejor que preguntes en el foro de Visual Basic .Net; tendrás mas posibilidades de que te respondan (este es de VB antiguo).

Un saludo