Podrias hacer esto :
Código vb:
Ver originalDim Fs As FileStream = New FileStream("\\Dell\compartido\agosto\1MRM0412304Y9 072011.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite, FileShare.ReadWrite)
Dim sw As New StreamWriter(Fs)
Dim sr As New StreamReader(Fs)
Dim str As String
Dim contador As Integer
Dim total as Integer
Dim nuevaCadena As String = String.Empty
Dim a As Char()
str = sr.ReadToEnd()
a = str.ToCharArray
total = str.Length() - 1
For i as Integer = 0 To total
If a(i).ToString.Equals("|") Then
contador = contador + 1
End If
If contador <= 10 Then
nuevaCadena = nuevaCadena & a(i).ToString
End If
Next
sw.Write(nuevaCadena)
sw.Flush()
MessageBox.Show("OK")
sw.Close()
Fs.Close()
Pruebalo y me comentas. Saludos!
.