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

[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!.