¿como borro en el txt lo q borro en una list?

[lennyf]

tengo 3 list.list las cuales puedo agregarles nuevos productos y editarlas. pero cuando las edito se borra en la lista y en el txt no..
como puedo hacer que me lo borre ahi?
les muestro el codigo de mi form load
Dim numero As Integer
Dim variable As String
numero = 0
Open App.Path & "\" & "listadodeelementos" & ".txt" For Input As #1
While Not EOF(1)
Line Input #1, variable
If (numero Mod 3 = 0) Then
List13.AddItem (variable)
Else
If (numero Mod 3 = 1) Then
List12.AddItem (variable)
Else
List11.AddItem (variable)
End If
End If
numero = numero + 1

Wend
Close #1

[erbuson]

Hola:

Primero, pienso que si le dieses esta forma a tu rutina, sería mas fácil de entender en el futuro y con menos lineas.

Código vb:

Private Sub Form_Load()
  Dim numero As Integer, variable As String
  Open App.Path & "\listadodeelementos.txt" For Input As #1
  While Not EOF(1)
    Line Input #1, variable
    numero = numero + 1
    Select Case numero
      Case Is = 1: List11.AddItem variable
      Case Is = 2: List12.AddItem variable
      Case Is = 3: List13.AddItem variable: numero = 0
    End Select 
  Wend
  Close #1
End Sub
 

En respuesta a tu pregunta, podrías tener una rutina como esta o similar que deberás llamar cada vez que elimines o añadas un elemento al grupo de List

Código vb:

Private Sub GrabarElementos()
  Dim elemento As Integer
  Open App.Path & "\listadodeelementos.txt" For Output As #1
    For elemento = 0 To List11.ListCount - 1
      Print #1, List11.List(elemento)
      Print #1, List12.List(elemento)
      Print #1, List13.List(elemento)
    Next
  Close #1
End Sub
 

Ten en cuenta que este sistema, supone que cada uno de los List tiene el mismo número de elementos y que cuando eliminas uno en un List, lo eliminas de todos.

Saludos

[lennyf]

Iniciado por erbuson

hola:

Primero, pienso que si le dieses esta forma a tu rutina, sería mas fácil de entender en el futuro y con menos lineas.

Código vb:

private sub form_load()
  dim numero as integer, variable as string
  open app.path & "\listadodeelementos.txt" for input as #1
  while not eof(1)
    line input #1, variable
    numero = numero + 1
    select case numero
      case is = 1: List11.additem variable
      case is = 2: List12.additem variable
      case is = 3: List13.additem variable: Numero = 0
    end select 
  wend
  close #1
end sub
 

en respuesta a tu pregunta, podrías tener una rutina como esta o similar que deberás llamar cada vez que elimines o añadas un elemento al grupo de list

Código vb:

private sub grabarelementos()
  dim elemento as integer
  open app.path & "\listadodeelementos.txt" for output as #1
    for elemento = 0 to list11.listcount - 1
      print #1, list11.list(elemento)
      print #1, list12.list(elemento)
      print #1, list13.list(elemento)
    next
  close #1
end sub
 

ten en cuenta que este sistema, supone que cada uno de los list tiene el mismo número de elementos y que cuando eliminas uno en un list, lo eliminas de todos.

Saludos

me sirvio! Muchas gracias!.