FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Mostrar un Texto alojado en DropBox
Hola qué tal?
Estoy ingresando al mundo de la programación en Delphi con el IDE de Lazarus y necesito un poco de ayuda por no decir mucha para traducir un código.... Anteriormente programaba en visual basic.net en el cual empleaba un código del usuario de youtube: vbtutorialesabc , excelente por cierto... El código tenía la función de leer un archivo de texto almacenado en DropBox, una vez hecho eso el contenido era dividido por lineas y en cada linea habían campos... Algo así DELIRIUN|ABANTO|skillteam2001@gmail.com Divididos por una barra cada campo representaba un Nombre,Clave,e - mail ...etc Técnicamente lo mismo que hace una base de datos, sin embargo yo utilizaba DropBox porque me parecía mucho más sencillo que una base de datos común... Una vez que ya se leía el archivo de Texto, el programa te pedía ingresar en un TextBox (Edit) el primer campo... En este caso DELIRIUN y con ese primer campo ya se hacía la búsqueda y te presentaba los demás campos asignados con ese nombre de usuario... Espero me haya dejado explicar... el código en vb.net es el siguiente::: Código:
Imports System.Net Imports System.IO Public Class Form1 'CARGA LA RUTA A LA INFORMACION EN DROPBOX Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Try TextBoxURL.Text = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\URL.txt") Catch ex As Exception End Try End Sub Private Sub ButtonBUSCAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonBUSCAR.Click 'BUSCA LOS DATOS EN EL ARCHIVO DROPBOX CORRESPONDIENTE Dim URL As String = Nothing Dim MISTREAM As Stream = Nothing Try URL = TextBoxURL.Text URL = URL.Replace("dl=0", "raw=1") Dim CLIENTE As New WebClient MISTREAM = CLIENTE.OpenRead(URL) Catch ex As Exception MsgBox(ex.Message) Me.Close() End Try ' SI ENCUENTRA LA COINCIDENCIA PRESENTA LOS RESULTADOS Dim LECTOR As New StreamReader(MISTREAM) Dim ENCONTRADO As Boolean = False While LECTOR.Peek >= 0 Dim LINEA As String = LECTOR.ReadLine().Replace("{}", "") Dim DATOS As String() = LINEA.Split("|") If DATOS(0) = TextBoxNOMBRE.Text.ToUpper Then TextBoxAPELLIDO.Text = DATOS(1) TextBoxMAIL.Text = DATOS(2) TextBoxTELEFONO.Text = DATOS(3) ENCONTRADO = True Exit While End If End While ' AVISO SI NO ENCUENTRA LOS DATOS If ENCONTRADO = False Then MsgBox("NO EXISTE NINGUN REGISTRO PARA " & TextBoxNOMBRE.Text) End If MISTREAM.Close() End Sub Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed 'GUARDA LA ULTIMA URL UTILIZADA Try My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\URL.txt", TextBoxURL.Text, False) Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class Por cierto el programa necesita la URL del archivo alojado en DropBox... Muchas Gracias de antemano |
#2
|
||||
|
||||
No has dicho qué problema tienes.
|
#3
|
||||
|
||||
Aclaración: Lazarus no es Delphi. Lo digo por esto:
Cita:
Respecto a tu consulta, tal como dice Casimiro, nos falta que hagas la pregunta o consulta concreta. |
#4
|
|||
|
|||
Como obtener un texto y mostrarlo.
Pues en DropBox se pueden mostrar textos:::
https://www.dropbox.com/s/l8dduuytzx1r2tk/CUENTAS.txt Qué metodo podría usar para que me muestre solo el texto en un Edit ? |
#5
|
||||
|
||||
Seguimos sin entender lo que preguntas.
|
#6
|
|||
|
|||
Mostrar el texto
Simplemente el texto alojado en la URL: https://www.dropbox.com/s/l8dduuytzx1r2tk/CUENTAS.txt
Necesito mostrarlo en un Edit. |
#7
|
||||
|
||||
Pues lees el texto y lo muestras en el edit.
No sé cómo lo lees, supongo que cuando lo leas lo almacenarás en una variable. Ejemplo: cTextoLeido Pues:
|
#8
|
|||
|
|||
Cómo lo podría leer ese texto?
|
#9
|
||||
|
||||
Creía que era eso lo que tú has dicho que se puede hacer.
|
#10
|
|||
|
|||
Lo puedo hacer en visual basic... pero necesito ayuda para Delphi
|
#11
|
||||
|
||||
Pues ve haciéndolo y pregunta las dudas que te vayan surgiendo.
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Dropbox | MAXIUM | PHP | 2 | 03-01-2013 10:45:04 |
Base de datos servidor mysql alojado en la web | beteta | Conexión con bases de datos | 5 | 15-07-2012 16:01:28 |
Consulta sql alojado en hosting. | zeta2 | MySQL | 6 | 20-12-2010 13:32:16 |
Como leer un archivo de Texto alojado en un sitio web | Bertifox2008 | Internet | 9 | 18-04-2009 01:07:56 |
¿Como ejecuto remotamente un ejecutable alojado en una web? | dim | Internet | 7 | 20-07-2004 09:37:58 |
|