Autor
|
Tema: Duda de textbox en vb.Net 2008 (Leído 9,450 veces)
|
seba123neo
Desconectado
Mensajes: 3.621
"No quiero creer, quiero saber" - Carl Sagan
|
mala mia tube 1 error asi es con este ejemplo dim textoSineditar as string ="" dim textoeditado as string="" if textoSineditar.contains("") then textoeditado = textoSineditar.replace("","") end if
esa es 1 forma la otra es esta 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: Imports System.IO Public Class Form1 ' Carga todo en una sola linea Private Sub MetodoCarga1() ListBox1. Items. AddRange(File. ReadAllLines("C:\prueba.txt")) 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
|
|
|
En línea
|
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.
Neil deGrasse Tyson
|
|
|
spiritdead
Desconectado
Mensajes: 296
|
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: Imports System.IO Public Class Form1 ' Carga todo en una sola linea Private Sub MetodoCarga1() ListBox1. Items. AddRange(File. ReadAllLines("C:\prueba.txt")) 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
>.> me tirastes quote ami, yo no programo en vb6 ni uso on error GoTo >.> solo le puse 2 metodos para eliminar lo que el me pidio
|
|
|
En línea
|
|
|
|
seba123neo
Desconectado
Mensajes: 3.621
"No quiero creer, quiero saber" - Carl Sagan
|
>.> me tirastes quote ami, yo no programo en vb6 ni uso on error GoTo >.> solo le puse 2 metodos para eliminar lo que el me pidio
si, le erre al quoteo 
|
|
|
En línea
|
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.
Neil deGrasse Tyson
|
|
|
spiritdead
Desconectado
Mensajes: 296
|
si, le erre al quoteo  xD lo importante es q los principiantes aprendan bien
|
|
|
En línea
|
|
|
|
|
seba123neo
Desconectado
Mensajes: 3.621
"No quiero creer, quiero saber" - Carl Sagan
|
la propiedad se llama StartsWith no StartWith, te falta la "s". 
|
|
|
En línea
|
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.
Neil deGrasse Tyson
|
|
|
|
Brian1511
Desconectado
Mensajes: 267
¿Quien soy esa es la gran pregunta?
|
Hola amigo como estas bueno no me funciono de todas formas ya me he puesto joder un poco a ver si me salia y lo logre me finciono a la perfeccione code que ise aqui te lo dejo para que lo verifiques!!  Dim texto As String If TextBox1.Text.Contains("") Then texto = TextBox1.Text.StartsWith("") If TextBox1.Text.StartsWith("") Then TextBox1.Text = TextBox1.Text.Replace("", "") End If End If
End Sub
|
|
|
En línea
|
 Creador de BrainMind
|
|
|
seba123neo
Desconectado
Mensajes: 3.621
"No quiero creer, quiero saber" - Carl Sagan
|
esa variable texto sacala porque no sirve para nada, no la estas usando en ningun lado, aparte la estas igualando al StartsWith que devuelve un boolean no un string.
y sacale el Contains() tambien porque si despues abajo usas el StartsWith, estas usnado 2 cosas casi iguales.
por ejemplo si tenes el texto "holaaaaaaaa", el contains va a devolver verdadero, pero el StartsWith devuelve falso y el texto te va a quedar igual, yo directamente usaria una sola linea con Replace y listo, no importa si empieza o termina con el "" que lo reemplaze en cualquier lado de la cadena que este.
el codigo te queda una sola linea.
igual la razon de la que te guarda ese "" para mi es el tema de grabacion del archivo, porque no probas los metodos que te puse antes de grabacion, probalos total no cuesta nada.
y lo que nunca digiste es si ese "" al abrir el archvio de texto con el bloc de notas ves esos caracteres raros.
|
|
« Última modificación: 26 Octubre 2012, 15:42 pm por seba123neo »
|
En línea
|
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.
Neil deGrasse Tyson
|
|
|
Brian1511
Desconectado
Mensajes: 267
¿Quien soy esa es la gran pregunta?
|
Graciasss!! amigo si me funciona igual gracias sos el mejor !! +10 + Like
|
|
|
En línea
|
 Creador de BrainMind
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Duda con TextBox
Programación Visual Basic
|
Lionheart12
|
6
|
1,324
|
8 Marzo 2008, 14:55 pm
por Lionheart12
|
|
|
[Duda] Con un TextBox
Programación Visual Basic
|
Dacan
|
0
|
759
|
16 Octubre 2008, 01:49 am
por Dacan
|
|
|
C# 3 - SQL Server 2008 - binding en textbox
.NET (C#, VB.NET, ASP)
|
Beowulf
|
7
|
7,611
|
10 Marzo 2010, 23:45 pm
por Beowulf
|
|
|
Ayuda:Asignacion de variables a un textbox de una base de datos en VB.NET(2008)
.NET (C#, VB.NET, ASP)
|
pilotillo
|
3
|
3,740
|
6 Octubre 2011, 10:05 am
por pilotillo
|
|
|
Como buscar palabras clave en un textbox VB 2008
.NET (C#, VB.NET, ASP)
|
Brian1511
|
9
|
7,808
|
26 Octubre 2012, 03:42 am
por Brian1511
|
|