Necesito programa sencillo automatizado

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP)

Programación Visual Basic (Moderadores: LeandroA, seba123neo)

Necesito programa sencillo automatizado

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: Necesito programa sencillo automatizado (Leído 3,304 veces)

K-19

Desconectado

Mensajes: 422

Sarah Wayne

Necesito programa sencillo automatizado

« en: 2 Noviembre 2009, 17:07 pm »

Hola a todos, necesito algo que me lea un txt o que yo mismo inserte en un textbox una secuencia de texto tal que asi:

Código:

http://www.foto1.jpg http://www.lamejorwebdelmundomundial.com
http://www.foto2.jpg http://www.google.es
http://www.foto3.jpg http://www.mediavida.com

Y que al darle a un boton me lo convierta asi:

Código:

<a href="http://www.lamejorwebdelmundomundial.com" target="_blank"><img class="alignnone" src="http://www.foto1.jpg" alt="" width="120" height="90" /></a><a href="http://www.google.es" target="_blank"><img class="alignnone" src="http://www.foto2.jpg" alt="" width="120" height="90" /></a><a href="http://www.mediavida.com" target="_blank"><img class="alignnone" src="http://www.foto3.jpg" alt="" width="120" height="90" /></a>

La idea la tengo clara pero llevo años sin tocar el visualbasic... seria algo así como tener una plantilla del estilo:

Código:

<a href="$web" target="_blank"><img class="alignnone" src="$foto" alt="" width="120" height="90" /></a>

Y cuando lea el txt o el texto insertado en un textbox tome la primera url como variable $web y la segunda como $foto y que lo reemplaze y que añada otra plantilla para realizar lo mismo con la siguiente secuencia de urls.

Gracias de antemano


	En línea

DarkMatrix

Desconectado

Mensajes: 150

Nuestro Limite es la Imaginacion

Re: Necesito programa sencillo automatizado

« Respuesta #1 en: 3 Noviembre 2009, 00:38 am »

En un formulario pon un textbox con multiline en true y scrollbars en Both, y un command botton ambos con nombres por defecto. en el codigo:

Código

 
Private Sub Command1_Click()
 
    Dim Imagen As String
    Dim Url As String
    Dim PathArchivo As String
 
    PathArchivo = "C:\Archivo.txt"
 
    Open PathArchivo For Input As #1
    While Not EOF(1)
    Input #1, Imagen, Url
    Text1.Text = Text1.Text & "<a href=""" & Url & """ target=""_blank""><img class=""alignnone"" src=""" & Imagen & """ alt="" width=""120"" height=""90"" /></a>" & vbCrLf
    Wend
    Close #1
 
End Sub

el archivo de texto debe estar asi:

Código:


http://www.foto1.jpg, http://www.lamejorwebdelmundomundial.com
http://www.foto2.jpg, http://www.google.es
http://www.foto3.jpg, http://www.mediavida.com

La foto debe estar separada de la url con una coma y cuando pulses el command 1 el resultado apàrecera en el text 1. espero que te sirva Saludos XD!!!


« Última modificación: 3 Noviembre 2009, 00:41 am por DarkMatrix »	En línea

Todo aquello que no se puede hacer, es lo que no intentamos hacer.
Projecto Ani-Dimension Digital Duel Masters (Juego de cartas masivo multijugador online hecho en Visual Basic 6.0)

Desing by DarkMatrix

K-19

Desconectado

Mensajes: 422

Sarah Wayne

Re: Necesito programa sencillo automatizado

« Respuesta #2 en: 4 Noviembre 2009, 01:48 am »

se agredece tu aporte pero como se haria para no tener que separar el link de la imagen y de la web por una coma? (,)

me gustaria que fuese un simple espacio, he intentado hacer retokes pero no me sale.


	En línea

Dessa

Desconectado

Mensajes: 624

Re: Necesito programa sencillo automatizado

« Respuesta #3 en: 4 Noviembre 2009, 02:19 am »

Código:


 Private Sub Command1_Click()
 
 Dim linea As String
 Dim PathArchivo As String
 PathArchivo = "C:\Archivo.txt"
 
 Open PathArchivo For Input As #1
   While Not EOF(1)
     Line Input #1, linea
     Dim linea2() As String
     linea2() = Split(linea, " ")
     Text1.Text = Text1.Text & "<a href=""" & linea2(1) & """ target=""_blank""><img class=""alignnone"" src=""" & linea2(0) & """ alt="" width=""120"" height=""90"" /></a>" & vbCrLf
   Wend
 Close #1
 
 End Sub


	En línea

Adrian Desanti

DarkMatrix

Desconectado

Mensajes: 150

Nuestro Limite es la Imaginacion

Re: Necesito programa sencillo automatizado

« Respuesta #4 en: 4 Noviembre 2009, 02:33 am »

Exactamente como lo coloco el amigo Dessa Saludos xD!!


	En línea

Todo aquello que no se puede hacer, es lo que no intentamos hacer.
Projecto Ani-Dimension Digital Duel Masters (Juego de cartas masivo multijugador online hecho en Visual Basic 6.0)

Desing by DarkMatrix

Dessa

Desconectado

Mensajes: 624

Re: Necesito programa sencillo automatizado

« Respuesta #5 en: 4 Noviembre 2009, 02:35 am »

agrega el siguiente if

If linea <> "" Then Text1.Text = Text1.Text & "<a href=""" & linea2(1) & """ target=""_blank""><img class=""alignnone"" src=""" & linea2(0) & """ alt="" width=""120"" height=""90"" /></a>" & vbCrLf

S2


	En línea

Adrian Desanti

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	automatizado de Canal de TV, basado en Batch DOS y VBasic… « 1 2 3 » Scripting	Dsalomon	21	16,777	1 Octubre 2012, 10:01 am por Eleкtro
	Necesito ayuda urgente con la creacion de un programa sencillo Programación C/C++	corniog	2	2,358	10 Marzo 2013, 10:01 am por leosansan
	Necesito un chat anónimo y sencillo. Mensajería	JonaLamper	6	4,256	17 Julio 2014, 21:38 pm por vk496
	Necesito una ayuda rapida en programa sencillo Programación C/C++	HectorSersi	5	2,053	29 Octubre 2018, 22:53 pm por Beginner Web
	necesito un proxy sencillo y free Dudas Generales	4rm4ndo	3	2,089	14 Noviembre 2019, 14:38 pm por Machacador