elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Leer archivos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Leer archivos  (Leído 2,488 veces)
likeu

Desconectado Desconectado

Mensajes: 75



Ver Perfil
Leer archivos
« en: 21 Agosto 2006, 10:16 am »

Bueno, estoy haciendo un programita y me falta algo.

Lo que necesito es abrir un archivo de text y guardar las primeras 2 lineas en variables por separado.

Logre hacerlo pero solamente si tengo el archivo de texto en mi pc.

Lo que necesito es sacar esa info pero de un TXT que esta en la web.


Espero que puedan ayudarme



===================

Esto es lo que hice yo


  Dim Cadena$, Numero%
    Dim nF%
    nF = FreeFile
    Open "c:\prueba.txt" For Input As nF
    Line Input #nF, Cadena
    Line Input #nF, sTmp
    Numero = Val(sTmp)
    Close nF

=====================
necesitaria que la direccion sea una web en vez de c:\prueba.txt


obviamente open no funciona....alguien sabe como?
   


En línea

Gorky


Desconectado Desconectado

Mensajes: 770



Ver Perfil WWW
Re: Leer archivos
« Respuesta #1 en: 21 Agosto 2006, 10:20 am »

Asi tal cual no lo vas a conseguir. Primero deberias hacer que tu programa se descargue el archivo, que lo guarde en el disco y posteriormente ya puedes abrirlo en local y leer.


En línea

_Sergi_


Desconectado Desconectado

Mensajes: 842



Ver Perfil
Re: Leer archivos
« Respuesta #2 en: 21 Agosto 2006, 13:57 pm »

Si, es lo que dice Gorky primero tienes que descargar el archivo. Lo más lógico es utilizar sockets pero hay una forma más sencilla y es utilizando la API URLDownloadToFile. Aquí tienes un ejemplo que descarga archivo.txt desde http://www.misitio.com/archivo.txt.

Código:
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
DownloadFile "http://www.misitio.com/archivo.txt", "c:\archivo.txt"
End Sub

Ok, supongamos que el archivo ya se ha descargado. Según lo dicho, si disponemos de un archivo de texto en la ruta "C:\archivo.txt", con la instrucción:

Código:
Open "C:\datos.txt" For Input Lock Write As #1

podemos abrirlo para lectura impidiendo además su modificación durante el proceso (Lock Write). Le asignamos el número 1 como identificador.

Ahora, para leer su primera línea podemos escribir:

Código:
Dim Linea As String
Line Input #1, Linea

La instrucción Line Input leerá la línea actual de un archivo (especificado a través de su número identificador, que en este caso es uno) y la anota en la variable de tipo texto (String) que se le indique como segundo parámetro. Tras ejecutar esta instrucción en la variable Linea tendremos el texto correspondiente a la primera línea del archivo indicado.

Ojo. El puntero de lectura del archivo (la posición actual de lectura) se habrá situado automáticamente al principio de la siguiente línea del archivo, de manera que si ejecutamos otra vez:

Código:
Line Input #1, Linea

Linea contendrá ahora el texto de esta segunda línea.

Creo que ya tienes todo lo que necesitas para hacerlo pero si tienes alguna duda concreta no dudes en preguntar.

Un saludo
En línea

Proyecto de Ingeniero
likeu

Desconectado Desconectado

Mensajes: 75



Ver Perfil
Re: Leer archivos
« Respuesta #3 en: 22 Agosto 2006, 17:33 pm »

Un garron :( no me sirve eso.

Tengo que leerlo directamente del server.

Un amigo me tiro una linea pero despues se desconecto del msn y no pude terminar.


Era esto, a ver si a alguno le prende una luz :p


-Agregue el componente MSINET.DLL (Microsoft internet transfer control)

-Luego de esto en vez de poner "open" y el archivo pongo:

Control.OpenURL ("http://www.pagina.com/prueba.txt")


y ahi se desconecto mi amigo :p

Me falto como leer las lineas del archivo despues....porque con line input no pasa nada :p



Likeu!
En línea

_Sergi_


Desconectado Desconectado

Mensajes: 842



Ver Perfil
Re: Leer archivos
« Respuesta #4 en: 24 Agosto 2006, 11:39 am »

Bueno entenderás que yo no pueda estar en la cabeza de tu amigo para continuar su explicación... así que porqué no nos dices que prblema tienes? Ya sabes, dudas concretas. Un "no me sirve" no nos sirve para nada xD

Un saludo  ;)
En línea

Proyecto de Ingeniero
likeu

Desconectado Desconectado

Mensajes: 75



Ver Perfil
Re: Leer archivos
« Respuesta #5 en: 25 Agosto 2006, 13:12 pm »

Tenes razon :p

Bueno, estuve pensando y puede ser que sirva el bajar el archivo, siempre y cuando luego lo pueda borrar y ademas, QUE NO LO ABRA, que solo lo lea.

El tema es que no quiero que el usuario que use mi programa pueda ver el TXT ese.


En línea

likeu

Desconectado Desconectado

Mensajes: 75



Ver Perfil
Re: Leer archivos
« Respuesta #6 en: 25 Agosto 2006, 13:14 pm »

Yo lo quiero usar para subir un archivo de texto con 2 filas; una para el usuario y otra para contraseña.

Entonces al leer los datos, los comparo con los datos que puso el usuario y asi autentico el login.


Se que no es para nada seguro, pero es un programita para un par de amigos, y no son de los que entienden mucho de estas cosas.

Pasa que no quiero que lo pasen porque...bueno por varios motivos :p




Likeu!
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ayuda que archivos leer
Nivel Web
antoniocaro 0 1,663 Último mensaje 14 Julio 2011, 09:46 am
por antoniocaro
Leer Offset y Hex de archivos
Programación Visual Basic
marisagirl 4 4,617 Último mensaje 1 Agosto 2011, 17:02 pm
por marisagirl
Leer archivos MP3
Dudas Generales
danndres 1 3,244 Último mensaje 17 Septiembre 2014, 21:39 pm
por engel lex
ayuda, leer archivos en c++
Programación C/C++
thxly 4 3,313 Último mensaje 1 Febrero 2015, 07:11 am
por thxly
Leer dos archivos csv
Programación C/C++
MAXSPEED 4 1,780 Último mensaje 5 Marzo 2018, 01:47 am
por srWhiteSkull
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines