SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: leandroler en Martes 15 de Agosto de 2006, 03:12

Título: Archivos Secuenciales!
Publicado por: leandroler en Martes 15 de Agosto de 2006, 03:12
Hola gentes, a ver si pueden ayudarme.
Resulta q tengo un archivo secuencial q va grabando numeros de ip, dia, hora, etc...
Lo q yo quiero es una aplicacion q contenga un texbox y el codigo q elimine la/s fila/s entera/s de lo q yo indique en el texbox.
Para el capo en programacion será sencillo, pues para mi me está rompiendo el bocho :ayuda:, no se trabajar con secuenciales..(eso por no aprender del principio).
Gracias a quien pueda ayudar!
Editar/Borrar Mensaje
Título: Re: Archivos Secuenciales!
Publicado por: cpmario en Martes 15 de Agosto de 2006, 17:13
En esta página encontrarás la información que necesitas para manejar archivos secuenciales.

http://www.elguille.info/VB/cursos_vb/basico/basico12.htm (http://www.elguille.info/VB/cursos_vb/basico/basico12.htm)

 :comp:
Título: Re: Archivos Secuenciales!
Publicado por: leandroler en Martes 15 de Agosto de 2006, 23:37
:good: Gracias cpmario, lo he leido, creo q el guille es lo mas grande al momento de programar y explicar..
Pero no he encontrado la parte eliminar filas o registros, si bien se trabajar (un poco) con secuenciales, no puedo eliminar estas filas.
De todos modos gracias, seguiré buscando.

Saludos Cordiales..
Título: Re: Archivos Secuenciales!
Publicado por: cpmario en Miércoles 16 de Agosto de 2006, 03:06
Se trabajar con archivos secuenciales. Pero no me es posible ayudarte, debido a que tu explicación de lo que deseas es muy escasa. Adeemás dices que deseas trabajar con los archivos, pero que deseas eliminar líneas en un Textbox. Si te explicas mejor o de preferencia pones un ejemplo de lo que deseas, estaré en posibilidad de ayudarte.

 :comp:
Título: Re: Archivos Secuenciales!
Publicado por: ArKaNtOs en Miércoles 16 de Agosto de 2006, 07:38
Código: Text
  1. tope = cbousu.ListIndex + 1 'Numero de Registro a eliminar
  2.             con = 1
  3.             Open ruta & "Users.dat" For Input As #1
  4.             Do Until EOF(1)
  5.                 If con = tope Then
  6.                     Input #1, j, k, l, m
  7.                 Else
  8.                     Input #1, j, k, l, m
  9.                     Open ruta & "Users2.dat" For Append As #2
  10.                         Write #2, j, k, l, m
  11.                     Close #2
  12.                 End If
  13.                 con = con + 1
  14.             Loop
  15.             Close #1
  16.             Kill ruta & "Users.dat"
  17.             Name ruta & "Users2.dat" As ruta & "Users.dat"
  18.  

Este es un codigo que hice hace un tiempo es para "eliminar" un registro de un fichero
puse eliminar dentro de comillas xq que yo sepa no hay un metodo que sirva para realizar esta funcion, asi que emulas una eliminación, si notas lo que hago es copiar todos los registros de un fichero a otro excepto el registro que deseo eliminar, luego borro el fichero anterior(Users.dat) y al nuevo(Users2.dat) solo lo renombro x Users.dat ya que ya esta eliminado, Espero q te sirva ;)
Título: Re: Archivos Secuenciales!
Publicado por: leandroler en Lunes 21 de Agosto de 2006, 01:18
Si, quizás no me exprese demasiado, basicamente es asi:
Hay un archivo log.txt q en tiempo real va almacenando numeros de ip con fecha, hora, etc..
Lo q yo necesito es q elimine la linea o las lineas q yo le indique, ya sea mediante por ej. un texbox.

Aqui les muestro lo q quiero eliminar (lo seleccionado)
Título: Re: Archivos Secuenciales!
Publicado por: cpmario en Lunes 21 de Agosto de 2006, 04:27
La manera como puedes hacerle, es tomar el archivo de texto, colocar línea por línea en un ComboBox, eliminar las líneas que deseas seleccionándolas del ComboBox y volver a guardar el contenido del ComboBox en el archivo de texto.
 :comp:
Título: Re: Archivos Secuenciales!
Publicado por: cpmario en Lunes 21 de Agosto de 2006, 05:45
Te adjuno un pequeño ejemplo de como hacer lo que te decía en la nota anterior.
 :comp:


---------------------
"Corrector Ortográfico de Notas", freeware, utilidad para programadores.
Programado en VB6.

http://www.igmario.com/index2.html (http://www.igmario.com/index2.html)
Título: Re: Archivos Secuenciales!
Publicado por: leandroler en Lunes 21 de Agosto de 2006, 16:34
Barbaro!, esta muy bueno el diseño, pero ese es el tema, o sea, yo busco q se eliminen las filas automaticamente y no tener q andar borrando fila x fila, ya q son muchisimas!! No te preocupes, se q es mas jodido. Te agradezco tu tiempo y respuesta q has tenido para conmigo, y se ve q sos un groso programando; el correctnotas es una maravilla sos un capo  :comp:

Saludos!
Título: Re: Archivos Secuenciales!
Publicado por: ArKaNtOs en Lunes 21 de Agosto de 2006, 19:41
No es por nada, pero que no es lo mismo del codigo que te di??????, otra cosa es correcto pasarlo a un combo, digo esto porque que yo recuerde un combo no acepta muchos registros, por eso yo creo otro fichero, bueno de todos modos ahi queda expuesto ;) bye
Título: Re: Archivos Secuenciales!
Publicado por: cpmario en Lunes 21 de Agosto de 2006, 23:47
Vas soltando la información poco a poco. No habías hecho referencia al posible número de líneas.

Como dice ArKaNtOs el comboBox solo puede tomar 32767 líneas de texto. Se pueden eliminar en forma manual o automática, si se tienen los parámetros de eliminación.

Pero te diré que no hay archivo texto que no entre en un Array de texto.
El string array puede tomar todas la líneas que desees, el único inconveniente sería la memoria que se disponga.
Con un array de texto puedes eliminar las líneas que desees.
La información que hace falta es: cuales son los parámetros que tienes para eliminar las líneas de texto. Si proporcionas la información suficiente podría ayudarte.

 :comp: