Mensajes

si, le erre al quoteo

xD lo importante es q los principiantes aprendan bien

[On Error GoTo]

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 (vbnet) [Seleccionar] Expandir

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

[Para agregar y guardar en un archivo txt los items de un list box es este]

Bueno seba123neo  y spiritdead estos son los codes que tengo


Para agregar y guardar en un archivo txt los items de un list box es este :

Código [Seleccionar] Expandir

ListBox1.Items.Add(TextBox1.Text)

       Dim Saveval As Integer = 1
       Dim Listpath As String = "C:\Documents and Settings\Administrador\Mis documentos\Downloader X\" & "Historial de Links Introducidos" & ".txt"
       Saveval = Saveval + 1
       For i = 0 To ListBox1.Items.Count - 1
           Form2.ListBox1.SetSelected(i, True)
           Dim Listwrite As System.IO.StreamWriter
           Listwrite = My.Computer.FileSystem. _
           OpenTextFileWriter(Listpath, True)
           Listwrite.WriteLine(ListBox1.Items(i))
           Listwrite.Close()
       Next

Y estos para cargar los datos otra vez al list box :

Código [Seleccionar] Expandir


If ListBox1.Text.Contains("") Then

           ListBox1.Text.Replace("", "")

       End If

       Dim Archivo$ = "C:\Documents and Settings\Administrador\Mis documentos\Downloader X\" & "Historial de Links Introducidos" & ".txt"
       Dim FF% = FreeFile()
       FileOpen(FF, Archivo, OpenMode.Input)
       Do While Not EOF(FF) 'Leerá lineas hasta que termine el archivo
           ListBox1.Items.Add(LineInput(FF)) 'Agregara Linea Actual leida al ListBox (Lineinput es un sistema que lee linea por linea un archivo)

       Loop
       FileClose(FF)


       On Error GoTo fallo



fallo:
       
       Me.Refresh()

       Exit Sub

       Resume

mala mia tube 1 error asi es con este ejemplo

Código (vbnet) [Seleccionar] Expandir

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

Código (vbnet) [Seleccionar] Expandir

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

la solucion no es reemplazar los caracteres, la solucion debe ser ver porque te esta grabando esos caracteres, hace estas 2 simples cosas.

1 - fijate si el archvio de texto creado tiene realmente esos caracteres grabados, abrilo con el bloc de notas y fijate.

2 - pone el codigo fuente que usas para grabar y cargar el archivo, me juego que ahi esta el problema.

sin codigo no podemos ver que estas haciendo.

posiblemente sea en el modo en que obtiene dicha informacion

y lo del replace si funciona pero no entiendo porque el VS no me esta tomando bien el remplazo y en c# si

[]

Bueno hola a todos como ya saben soy nuevo en esto de vn anteriormente utilisaba el 6.0 pero ahora utiliso el vb 2008

bueno mi duda es que cree un programa en la cual podias agragar cosas a un list box y en el puedes guardarlo en un archivo .txt la cual se guardan y automaticamente cuando inicias la aplicacion ontra ves esten hay pero el unico problema es que cuando lo abro me aparece lo siguiente:

un ejemplo

Introduci

http://google.com

al textbox y le di al boton aceptar se me agrega al listbox y automaticamente se gurda en el archivo txt

Cuando lo Abro nuevamente se me agrega algo al listbox junto al texto que introduje

http://google.com

Entonce quiero hacer de manera que no me aparezca el 

El code que tengo es mas o menos haci

Código [Seleccionar] Expandir


if ListBox1.Text.Contains("") Then

(Que debo poner aqui para que se borre este texto y se quede el link??)

End If

Bueno por hay me quede no se hacer decir que se borre un texto seleccionado porfavor ayuda!!

podrias hacer

Código [Seleccionar] Expandir


listbox1.text.replace("","")

un simple remplazo o separarlo con split("") y el index q contenga dicho caracter eliminarle y rearmar despues, existen muchas formas realmente

bueno crear el TabPage es facil y meterle controles adentro tambien, aca un ejemplo simple que tambein maneja los eventos de cada control en cada tab.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Call CrearTab()
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       TabControl1.TabPages.Remove(TabControl1.SelectedTab)
   End Sub

   Private Sub CrearTab()
       Dim NewTab As New TabPage
       NewTab.Name = "Tab" & TabControl1.TabCount
       NewTab.Text = "Tab " & TabControl1.TabCount

       Me.TabControl1.Controls.Add(NewTab)

       Dim NewButton As New Button
       NewButton.Name = "Button1"
       NewButton.Top = 10
       NewButton.Text = "Boton 1"
       NewTab.Controls.Add(NewButton)

       AddHandler NewButton.Click, AddressOf ClickBotones

       Dim NewButton2 As New Button
       NewButton2.Name = "Button2"
       NewButton2.Top = 100
       NewButton2.Text = "Boton 2"
       NewTab.Controls.Add(NewButton2)

       AddHandler NewButton2.Click, AddressOf ClickBotones
   End Sub

   Private Sub ClickBotones(ByVal sender As Object, ByVal e As EventArgs)
       Dim whichButton As Button
       Dim whichTabPage As Control

       If TypeOf sender Is Button Then

           whichButton = CType(sender, Button)
           whichTabPage = whichButton.Parent

           MessageBox.Show("Apretaste el " & whichButton.Name & " de la pestaña " & whichTabPage.Name)
       End If
   End Sub
End Class

el primer boton añade un tab con 2 botones adentro y el otro elimina la tab seleccionada.

tambien se manejan los eventos click de cada boton y se sabe de que tab vino el click.

es un simple ejemplo, lo tenes que optimizar.

saludos.

xD pero ahi ya estas aumentando el nivel con la incorporacion de eventos controlados, xD no lo enreden =(
AddHandler NewButton2.Click, AddressOf ClickBotones

xD primero que aprenda a crear los controles dinamicamente, y despues como asignarle los eventos correctamente sino se perdera

y por esa razon, 1 de mis variables tube q meterle cifrado RSA u.u

[SELECT * from MiTabla WHERE id = 'el id que ingresaste']

la consulta SQL deberia ser asi:

SELECT * from MiTabla WHERE id = 'el id que ingresaste'

y despues no tendrias que recorrer nada, simplemente hacer.

Código (vbnet) [Seleccionar] Expandir

If leerdato.Read()
     txtNombre.Text = leerdato("nombre")
End if

saludos.

exactamente tomando en cuenta de su respectivo dispose o close para cerrar la conexion

Eso estaria bien, esos ficheros se leen/escriben como archivos normales o de otra forma? (Soy novato en C#, vengo de PHP) xD

yo te diria q esa ip del server mysql sea en no-ip asi te evitas que cambie la ip

explicate 1 poco mas porfavor