Mensajes

Yo estoy aprendiendo recien, pero talves podrias hacerlo con String.Format

Código (vbnet) [Seleccionar] Expandir

fichero.WriteLine(String.Format("{0}  {1}   {2}   {3}", ListBox1.Items(i), ListBox2.Items(i), ListBox3.Items(i), ListBox4.Items(i)))

Perfecto  gracias mil puntos para ti

codigo

Código (vbnet) [Seleccionar] Expandir

Dim rutaFichero As String
        Dim i As Integer
        rutaFichero = Path.Combine(Application.StartupPath, "Prueba.txt")
        Dim fichero As New IO.StreamWriter(rutaFichero)
        For i = 0 To ListBox1.Items.Count - 1
            fichero.WriteLine(String.Format("{0}  {1}   {2}   {3}", ListBox1.Items(i), ListBox2.Items(i), ListBox3.Items(i), ListBox4.Items(i)))
           
         '  fichero.WriteLine(ListBox1.Items(i))
        Next
        fichero.Close()

Luis

En una variable de este tipo como puedo forzar que tenga solo la cantidad de numeros que yo quiera,

era antes mas o menos

Código (vb) [Seleccionar] Expandir

Dim Name As String * 30   


pero ya no vale para net

tengo este codigo para hacerlo de longitud fija

Código (vbnet) [Seleccionar] Expandir

  Dim Results As IEnumerable(Of Integer) =
          (
              From Value As Integer
                In (Result).Distinct Where (Value <= MAX))


        ListBox6.Items.AddRange(Results.Cast(Of Object).ToArray)


Luis

hace lo mismo que estas haciendo pero para los 4 y listo.

pero en vez de poner 4 veces el mismo codigo, create una funcion a la cual la puedas llamar pasandole como parametro el listbox a guardar.

gracias pero segun entendi lo que me pones es grabar cada ves cada listbox y yo nesecito es gravarlos al mismo tiempo en el mismo txt en ese orden

gracias
Luis

Hola

tengo cuatro listbox

ListBox1
ListBox2
ListBox3
ListBox4

y tengo esta rutina que me grava pero en uno solo y quisera saber si se pueden grabar los cuatro  pero de esta forma

ListBox1    ListBox2      ListBox3     ListBox4
74             12             25             88
55             99             33             90
99             88             44             66


codigo

Código (vbnet) [Seleccionar] Expandir

Dim rutaFichero As String
       Dim i As Integer

       rutaFichero = Path.Combine(Application.StartupPath, "Prueba.txt")
       Dim fichero As New IO.StreamWriter(rutaFichero)
       For i = 0 To ListBox1.Items.Count - 1
           fichero.WriteLine(ListBox1.Items(i))
       Next
       fichero.Close()

saludos
Luis

Me alegro pudieses eliminarlo, la verdad no encontré mucha info sobre New Zombie, te ha pasado algun archivo algún amigo  o has descargado algo como cracks o parches?

Saludos.

Es tan simple como descargar este programa que es comercial , te dan el de prueba y  elimino de una este virus que no se dejaba desistalar por el panel de control

dejo el enlace de la pagina de descarga ya que de verdad molesta un monton


http://www.iobit.com/es/advanceduninstaller.php
luis

Bueno me autorespondo    por los momentos lo que quitado con un programa de desistalar programas que no se quitan por la via normal,hasta ahora lo he eliminado

el programa se llama  IObitUnistaller este lo elimina y rastrea todos los archivos asociados


Luis

Tengo dias haciendo de todo para eliminar este virus pero no daoy con nada he probado de todo


gracias
Luis

 A los maestros de esta sección del foro

A quien se le atribuye esta frase ? ojo es de mas de 20 años no valen los copiones

    " Que tu sabiduría no sea motivo de humillación para otros "

Luis

Bueno lo he puesto de esta forma y medio va

Código (vbnet) [Seleccionar] Expandir

Private Sub LimpiarTodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimpiarTodoToolStripMenuItem.Click
        For Each obj As Control In Me.Controls
            If (TypeOf obj Is TextBox) Then
                obj.Text = ""
            End If

            If (TypeOf obj Is Label) Then
                obj.Text = ""
            End If

            If (TypeOf obj Is GroupBox) Then
                For Each caja As Control In obj.Controls
                    If (TypeOf caja Is TextBox) Then
                        caja.Text = ""
                    End If
                Next
            End If
            ListBox1.Items.Clear()
            ListBox2.Items.Clear()
            ListBox3.Items.Clear()
            ListBox4.Items.Clear()
            ListBox5.Items.Clear()
            ListBox6.Items.Clear()

        Next

Solamente que al borrar tambien me borra algunos textos que no deberia de borrar ya que son fijos ,con los listbox no tengo problemas ya que solo pongo los que me interezan borrar, ahora con los otros no se como descriminarlos

luis

Si vale eso ya le he visto 

Código (vbnet) [Seleccionar] Expandir

If (TypeOf obj Is Label) Then
    obj.Text = ""
End If

lo que quiero es borrar con un solo boton todo junto texboses y label  ;(

Luis