Borrar caracteres de .txt

[mrprogman]

saludos a todos, tengo un archivo .txt dentro del cual debo de borrar unos caracteres algo asi

antes

|LOMH640224MF5|A|102518|2010185767|09/07/2011 09:53:46|2726.26|299.89|1|I|38481000026,0,36111004 515,36110006370,36111001184,36111004515,3611100595 1,39651000883,39651001228|04/02/2011,08/07/2011,20/05/

y debe de quedar asi:

|LOMH640224MF5|A|102518|2010185767|09/07/2011 09:53:46|2726.26|299.89|1|I||||

como la ven.?..se podra eliminar esos datos..considerando q es un archivo q tiene 68862 lineas..y q debe de leerlas una x una y encontrar ese excedente.....saludos

[Malenko]

Si que se podria, recorriendo el fichero mediante ReadLine() y luego usando funciones de búsqueda de caracteres para saber que partes eliminar.

[O_pelusa]

Para hacerlo es importante saber la estructura del fichero. Me explico, es siempre a partir del --> | (separador) de la 9ª posición donde quieres eliminar ??

Si es variable es mucho mas dificil.

Si la estructura es fija podrias recorrer las lineas , acumular los caracteres de saparación en un contador, si es 9ª, guardar la cadena desde la posicion del separador hasta el siguiente y hacer un

Replace(LINEA_ARCHIVO, CadenaEntreSeparadores,"").

Todo esto dentro de un bucle ....

[Aquaventus]

Como dice O_pelusa lo que deseas eliminar es apartir del 9ª | ? por esa es la unica manera que veo de hacer eso sin eliminar los "|"... puedes pasar tu texto a un array de string y recorrerlo con un for contanto los "|" y eliminando apartir del 9º simbolo y adjuntando si es igual a "|". Saludos!.

[mrprogman]

Yo creo q contar los caracteres es la mejor opcion, hice este codigo pero para borrar ciertos caracteres:

Dim 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
str = sr.ReadToEnd()
str = str.Replace("|08/07/2011|", "||")
str = str.Replace("|0|", "||")
'str = str.Replace(vbCrLf, "")
Fs.Position = 0
Fs.SetLength(str.Length)
sw.Write(str)
sw.Flush()
MessageBox.Show("OK")
sw.Close()
Fs.Close()

como podria ser para contar los caracteres..?..saludos y gracias por sus respuestas.

[Aquaventus]

Podrias hacer esto :

Código vb:

Dim 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!.