[VB.NET] Lettura di un file ed estrazione stringhe con Mid

[spinter]

Chiedo un aiuto speriamo chi mi capiate!!

Intanto grazie!!
Ho due problemi!
1) Ho un Form con una textbox e un Bottone e MaskedTextBox1 e una Combobox!!
Io leggo un File.txt e importo una il contenuto di una riga nella textbox1 con questo :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Codice:
--------------------------------------------------------------
Dim weather1 As String
Dim sa As String
Dim sr As StreamReader = File.OpenText(ComboBox1.Text)
Do While sr.Peek() >= 0
sa = sr.ReadLine()
If Mid(sa, 1, 14) = "Attack Heading" Then
weather1 = Mid(sa, 1)
Else
End If
Loop
TextBox1.Text = weather1
sr.Close()
----------------------------------------------------------------
TXT:
-------------------------------------------
Attack Heading 22 deg RNG 54215 ft
Attack Heading 22 deg
-------------------------------------------
E fino a qui funziona!!Pero' mi prende sempre l'ultima riga ,e a me serve prendere la prima.
Il problema e che nel Txt ho due frasi che incominciano con Attack Heading come posso fare si di prendere o una o l'altra?Perche a me interessa prendere i n dopo il RNG.


2) MaskedTextBox1 c'è la possibilità di scrivere da dx a sx della MaskedTextBox1,perchè la MaskedTextBox1 a 6 campi ma se ne porto dentro solo 4 esempio mi rimane lo spazio a dx.

Grazie!!

Spinter

[spinter]

Oggi sono riuscito a capire che legge tutti e due le frasi ma sulla textbox sovrascrive Attack Heading 22 deg RNG 54215 ft con Attack Heading 22 deg,come faccio a vedere tutti e due?
O scegliere la prima?

Mi potete aiutare?
Grazie!!

[spinter]

Ci sono riuscito per la prima domanda cavolo era facile speriamo funzioni!!!



Dovevo aggiungere il +

If Mid(sa, 1, 14) = "Attack Heading" Then

weather1 += Mid(sa, 1, 40)
Else
End If

--------------------------------------------------------------
Codice funzionante:
Codice:
Dim weather1 As String
Dim sa As String
Dim sr As StreamReader = File.OpenText(ComboBox1.Text)
Do While sr.Peek() >= 0
sa = sr.ReadLine()
If Mid(sa, 1, 14) = "Attack Heading" Then
weather1 = Mid(sa, 1)
Else
End If
Loop
TextBox1.Text = weather1
sr.Close()
--------------------------------------------------------------------------------------
2) MaskedTextBox1 c'è la possibilità di scrivere da dx a sx della MaskedTextBox1,perchè la MaskedTextBox1 a 6 campi ma se ne porto dentro solo 4 esempio mi rimane lo spazio a dx.