Como se puede leer un archivo

[fedefrankk]

Hola a todos/as,
Lo que necesito hacer es lo siguiente: tengo un archivo con direcciones de email.. en un txt

[email protected]
[email protected]
[email protected]
etc...
lo que quiero es leer ese archivo y que me lo guarde en una base de datos, el tema de guardar lo se hacer.. lo que no se hacer es leer el archivo y me saqque cada correo y lo ingrese en una variable asi lo comparo y despues lo guardo..

Muchas gracias
a todos

[Judgement]

Saludos, todo depende de como este estructurado el archivo.

Como esta guardado el archivo, es secuencial, es aleatorio, o es binario?

Secuencial, por ejemplo si esta solo delimitado por comas, punto y coma o cualquier otro caracter especial.

Aleatorio, por ejemplo si tiene una estructura fija, (Nombre de la persona ocupa un maximo de 25 caracteres, Direccion de correo un maximo de 75 caracteres)

Binario, son los que se leen byte por byte y no es necesario que tengan definida una estructura, simplemente un campo String ocupa un byte por carater de la string, un Integer ocupa dos bytes.

[Judgement]

Creo que este tutorial te puede ayudar bastante, ya que me imagino que el archivo que quieres leer es secuencial.

El ejemplo #6 es el que te servira bastante

h t t p : / / w w w . r e c u r s o s v i s u a l b a s i c . c om .a r / h t m / t u t o r i a l e s / t u t o r i a l - b a s i c o 7 . h t m

(solo elimina los espacios en blanco que todavia no tengo 30 post)

Espero que te sea de ayuda

[David]

En las FAQ's también hay un ejemplo de cómo hacerlo:

http://www.forosdelweb.com/2590739-post177.html

[fedefrankk]

Hola como estas muchisimas gracias por las contestaciones..me voy a fijar el post que me dejaste,, de todas maneras el archivo es un txt, y es asi direccion de email y lo quiero hacer terminar con algun signo porque me dijieron que si o si necesita un signo para que visual se de cuenta hasta donde llegar o algo asi..
y es por columna

[email protected] (aca un signo un simbolo)
[email protected] (aca un signo un simbolo)
[email protected] (aca un signo un simbolo)
[email protected] (aca un signo un simbolo)

saludos y mil gracias

[David]

No, no necesitas colocar otro símbolo además del salto de línea si lo abres en modo secuencial para lectura (Input).

[fedefrankk]

No, no necesitas colocar otro símbolo además del salto de línea si lo abres en modo secuencial para lectura (Input).

Hola el tema mio es cuando sabe visual que termino lalinea, uno puede terminar con ".com.ar" otro con ".com" otro con ".net" etc. y hay correos de 10 caracteres y otros de 20 .. ese es mas bien mi problema a la hora de leerlo como se da cuenta?...

muchas gracias por las respuestas

[Avellaneda]

Iniciado por fedefrankk

Hola el tema mio es cuando sabe visual que termino lalinea, uno puede terminar con ".com.ar" otro con ".com" otro con ".net" etc. y hay correos de 10 caracteres y otros de 20 .. ese es mas bien mi problema a la hora de leerlo como se da cuenta?...

muchas gracias por las respuestas

Hola, la instrucción Line Input lee cada línea (de cualquier tamaño, es decir hasta que encuentre el carácter de retorno de carro) en un archivo abierto en modo secuencial.

Mira, en este ejemplo abrimos el archivo y listamos cada línea en un control ListBox (puedes cargar las lineas en un array o directamente guardarlas en la BD).

Código:

Dim sLinea As String, i As Integer
Open sArchivo For Input As #1
Do While Not EOF(1)
    Line Input #1, sLinea
    List1.AddItem sLinea
Loop
Close #1

[fedefrankk]

Hola muchas gracias por responder, como hago para cargar la lista en un array?, yo lo hice asi y no funciono.

Código PHP:

   
g = "insert into email values('" & List1.Index & "')"
       conectar_acces.Execute g
       tablas_apertura.Close  
   

Me sale error el objeto no es una matriz...

saludos a todos

[Avellaneda]

Iniciado por fedefrankk

Hola muchas gracias por responder, como hago para cargar la lista en un array?, yo lo hice asi y no funciono.

Código PHP:

    
g = "insert into email values('" & List1.Index & "')" 
       conectar_acces.Execute g 
       tablas_apertura.Close  
   

Me sale error el objeto no es una matriz...

saludos a todos

Hola, por el código que pones veo que lo que quieres es cargar directamente el txt a la base de datos. Para ello no necesistas convertirlo previamente en un array

Código:

Open sArchivo For Input As #1
Do While Not EOF(1)
    Line Input #1, sLinea
    conectar_access.Execute "INSERT INTO email VALUES('" & sLinea & "')"
Loop
Close #1

sArchivo es la ruta completa y el archivo que quieres abrir. p.e. "c:\Mis Archivos\Emails.txt"
sLinea es una variable tipo String declarada en el procedimiento
conectar_acces es la conexión que ya has abierto a la BD
email es una tabla de esa BD que solamente tiene un campo.