Visual Basic - Txt en Visual Basic

Life is soft - evento anual de software empresarial
   
Vista:

Txt en Visual Basic

Publicado por Rodrigo rodrigoalejandrogc@gmail.com (1 intervención) el 23/10/2013 15:02:36
Hola,
Mi nombre es Rodrigo, soy nuevo en visual y mi consulta es la siguiente: Necesito hacer, un programa que abra un archivo .txt, este archivo tiene una estructura (10 columnas x 500.000 filas aprox.) y necesito que el programa, por ej, borre todas las filas que en la 2a columna tenga ceros...

Tengo el siguiente código que con un botón busca el txt en el equipo, y me muestra la 2a y 3a fila en el "RichTextBox"...
Problema:
1 - Sólo me lee archivos pequeños y el que yo necesito (25mb aprox), no lo abre y me pasa al mensaje "No ha seleccionado ningún archivo".
2 - No sé cómo eliminar las filas que en la segunda columna tenga ceros.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim TodoTexto As String = "", LineaDeTexto As String = ""
Dim x As Integer = 1

OpenFileDialog1.Filter = "Formato de archivo (*.TXT)|*.TXT" 'Formatos permitidos en objeto
OpenFileDialog1.ShowDialog() 'abre el cuadro de diálogo Abrir
If OpenFileDialog1.FileName <> "" Then
Try 'abre el archivo y detecta cualesquiera errores mediante un controlador
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1) 'lee las líneas contenidas en el archivo
LineaDeTexto = LineInput(1) 'Lee la línea entera
If x = 2 Or x = 3 Then 'Como no has facilitado patrones de la línea 2 y 3 lo pongo a pelo :-)
'agrega cada línea a la variable TodoTexto
TodoTexto = TodoTexto & LineaDeTexto & vbCrLf
End If
x = x + 1 'Incrementa la variable
Loop
RichTextBox1.Text = TodoTexto 'abre el archivo
RichTextBox1.Enabled = True 'permite usar el cursor de texto
Catch
MsgBox("No ha seleccionado ningún archivo") 'Si no seleccionas archivo
Finally
FileClose(1) 'cierra el archivo
End Try
End If
End Sub

Espero me ayuden...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder