mala mia tube 1 error asi es con este ejemplo
el segundo metodo solo es si solo sale 1 sola ves si sale mas veces deberias cambiar a una rutina con While para eliminar todos las veces q este recomendaria la primera pero siempre es bueno dar varias opciones
sorry ando distraido y no pongo bien la sintaxis xD
Código
esa es 1 forma la otra es esta
dim textoSineditar as string ="" dim textoeditado as string="" if textoSineditar.contains("") then textoeditado = textoSineditar.replace("","") end if
Código
dim textoSineditar as string ="" dim textoeditado as string="" if textoSineditar.contains("") then textoeditado = textoSineditar.remove(textosineditar.startwith(""),3) end if
el segundo metodo solo es si solo sale 1 sola ves si sale mas veces deberias cambiar a una rutina con While para eliminar todos las veces q este recomendaria la primera pero siempre es bueno dar varias opciones
sorry ando distraido y no pongo bien la sintaxis xD
hay varias cosas para corregir, parece que estas programando a la visual basic 6.
1 - no se porque usas para controlar los errores el On Error GoTo, en .NET se usa Try Catch.
2 - para abrir y guardar los archivos te recomiendo usar StreamReader y StreamWriter, que son unicos de .NET y son los que se usan.
para cargar al listbox hay varios metodos, algunos te dejan hacerlo sin estar recorriendo linea por linea el archivo.
aca te paso 2 metodos de carga, bien de .NET, y un metodo de guardado:
Código
Imports System.IO Public Class Form1 ' Carga todo en una sola linea Private Sub MetodoCarga1() End Sub ' Carga usando StreamReader, linea por linea hasta el final del archivo Private Sub MetodoCarga2() Dim vArchivo As New StreamReader("C:\prueba.txt") While Not vArchivo.EndOfStream ListBox1.Items.Add(vArchivo.ReadLine()) End While vArchivo.Close() End Sub ' Guarda usando StreamWriter Private Sub MetodoGuardado() Dim vArchivo As New StreamWriter("C:\prueba.txt") For Each vLinea As String In ListBox1.Items vArchivo.WriteLine(vLinea) Next vArchivo.Flush() vArchivo.Close() End Sub End Class