Mensajes

Leer un archivo TXT se ha hablado 10000 veces en el foro. Utiliza el botón "Buscar".

Si buscas un en el foro, verás que fue publicado por LeandroA el código completo en VB de su explorador remoto, que tenía precisamente esa característica de vista preliminar.

Un saludo

a mi nada mas me aparece la pestaña de General :S

Necesitas VB6 Profesional o Enterprise

Si pulsamos encima del botón: Optimizaciones Avanzadas tendrés más opciones para que el EXE de nuestro proyecto sea algo distinto de lo normal y que los AntiVirus no lo detecten

Algo distinto no, totalmente distinto. Sin embargo siento decirte que esto no permite en genral evadir a antivirus, sobre todo los que poseen heurística que por desgracia son casi todos.

Un saludo

Vaya veo que nadie se ha enterado de lo que pregunta WarGhost....

En efecto, los temas de Windows XP sólo pueden usarse con Microsoft Windows Common Controls 5.0. Sobre lo que dices de que algunas propiedades o eventos son distintas es cierto que lo son, y también es cierto que en proyectos grandes supone un problema adaptar todo el código, pero es la única solución.

Si me permites un consejo, acostúmbrate a usar los 5.0 en el fondo no es tanto rollo y tienes la ventaja de hacer programas que se adapten a cualquier tema que tenga el usuario instalado.

Un saludo

Ok muchísimas gracias a los dos me habeis ayudado a quitar una importante limitación a mi programa.

Un saludo.

Felicidades Soplo bienvenido

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 

Muy buenos diseños los de Enrique Javier; felicidades

Un saludo

[URLDownloadToFile]

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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

pues mira warghost y te has fijado n tu amigo benru  huh na no es por faltar ni na pero te has fijado las contestatsiones que da a superplay como otros muchos mas de este foro  huh eso si da pena da askito  smiley todos esos hombrecitos k ofenden con teclado querria yo

G.T.S ya te vale tio siempre estás buscando bronca, no todo el mundo hace las cosas para molestarte, no todo el mundo quiere meterse en tu PC, no todo el mundo quiere robarte códigos: no eres tan importante.

Ah, a propósito... tu no conoces de nada a BenRu como para hablar de él así que lo mejor hazte un favor a ti mismo y cállate.

Un saludo