Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: K-19 en 2 Noviembre 2009, 17:07 pm


Título: Necesito programa sencillo automatizado
Publicado por: K-19 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

Título: Re: Necesito programa sencillo automatizado
Publicado por: DarkMatrix 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
  1.  
  2. Private Sub Command1_Click()
  3.  
  4.     Dim Imagen As String
  5.     Dim Url As String
  6.     Dim PathArchivo As String
  7.  
  8.     PathArchivo = "C:\Archivo.txt"
  9.  
  10.     Open PathArchivo For Input As #1
  11.     While Not EOF(1)
  12.     Input #1, Imagen, Url
  13.     Text1.Text = Text1.Text & "<a href=""" & Url & """ target=""_blank""><img class=""alignnone"" src=""" & Imagen & """ alt="" width=""120"" height=""90"" /></a>" & vbCrLf
  14.     Wend
  15.     Close #1
  16.  
  17. End Sub
  18.  

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!!!

Título: Re: Necesito programa sencillo automatizado
Publicado por: K-19 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.

Título: Re: Necesito programa sencillo automatizado
Publicado por: Dessa 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




Título: Re: Necesito programa sencillo automatizado
Publicado por: DarkMatrix en 4 Noviembre 2009, 02:33 am
Exactamente como lo coloco el amigo Dessa Saludos xD!!

Título: Re: Necesito programa sencillo automatizado
Publicado por: Dessa 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


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines