Visual Basic - eliminar mitad de registros

Life is soft - evento anual de software empresarial
   
Vista:

eliminar mitad de registros

Publicado por faldo (6 intervenciones) el 06/06/2015 04:57:18
hola soy nuevo en esto de visual basic y necesito un programa el cual tiene un registro 1323 datostxt y necesito dejarlo a la mitad lo único que tengo es esto

Open "C:\Users\Franciscoo\Desktop\mejillones_acii.txt" For Input As #1
Open "C:\Users\Franciscoo\Desktop\mejillones2.txt" For Output As #2

Input #1, Data$

While Not EOF(1)

Print #2, Data$

Input #1, Data$

Wend
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

eliminar mitad de registros

Publicado por Facundo (58 intervenciones) el 06/06/2015 06:52:58
No entiendo.
Supongo que tenés un archivo .txt en el cual hay 1323 registros.
Ahora, ¿qué significa dejarlo a la mitad? ¿guardar los primeros 661 registros? ¿guardar un registro si y otro no?
a)
1
2
3
4
5
6
7
8
9
10
11
open "origen.txt" for input as #1
open "destino.txt" for output as #2
do
input #1,data
datos =datos +1
loop until eof(1)
for a=1 to int(datos/2)
input #1,data
print #2,data
next a
close

b)
1
2
3
4
5
6
7
8
open "origen.txt" for input as #1
open "destino.txt" for output as #2
do
input #1,data
datos=datos+1
in datos/2=int(datos/2) then print #2, datos
loop until eof(1)
close
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

eliminar mitad de registros

Publicado por faldo (6 intervenciones) el 06/06/2015 18:05:56
si exacto es dejar primero los 661 registros en otro archivo de salida
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

eliminar mitad de registros

Publicado por faldo (6 intervenciones) el 07/06/2015 22:58:09
amigo cual es la opción de los programas para dejar los primeros 661 registros ? necesito la respuesta por favor te lo agradeceria
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

eliminar mitad de registros

Publicado por Juan (9 intervenciones) el 08/06/2015 00:53:56
Buenas Faldo

Si lees las opciones que te pegó Facundo, te valen ambas. Tienes que ver que se abren dos ficheros uno de destino y otro de origen. Entonces lo que hace ese código en esencia es leer la mitad de los registros y así como los va leyendo escribiéndolos en el archivo de destino. Después lo que podrías hacer tú es si eso renombrar el archivo de destino y ya tendrías tu fichero con la mitad de registros.

Espero que ahora entendieras su código.

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

eliminar mitad de registros

Publicado por faldo (6 intervenciones) el 08/06/2015 01:32:13
Gracias por tu comentario me sirvió mucho
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

eliminar mitad de registros

Publicado por Facundo (58 intervenciones) el 12/06/2015 02:06:09
La primera...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

eliminar mitad de registros

Publicado por Facundo (58 intervenciones) el 12/06/2015 02:13:33
Perdón, en la línea 6 del listado (b) debe decir
1
if datos/2=int(datos/2) then print #2, data
(esto me pasa por responder rápido sin probar el código)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar