[SOLUCIONADO]Ayuda Con Bot para sacar Usuarios

RED_HORSE · 8 Marzo 2008, 21:22 PM

hola amigos estoy haciendo un bot y me quede un poco trancado por ello vengo aqui a sus ayuda

.
Al problema: El bot me devuelve una serie de datos el cual yo quiero sacar los nombres de los integrantes pero no se como hacerlo..bueno se como hacerlo pero solo me saca el de uno.
El dato que me tira el bot con los miembros es este

Código [Seleccionar]

<P><A href="http://www.fotolog.com/karo_mm">karo_mm</A> dijo en 
<P><A href="http://www.fotolog.com/siin_escrupulos">siin_escrupulos</A> dijo en 06/03/08 20:13 ... </P>
<P><A href="http://www.fotolog.com/cristianypablix">cristianypablix</A> dijo en 04/03/08 22:17 ... </P>
<P><A href="http://www.fotolog.com/joezzittas">joezzittas</A> dijo en 29/02/08 14:08 ... </P>

Del cual yo lo almaceno en una caja de texto pero como hago para sacar los nombre de los usuarios.....

karo_mm / siin_escrupulos / cristianypablix / joezzittas

ESTA es mi forma que intente hacer.

Supongamos que el dato lo guarde en un text5.text y quiero poner los user en el text6.text

Código [Seleccionar]

Ide = InStrRev(Text5, "<P><A href=")
da = Ide + 11
da = Mid(Text5, da)
p = Split(da, ">")
p = Split(p(1), "<")
Text6.Text = Text6.Text & p(0)

Pero como ven solo te pone el nombre del ultimo y no de los 4..

Espero con su ajuda gracias..

cheatmaster · 9 Marzo 2008, 01:43 AM

si me puedes dar 1 poco mas de info.. x ejemplo el bot se conecta a 1 web o base de dato o algo o como .. ?

((( SPAWN ))) · 9 Marzo 2008, 01:56 AM

Hola, suponiendo q los datos q obtenes los tenes en el text5, y solamente queres pasar los usuarios al text6, proba con esto:

Código [Seleccionar]


Private Const EM_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
Dim xPos&, n&, nlen&, x&, strCadena$
    n = SendMessage(Text5.hwnd, EM_GETLINECOUNT, 0, 0) '--> Obtiene la cantidad de lineas q posee textbox
    For i = 0 To n - 1 '--> Recorre todas las lineas
        strCadena = "": strCadena = Space$(256)
        x = SendMessage(Text5.hwnd, EM_GETLINE, i, ByVal strCadena) '--> Captura el texto de la primera linea
        xPos = InStr(1, strCadena, ">") '--> Encuentra la primera coincidencia del signo >
        xPos = InStr(xPos + 1, strCadena, ">") '--> Encuentra la segunda coincidencia del signo >
        strCadena = Mid$(strCadena, xPos + 1) '--> Extrae el resto de la cadena
        strCadena = Left$(strCadena, InStr(strCadena, "<") - 1) '--> Extrae el nombre del usuario de la cadena
        If strCadena <> "" Then
            Text6 = Text6 & Trim(strCadena) & " / " '--> Envia la cadena final a text6
        End If
    Next
End Sub

El text5 debe tener la propiedad Multiline a TRUE

Si no es lo q buscas pone mas info para q se entienda. Saludos

Chefito · 9 Marzo 2008, 18:16 PM

Muy buena la respuesta de ((( SPAWN ))). Aquí va otra más pataterilla sin apis

:

Código [Seleccionar]

Private Sub Command1_Click()
Dim PosIni As Integer, PosFin As Integer, PosIniMas2 As Integer
PosIniMas2 = 1
Do
DoEvents
PosIni = InStr(PosIniMas2, Text5.Text, """>")
PosIniMas2 = PosIni + 2
PosFin = InStr(PosFin + 4, Text5.Text, "</A>")
If PosIni <> 0 Then Text6.Text = Text6.Text & Mid(Text5.Text, PosIniMas2, PosFin - PosIniMas2) & vbCrLf Else Exit Do
Loop
End Sub

Saludos.
Modificación: Jajaja, al final decidí hacerlo un poco mejor, ya que el primer codigo lo veo un poco chapucero

.

Código [Seleccionar]

Private Sub Command1_Click()
Dim PosIni As Integer, PosFin As Integer, Matriz() As String
Matriz = Split(Text5.Text, vbCrLf)
For n = 0 To UBound(Matriz)
    PosIni = InStr(Matriz(n), """>")
    PosFin = InStr(Matriz(n), "</A>")
    If PosIni <> 0 Then Text6.Text = Text6.Text & Mid(Matriz(n), PosIni + 2, PosFin - (PosIni + 2)) & vbCrLf
Next
End Sub

Digo lo mismo ((( SPAWN ))), recuerda en poner los textbox multiline=true.
Saludos.

RED_HORSE · 9 Marzo 2008, 20:51 PM

mUy pero muy bueno ambos codigos mil gracias a ((( SPAWN ))) y Chefito.

Los code de ((( SPAWN ))) muy buena la explicasion. Auque queda un poco extenso pero me sirvio de mucho y seguro que a otros user tambien le servira y el coder de chefito muy bueno hera justo lo que estaba por hacer un bucle que vaya sacando cada coincidencia pero eso de la matriz Matriz() As String no lo entendi muy bien ni lo del vbCrLf. Pero hera mas o menos lo que buscaba muy bueno seles agradese.
Cuando uso este codigo pongo el text6 en multilinea y me aparece un solo usuario el ultimo pero cuando lo dejo sin multilinea me aparece todos

Código [Seleccionar]

Private Sub Command1_Click()
Dim PosIni As Integer, PosFin As Integer, Matriz() As String
Matriz = Split(Text5.Text, vbCrLf)
For n = 0 To UBound(Matriz)
    PosIni = InStr(Matriz(n), """>")
    PosFin = InStr(Matriz(n), "</A>")
    If PosIni <> 0 Then Text6.Text = Text6.Text & Mid(Matriz(n), PosIni + 2, PosFin - (PosIni + 2)) & vbCrLf
Next
End Sub

Chefito · 9 Marzo 2008, 21:36 PM

Que raro. Ese código va perfectamente. Yo lo que hice fue poner los dos text multilinea y copiar y pegar en el text5 el texto que dejaste en el post de ejemplo.
Si no pones el text6 multilinea, te salen todos pero seguidos....separados por dos cuadraditos (el vbcrlf). Si lo pones multilinea salen perfectos.
Pues lo que hago es definir una variable matriz, que es como si una misma variable fuesen muchas, diferenciandose por su indice. La orden split lo que hace es separar las lineas (ya que les puse el caracter separador vbcrlf) y almacenarlas en la matriz (array). Por eso la primera linea está en matriz(0), la segunda en matriz(1), etc.
Vbcrlf es una constante del vb. Indica un retorno de carro más un salto de linea (lo que tienen todas las lineas al final). Esta constante es igual a poner chr(10)+chr(13).
Saludos.

RED_HORSE · 9 Marzo 2008, 22:00 PM

Hola muchas gracias si ya estuve buscando y entendi todo a la perfeccion lo unico es que ahora me da mas largo los caracteres y no puedo separar nuevamente los usuarios jeje se me rre lio ahora los datos me manda completo con todo el coder de la pagina html.

los user que ponen la firma en el libro de visitas = aparecen como arriba pero el coder de chefito ya no me funciona????
ejemplo:
<P><A href="http://www.fotolog.com/tanilila">tanilila</A> dijo en 26/02/08

y me manda algo asi:

Código [Seleccionar]

<HEAD><TITLE>LoKoO oOH ..LokO Sin RemedioO!! - Soy Un Poco ParaNoicO Lo Siento!! - Fotolog</TITLE><LINK href="http://si.fotolog.com/favicon.ico" rel="shortcut icon">
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<STYLE type=text/css>
		@import url(http://si.fotolog.com/i58/css/global.css);
		@import url(http://si.fotolog.com/i58/css/extern/jqModal.css);
		@import url(http://si.fotolog.com/i58/css/www/photo/layout.css);
		@import url(http://si.fotolog.com/i58/css/www/photo/presentation.css);
		@import url(http://si.fotolog.com/i58/css/common/error_box.css);
		@import url(http://si.fotolog.com/i58/css/common/im.css);
	</STYLE>

<STYLE type=text/css>
		#dimmer {background: transparent url(http://si.fotolog.com/i58/images/fill.gif) repeat top left;}
		#loginBubble {background: transparent url(http://si.fotolog.com/i58/images/loginBg.png) no-repeat top left;}
	</STYLE>

<STYLE type=text/css>
		#loginBubble {background-image: url(none);}
		#loginBubbleFilter {filter: progid:DXImageTransform.Microsoft.AlphaImageLoader(sizingMethod='crop',src='http://si.fotolog.com/i58/images/loginBg.png');}
	</STYLE>

<STYLE type=text/css>
body {
	color: #00CCFF;
	background: #000099;
	}

a, a:visited, a:active { color: #708090; }
a:hover { color: #00CCFF; }


#hat { border: 1px solid #2222bb; }
#hat #languageSelector li #selectedIndicator { color: #00CCFF; }
#hat #languageSelector ul { background-color: #000099; }

#aboutCol h3 { border-bottom: 1px solid #2222bb; }
#aboutCol .block .data .profileImg { border: 1px solid #2222bb; }

#guestbook .module { border-bottom: 1px solid #2222bb; }
#footer { border-top: 1px solid #2222bb; }

.ffdivider { border-bottom:1px solid #2222bb; }
#guestbookForm .limit { color: #00CCFF; }
</STYLE>

<SCRIPT src="http://si.fotolog.com/i58/js/extern/jquery/jquery.js" type=text/javascript></SCRIPT>

<SCRIPT src="http://si.fotolog.com/i58/js/extern/browser.js" type=text/javascript></SCRIPT>

<SCRIPT src="http://si.fotolog.com/i58/js/lib/language_selector.js" type=text/javascript></SCRIPT>

<SCRIPT id=__ie_init src="//:" defer></SCRIPT>

<SCRIPT src="http://si.fotolog.com/i58/js/global.js" type=text/javascript></SCRIPT>

<SCRIPT type=text/javascript>
	JS_LINK_ERROR = "Sorry, an error occurred. Please try again.";
	</SCRIPT>

<SCRIPT src="http://si.fotolog.com/i58/js/extern/jquery/form.js" type=text/javascript></SCRIPT>

<SCRIPT src="http://si.fotolog.com/i58/js/extern/jquery/jqModal.js" type=text/javascript></SCRIPT>

<SCRIPT src="http://si.fotolog.com/i58/js/lib/jquery.fAjax.js" type=text/javascript></SCRIPT>

<SCRIPT src="http://si.fotolog.com/i58/js/www/photo.js" type=text/javascript></SCRIPT>

<SCRIPT src="http://si.fotolog.com/i58/js/extern/userplane/functions.js" type=text/javascript></SCRIPT>

<SCRIPT src="http://si.fotolog.com/i58/js/lib/messenger.js" type=text/javascript></SCRIPT>

<SCRIPT src="http://si.fotolog.com/i58/js/lib/jquery.dialog.js" type=text/javascript></SCRIPT>

<SCRIPT type=text/javascript>
function moveFreely(event) {
    if (event.keyCode == 74)
		window.location.href = "http://www.fotolog.com/robbysz/25190161";
    else if (event.keyCode == 75)
		return false;
}
</SCRIPT>
</HEAD>
<BODY><!-- google_ad_section_start(weight=ignore) -->
<DIV id=dimmer style="WIDTH: 900px; HEIGHT: 6692px"><!-- --></DIV>
<DIV id=loginBubble style="LEFT: -1px; TOP: 98px">
<DIV id=loginBubbleFilter>
<DIV class=loginBox><A class=closeLink href="javascript:void(0);dimmerLogin();">cerrar</A> 
<H3>Acceso miembros</H3>
<FORM action=http://account.fotolog.com/login method=post><INPUT type=hidden value=http://www.fotolog.com/robbysz name=redirect jQuery1205096295236="7"> 
<TABLE>
<TBODY>
<TR>
<TD class=label>Nombre de usuario:</TD>
<TD><INPUT maxLength=16 name=u_name jQuery1205096295236="8"></TD></TR>
<TR>
<TD class=label>Contraseña:</TD>
<TD><INPUT type=password value="" name=p_word jQuery1205096295236="9"></TD></TR>
<TR>
<TD></TD>
<TD><A href="http://account.fotolog.com/forgot_password">¿Olvidaste tu contraseña?</A></TD></TR>
<TR>
<TD></TD>
<TD class=submitIt><IMG class=btWing style="FILTER: progid:DXImageTransform.Microsoft.AlphaImageLoader (enabled=true,src='http://si.fotolog.com/buttons/buttonL.png')" alt="" src="http://si.fotolog.com/spacer.gif" jQuery1205096295236="3"><BUTTON class=btSubmit type=submit jQuery1205096295236="10">Ingreso</BUTTON><IMG class=btWing style="FILTER: progid:DXImageTransform.Microsoft.AlphaImageLoader (enabled=true,src='http://si.fotolog.com/buttons/buttonR.png')" alt="" src="http://si.fotolog.com/spacer.gif" jQuery1205096295236="4"></TD></TR></TBODY></TABLE></FORM></DIV></DIV></DIV><!-- begin hat -->
<DIV class=cfx id=hat>
<DIV class="inner cfx">
<DIV class=brand><A href="http://www.fotolog.com"><IMG id=logo style="FILTER: progid:DXImageTransform.Microsoft.AlphaImageLoader (enabled=true,src='http://spc.fotologs.net/photo/12/logos/logo_182x40_00ccff.png')" height=40 alt=Fotolog src="http://si.fotolog.com/spacer.gif" width=182></A>
<SCRIPT type=text/javascript>FUtil.fixPngTransparency(document.getElementById("logo"));</SCRIPT>
 </DIV>
<DIV class=search>
<SCRIPT type=text/javascript>var cleanSearch = true;</SCRIPT>

<FORM onsubmit="if (!this.elements[0].value || cleanSearch) return false;" action=http://search.fotolog.com/results method=get>
<DIV class=searchbox><INPUT class=searchField onfocus="cleanSearch=false;if (this.value=='Buscar') this.value = '';" value=Buscar name=q jQuery1205096295236="11"><BUTTON type=submit jQuery1205096295236="12">Go</BUTTON> 
<DIV id=searchChoices><SPAN id=poweredByGoogle>Busca con <EM>Google<SUP>™</SUP></EM></SPAN> <LABEL><INPUT class=searchchoice type=radio CHECKED value=web name=type jQuery1205096295236="13">WEB</LABEL> <LABEL><INPUT class=searchchoice type=radio value=site name=type jQuery1205096295236="14">FOTOLOG</LABEL> </DIV></DIV></FORM></DIV>
<DIV id=user>
<P><A href="http://account.fotolog.com/help">Ayuda</A></P>
<DIV id=languageSelector>
<UL jQuery1205096295236="2">
<LI class=notSelected><A href="http://www.fotolog.com/robbysz?locale=de">Deutsch</A> 
<LI class=notSelected><A href="http://www.fotolog.com/robbysz?locale=en">English</A> 
<LI class=selected><SPAN id=selectedIndicator>»</SPAN><A href="http://www.fotolog.com/robbysz?locale=es">Español</A> 
<LI class=notSelected><A href="http://www.fotolog.com/robbysz?locale=fr">Français</A> 
<LI class=notSelected><A href="http://www.fotolog.com/robbysz?locale=nl">Nederlands</A> 
<LI class=notSelected><A href="http://www.fotolog.com/robbysz?locale=pt_BR">Português</A> 
<LI class=notSelected><A href="http://www.fotolog.com/robbysz?locale=sv">Svenska</A> </LI></UL></DIV></DIV></DIV>
<DIV class=cfx id=univnav>
<UL class="cfx nologin" id=mynav>
<LI><A id=login href="javascript:void(0);" jQuery1205096295236="5">Iniciar sesión</A> o <A href="http://account.fotolog.com/register">Crea tu Cuenta!</A> </LI></UL>
<UL class="cfx nologin" id=discovernav>
<LI class=category style="MARGIN-RIGHT: 10px"><A href="http://info.fotolog.com/discover"><STRONG>Descubre</STRONG></A> › 
<LI style="MARGIN-RIGHT: 10px"><A href="http://geo.fotolog.com/directory">Miembros Cerca de Tí</A> 
<LI style="MARGIN-RIGHT: 10px"><A href="http://groups.fotolog.com/">Grupos</A> 
<LI style="MARGIN-RIGHT: 0px"><A href="http://www.fotolog.com/contest_home.html">Fotohunt</A> </LI></UL></DIV></DIV><!-- end hat -->
<DIV class=ad id=googleAd1><!-- Creative for 728 x 90 format -->
<SCRIPT language=javascript type=text/javascript> <!--
google_hints = "LoKoO oOH ..LokO Sin RemedioO!!";
google_ad_channel = "RestofWorld728x90";
google_language = "en";
google_ad_client = "ca-fotolog_intl_js";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "flash,image,text";
google_safe = "medium";
google_color_border = "000099";
google_color_bg = "000099";
google_color_link = "708090";
google_color_url = "708090";
google_color_text = "00CCFF";
//--></SCRIPT>

<SCRIPT src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type=text/javascript></SCRIPT>
<IFRAME name=google_ads_frame marginWidth=0 marginHeight=0 src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-fotolog_intl_js&amp;dt=1205096299018&amp;hl=en&amp;hints=LoKoO%20oOH%20..LokO%20Sin%20RemedioO!!&amp;adsafe=medium&amp;lmt=1205096299&amp;format=728x90_as&amp;output=html&amp;correlator=1205096299002&amp;channel=RestofWorld728x90&amp;url=http%3A%2F%2Fwww.fotolog.com%2Frobbysz&amp;color_bg=000099&amp;color_text=00CCFF&amp;color_link=708090&amp;color_url=708090&amp;color_border=000099&amp;ad_type=flash,image,text&amp;frm=0&amp;cc=100&amp;ga_vid=1037335263.1197438302&amp;ga_sid=1205092427&amp;ga_hid=985854556&amp;ga_fc=true&amp;flash=9.0.47.0&amp;u_h=600&amp;u_w=800&amp;u_ah=569&amp;u_aw=800&amp;u_cd=32&amp;u_tz=-180&amp;u_java=true" frameBorder=0 width=728 scrolling=no height=90 allowTransparency></IFRAME><NOSCRIPT><img height=1 width=1 border=0 src="http://pagead2.googlesyndication.com/pagead/imp.gif?client=ca-fotolog_intl_js&event=noscript"></NOSCRIPT></DIV>
<DIV id=title><!-- google_ad_section_end --><!-- google_ad_section_start -->
<H2>Soy Un Poco ParaNoicO Lo Siento!!</H2><!-- google_ad_section_end --><!-- google_ad_section_start(weight=ignore) -->
<UL class=links>
<LI><A href="http://www.fotolog.com/robbysz/about">Acerca de robbysz</A> </LI></UL>
<DIV id=geoLink><A href="http://geo.fotolog.com/directory?state=03&amp;city=RESISTENCIA&amp;country=AR">Resistencia</A>, <A href="http://geo.fotolog.com/directory?state=03&amp;country=AR">Chaco</A>, <A href="http://geo.fotolog.com/directory?country=AR">Argentina</A> </DIV></DIV>
<DIV id=wrapper><!-- BEGIN LEFT COL -->
<DIV id=leftCol>
<H3><A href="http://www.fotolog.com/all_photos.html?user=robbysz">Fotos Recientes</A> <EM>de robbysz</EM></H3>
<UL class=sidebarthumbs id=recentphotos>
<LI class=selected style="HEIGHT: 122px"><A href="http://www.fotolog.com/robbysz/25377750"><IMG src="http://sp3.fotologs.net/photo/3/37/2/robbysz/1204030213_t.jpg"></A> 
<P>26/02/08 »</P></LI>
<LI style="HEIGHT: 122px"><A href="http://www.fotolog.com/robbysz/25190161"><IMG src="http://sp3.fotologs.net/photo/3/37/2/robbysz/1203484355_t.jpg"></A> 
<P>20/02/08</P></LI>
<LI style="HEIGHT: 122px"><A href="http://www.fotolog.com/robbysz/25025676"><IMG src="http://sp3.fotologs.net/photo/3/37/2/robbysz/1203017158_t.jpg"></A> 
<P>14/02/08</P></LI>
<LI style="HEIGHT: 122px"><A href="http://www.fotolog.com/robbysz/24944667"><IMG src="http://sp3.fotologs.net/photo/3/37/2/robbysz/1202793630_t.jpg"></A> 
<P>12/02/08</P></LI>
<LI style="HEIGHT: 122px"><A href="http://www.fotolog.com/robbysz/24867348"><IMG src="http://sp3.fotologs.net/photo/3/37/2/robbysz/1202571552_t.jpg"></A> 
<P>09/02/08</P></LI>
<LI style="HEIGHT: 0px"><A href="http://www.fotolog.com/robbysz/24737495"><IMG src="http://sp3.fotologs.net/photo/3/37/2/robbysz/1202177829_t.jpg"></A> 
<P>04/02/08</P></LI></UL>
<P class=more><A href="http://www.fotolog.com/all_photos.html?user=robbysz">Más</A></P>
<DIV class=ffdivider></DIV>
<DIV class=feed><A class=imglink href="http://info.fotolog.com/feed_subscribe?u=robbysz"><IMG id=rss style="FILTER: progid:DXImageTransform.Microsoft.AlphaImageLoader (enabled=true,src='http://si.fotolog.com/i58/images/icon_feed.png')" alt="" src="http://si.fotolog.com/spacer.gif" align=absMiddle></A><A href="http://info.fotolog.com/feed_subscribe?u=robbysz">RSS de robbysz</A> </DIV>
<DIV class=ad id=googleAd2></DIV></DIV><!-- END LEFT COL --><!-- BEGIN CENTER COL -->
<DIV id=centerCol>
<DIV class=wrap>
<DIV id=mainphoto>
<UL class=mainphotonav>
<LI class=previous>« <A href="http://www.fotolog.com/robbysz/25190161">Anterior</A> </LI>
<LI class=next>Siguiente » </LI></UL><IMG alt="foto de robbysz en 26/02/08" src="http://sp3.fotologs.net/photo/3/37/2/robbysz/1204030213_f.jpg"> </DIV>
<DIV id=mainphototools>
<UL>
<LI>26/02/08 
<LI>Cámara: Sin indicar </LI></UL>
<UL id=mainphotolinks>
<LI><A href="http://my.fotolog.com/email_to_a_friend.html?p=0&amp;photo_id=25377750&amp;user=robbysz">Enviar esta foto por e-mail</A> 
<LI><A href="http://www.fotolog.com/robbysz/25377750">Permalink</A> </LI></UL></DIV>
<DIV id=mainphotodescription><!-- google_ad_section_end --><!-- google_ad_section_start -->
<H1 id=phototitle>LoKoO oOH ..LokO Sin RemedioO!!</H1>
<P>Arrimo mi voz <BR>y parece que no hay nada que contar <BR>el coyote nos comió <BR>el bolsillo se agujereó <BR>la balada para un loco se escuchó <BR><BR>Arrimo canción <BR>y la fiesta de la gente cantará <BR>el fuelle suspiró <BR>el bombo amaneció <BR>la esquina, la vereda se inundó <BR><BR>Loco sin remedio <BR>ya ni el mundo te gira <BR>loco sin consuelo <BR><BR>Arrimo mi sol <BR>y el invierno de la mente cambiará <BR>no importa lo que sos <BR>renace la ilusión <BR>aunque el mundo ande mudo y solo <BR><BR>La carroza del loco se va, con lunas y soles <BR>y promesas de amores, todo lo que quiera <BR>puede imaginar y las penas olvidar <BR><BR>La carroza del loco se va <BR><BR>Loco sin remedio <BR>ya ni el mundo te gira <BR>loco sin consuelo <BR>loco sin remedio <BR>loco sin consuelo</P><!-- google_ad_section_end --><!-- google_ad_section_start(weight=ignore) --></DIV>
<DIV class=ad id=googleAd4><!-- Creative for 300 x 250 format -->
<SCRIPT language=javascript type=text/javascript> <!--
google_hints = "LoKoO oOH ..LokO Sin RemedioO!!";
google_ad_channel = "RestofWorld300x250";
google_language = "en";
google_ad_client = "ca-fotolog_intl_js";
google_ad_width = 300;
google_ad_height = 250;
google_ad_format = "300x250_as";
google_ad_type = "flash,image,text";
google_safe = "medium";
google_color_border = "000099";
google_color_bg = "000099";
google_color_link = "708090";
google_color_url = "708090";
google_color_text = "00CCFF";
//--></SCRIPT>

<SCRIPT src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type=text/javascript></SCRIPT>
<IFRAME name=google_ads_frame marginWidth=0 marginHeight=0 src="http://pagead2.googlesyndication.com/pagead/ads?client=ca-fotolog_intl_js&amp;dt=1205096299768&amp;hl=en&amp;hints=LoKoO%20oOH%20..LokO%20Sin%20RemedioO!!&amp;adsafe=medium&amp;lmt=1205096299&amp;prev_fmts=728x90_as&amp;format=300x250_as&amp;output=html&amp;correlator=1205096299002&amp;channel=RestofWorld300x250&amp;url=http%3A%2F%2Fwww.fotolog.com%2Frobbysz&amp;color_bg=000099&amp;color_text=00CCFF&amp;color_link=708090&amp;color_url=708090&amp;color_border=000099&amp;ad_type=flash,image,text&amp;frm=0&amp;cc=100&amp;ga_vid=1037335263.1197438302&amp;ga_sid=1205092427&amp;ga_hid=985854556&amp;ga_fc=true&amp;flash=9.0.47.0&amp;u_h=600&amp;u_w=800&amp;u_ah=569&amp;u_aw=800&amp;u_cd=32&amp;u_tz=-180&amp;u_java=true" frameBorder=0 width=300 scrolling=no height=250 allowTransparency></IFRAME><NOSCRIPT><img height=1 width=1 border=0 src="http://pagead2.googlesyndication.com/pagead/imp.gif?client=ca-fotolog_intl_js&event=noscript"></NOSCRIPT></DIV>
<DIV id=guestbook>
<SCRIPT type=text/javascript>
		commentMax = 1500;
	</SCRIPT>

<DIV id=guestbook_posts>
<H3>Mensajes del Libro de Visitas (19)</H3><!-- google_ad_section_end --><!-- google_ad_section_start -->
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/tanilila">tanilila</A> dijo en 26/02/08 08:35 ... </P>
<P>prii </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/tanilila">tanilila</A> dijo en 26/02/08 08:36 ... </P>
<P>lla....primerissimmaa.<BR>se te xtraaññaa<BR>robyyyyyyyyyy<BR>jjee suerte en la facu..<BR>seguro te va a ir bienn!!1<BR>entre jjeeee<BR>siiisssssii<BR>entre en la facuu..<BR>...<BR>adio cursillo d emier..<BR>weno saludos nninio..!<BR><BR><BR><BR>beso rande...<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>tanii </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/lesliiieee">lesliiieee</A> dijo en 26/02/08 10:46 ... </P>
<P>L OK ISIMO jaajjaja q andes barbaroo nene cuidaate muchoo_:D </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/porairedeandar">porairedeandar</A> dijo en 26/02/08 11:54 ... </P>
<P>lakazooo! como va eso?<BR>q andes bien bolo!<BR><BR>se te quiere marido!<BR><BR><BR>unabrazO______________________________________________ </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/andiish">andiish</A> dijo en 26/02/08 12:02 ... </P>
<P>__$$$$$$$$*_____________________,,$$$$$$$$*<BR>___$$$$$$$$$$,,_______________,,$$$$$$$$$$*<BR>____$$$$$$$$$$$$___ ._____.___$$$$$$$$$$$$<BR>____$$$$$$$$$$$$$,_'.____.'_,,$$$$$$$$$$$$$<BR>____$$$$$$$$$$$$$$,, '.__,'_$$$$$$$$$$$$$$$<BR>____$$$$$$$$$$$$$$$$.@:.$$$$$$$$$$$$$$$$<BR>______***$$$$$$$$$$$@@$$$$$$$$$$$****<BR>__________,,,__*$$$$$$@.$$$$$$,,,,,,<BR>_____,,$$$$$$$$$$$$$* @ *$$$$$$$$$$$$,,,<BR>____*$$$$$$$$$$$$$*_@@_*$$$$$$$$$$$$$<BR>___,,*$$$$$$$$$$$$$__.@.__*$$$$$$$$$$$$$,,<BR>_,,*___*$$$$$$$$$$$___*___*$$$$$$$$$$*__ *',,<BR>*____,,*$$$$$$$$$$_________$$$$$$$$$$*,,____*<BR>______,;$*$,$$**'____________**'$$***,,<BR>____,;'*___'_.*__________________*___ '*,,<BR>,,,,.;*____________---____________ _ ____ '**,,,,<BR>*.°<BR>º<B>holas!<BR>...°solo paso a dejar mi huellitas como siempre...<BR>....Oque andes mas que biiem.<BR>.......°o O ° y que tengas un buem diia.<BR>.................°<BR>.............. °<BR>............. O<BR>.............o....o°Suerteee<BR>.................O....°Cuidatee<BR>............o°°O.....o<BR>...........O..........Obesos<BR>............° o o o O<BR>......................ºByeee<BR>...............º<BR>...........º<BR>........ºº *aNDii*</B> </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/mane_cai">mane_cai</A> dijo en 26/02/08 13:54 ... </P>
<P>CAEZA... TODO EL EXITO DEL MUNDO PARA MAÑANA...<BR><BR>TRANKI... VA A STAR TODO BIEN...<BR><BR>Y DE AHI EN ADELANTE FESTEJAMOS...<BR><BR>BUENO, ME FUI A LO DE LA TOPIZ A TOMAR MATES... NOS VEMOS </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/nico_radici">nico_radici</A> dijo en 26/02/08 14:46 ... </P>
<P>Jajaj!!!<BR><BR>Mi culpa no fue que no vayan los otros jugadores...Vos eras el organizador...<BR><BR>Yo lleve a mi jugador y viste que jugador no???jaja<BR><BR>Encima no me kerian meter goles o que?? que no entraba...jaja...<BR><BR>La proxima te muestro en un arco de 11...<BR><BR>Bueno despues jugamos tu ekipo contra el nuestro que andes bien...<BR><BR>Estas en F/F...<BR><BR>-------------------------NiCo------------------------------ </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/la_paiitoo">la_paiitoo</A> dijo en 26/02/08 16:15 ... </P>
<P>holaaa Roooo.. paso a saludar numas<BR><BR><BR>espero que andes bien <BR><BR><BR><BR>besitos :) </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/ile_ana_bel_g">ile_ana_bel_g</A> dijo en 26/02/08 16:20 ... </P>
<P>paSo robbiTooooo<BR>ya no las tengo a mi hiJaaas buuuuuuuuuuuuuua :(<BR>ya las vendiiii<BR>buaaaaaaaaaa<BR>ya las extraño buuuuuuuuua<BR>me voy...espero que vos tmb andes bien<BR>tqm <BR>bsos<BR><BR>|| i L e* </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/x_crz_x">x_crz_x</A> dijo en 26/02/08 19:07 ... </P>
<P>otra ves esa??? </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/x_crz_x">x_crz_x</A> dijo en 26/02/08 19:08 ... </P>
<P>suerte mañana cabeza... </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/naza_r">naza_r</A> dijo en 26/02/08 20:12 ... </P>
<P>ee roby<BR><BR>paso loko<BR><BR>metele al estudio che que nose si mañana a rendis jejeje<BR><BR>exitos! </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/lady_angeles">lady_angeles</A> dijo en 26/02/08 21:03 ... </P>
<P>Hnitooooooo espero que andes bien:)<BR>mil gracias por bancarme siempre!<BR>tkm!<BR>besotesss miless!!! </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/erwin_m">erwin_m</A> dijo en 26/02/08 22:05 ... </P>
<P>paso maridoo....che dp tengo q hablar con vos..!!pero no tengo tu nº dejamelo dp un abrazoo!! </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/stella_mrom">stella_mrom</A> dijo en 27/02/08 18:49 ... </P>
<P>HEEEEEEEEEY MANIIITO! <BR>como estas hermanito leeeemdo leeemmdo?<BR>yo aca luchando por sacar discreta jaja ya te va tocar ;)<BR><BR><BR>este año juntos en algoritmos :P y arquitectura, te espera<BR>algo muy bonito :P<BR><BR><BR><BR><BR><BR>TKM! y muchos exitos </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/joezzittas">joezzittas</A> dijo en 29/02/08 14:08 ... </P>
<P>holas!!<BR>me pasoo!<BR>somos muchos<BR>los que no tenemos remedio!!:)<BR>je!<BR>besitos nene!<BR>q andes biien! </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/cristianypablix">cristianypablix</A> dijo en 04/03/08 22:17 ... </P>
<P>Goto voy pasando dejando mi firma<BR><BR>que andes de 10!!!<BR><BR>un abrazo grande....<BR><BR>-------------pablitox------------ </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/siin_escrupulos">siin_escrupulos</A> dijo en 06/03/08 20:13 ... </P>
<P>suerte<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>mks! </P></DIV></DIV>
<DIV class=module>
<DIV class=comment>
<P><A href="http://www.fotolog.com/karo_mm">karo_mm</A> dijo en 06/03/08 20:16 ... </P>
<P>EU!!!!<BR>QERIDOOOO!!!<BR><BR>Q LIMDO TAZZZ!!!<BR>JAJJAAJAJJA!!!<BR><BR>ACA ANDO!!<BR><BR>DEJANDOTE MI RAYONCTOOOO!!!<BR><BR>YO TB T quiero MUCHOTEEE!!<BR>ES MAS...<BR><BR>T<BR>E<BR><BR>A<BR>D<BR>O<BR>R<BR>O<BR>O<BR>O<BR>!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<BR><BR>JAJAJA!!!<BR><BR>LA PROXMA VZ Q ANDES X SP M AVISASSS!!<BR><BR>NO T CORTES!!!<BR><BR>ENSERIO!!!<BR><BR>NO T CORTES!!!<BR><BR>UN BESO!!<BR><BR>UN RE RE REEEEE ABRAZO!!<BR><BR>UN SALUDOTE!!<BR><BR>chau,chau!! </P></DIV></DIV><!-- google_ad_section_end --><!-- google_ad_section_start(weight=ignore) --></DIV>
<DIV id=googleAd>
<DIV class=ad id=googleAd5></DIV></DIV>
<DIV class=nopost id=guestbookForm>
<DIV class=errorBox style="DISPLAY: block"></DIV>
<DIV class=nopostText>Lo sentimos - sólo usuarios de Fotolog pueden dejar mensajes en los libros de visita. <BR><A href="http://account.fotolog.com/login?redirect=http://www.fotolog.com/robbysz">Inicia sesión con tu cuenta</A> o <A href="http://account.fotolog.com/register">inscríbete a Fotolog ahora</A> - ¡es gratis! </DIV></DIV></DIV>
<UL class=mainphotonav>
<LI class=previous>« <A href="http://www.fotolog.com/robbysz/25190161">Anterior</A> </LI>
<LI class=next>Siguiente » </LI></UL></DIV></DIV><!-- END CENTER COL --><!-- BEGIN RIGHT COL -->
<DIV id=rightCol>
<H3><A href="http://www.fotolog.com/robbysz/ff">Amigos/Favoritos</A> <EM>de robbysz</EM></H3>
<DIV class=sideThumbs>
<DIV class=thumbsContainer><A href="http://www.fotolog.com/edicionlimittada/27838022"><IMG height=75 alt="foto de edicionlimittada en 09/03/08" src="http://sp3.fotologs.net/photo/19/40/56/edicionlimittada/1205076558_t.jpg" width=100></A> 
<DIV>09/03/08</DIV>
<DIV class=member><A href="http://www.fotolog.com/edicionlimittada/27838022">edicionlimittada</A> </DIV>
<DIV>Plantando Frijoles En, <A href="http://geo.fotolog.com/directory?state=03&amp;country=AR">Chaco</A>, <A href="http://geo.fotolog.com/directory?country=AR">Argentina</A> </DIV></DIV>
<DIV class=thumbsContainer><A href="http://www.fotolog.com/lucee_l/46049602"><IMG height=75 alt="foto de lucee_l en 09/03/08" src="http://spa.fotologs.net/photo/10/48/1/lucee_l/1205074594_t.jpg" width=100></A> 
<DIV>09/03/08</DIV>
<DIV class=member><A href="http://www.fotolog.com/lucee_l/46049602">lucee_l</A> </DIV>
<DIV>me falta todo en la viida..., <A href="http://geo.fotolog.com/directory?state=03&amp;country=AR">Chaco</A>, <A href="http://geo.fotolog.com/directory?country=AR">Argentina</A> </DIV></DIV>
<DIV class=thumbsContainer><A href="http://www.fotolog.com/ruubiesita/25747367"><IMG height=75 alt="foto de ruubiesita en 09/03/08" src="http://spc.fotologs.net/photo/44/41/108/ruubiesita/1205070278_t.jpg" width=100></A> 
<DIV>09/03/08</DIV>
<DIV class=member><A href="http://www.fotolog.com/ruubiesita/25747367">ruubiesita</A> </DIV>
<DIV>•???? T? Q???R? ????•, <A href="http://geo.fotolog.com/directory?state=03&amp;country=AR">Chaco</A>, <A href="http://geo.fotolog.com/directory?country=AR">Argentina</A> </DIV></DIV>
<DIV class=thumbsContainer><A href="http://www.fotolog.com/maticordoba/52801188"><IMG height=75 alt="foto de maticordoba en 09/03/08" src="http://sp6.fotologs.net/photo/54/48/115/maticordoba/1205050117_t.jpg" width=100></A> 
<DIV>09/03/08</DIV>
<DIV class=member><A href="http://www.fotolog.com/maticordoba/52801188">maticordoba</A> </DIV>
<DIV><A href="http://geo.fotolog.com/directory?state=03&amp;city=RESISTENCIA&amp;country=AR">Resistencia</A>, <A href="http://geo.fotolog.com/directory?state=03&amp;country=AR">Chaco</A>, <A href="http://geo.fotolog.com/directory?country=AR">Argentina</A> </DIV></DIV>
<DIV class=thumbsContainer><A href="http://www.fotolog.com/kiluakurapika/25786260"><IMG height=75 alt="foto de kiluakurapika en 09/03/08" src="http://spb.fotologs.net/photo/43/31/113/kiluakurapika/1205046240_t.jpg" width=100></A> 
<DIV>09/03/08</DIV>
<DIV class=member><A href="http://www.fotolog.com/kiluakurapika/25786260">kiluakurapika</A> </DIV>
<DIV><A href="http://geo.fotolog.com/directory?state=03&amp;city=RESISTENCIA&amp;country=AR">Resistencia</A>, <A href="http://geo.fotolog.com/directory?state=03&amp;country=AR">Chaco</A>, <A href="http://geo.fotolog.com/directory?country=AR">Argentina</A> </DIV></DIV>
<DIV class=thumbsContainer><A href="http://www.fotolog.com/mane_cai/52799934"><IMG height=75 alt="foto de mane_cai en 09/03/08" src="http://spf.fotologs.net/photo/63/41/60/mane_cai/1205043567_t.jpg" width=100></A> 
<DIV>09/03/08</DIV>
<DIV class=member><A href="http://www.fotolog.com/mane_cai/52799934">mane_cai</A> </DIV>
<DIV><A href="http://geo.fotolog.com/directory?state=03&amp;city=RESISTENCIA&amp;country=AR">Resistencia</A>, <A href="http://geo.fotolog.com/directory?state=03&amp;country=AR">Chaco</A>, <A href="http://geo.fotolog.com/directory?country=AR">Argentina</A> </DIV></DIV></DIV>
<P class=more><A href="http://www.fotolog.com/robbysz/ff">Más</A></P>
<DIV class=ffdivider></DIV>
<H3><A href="http://www.fotolog.com/robbysz/ff_groups">Grupos Favoritos</A> <EM>de robbysz</EM></H3>
<DIV class=sideThumbs>robbysz no ha añadido ningún grupo todavía. ¡Explora grupos <A href="http://groups.fotolog.com/">aquí</A>! </DIV>
<H3>Enlaces de <EM>robbysz</EM></H3>
<UL id=personallinks>
<LI><A href="http://" rel="nofollow noindex external">Solo Es Importante Lo que No Se Puede COmprar</A> </LI></UL>
<DIV class=ad id=googleAd3></DIV></DIV><!-- END RIGHT COL --></DIV><!-- END WRAPPER -->
<DIV id=footer>
<UL>
<LI><A href="http://info.fotolog.com/aboutus">Quiénes somos</A> 
<LI><A href="http://info.fotolog.com/faq">Preguntas</A> 
<LI><A href="http://info.fotolog.com/privacy">Política de Confidencialidad</A> 
<LI><A href="http://info.fotolog.com/terms">Condiciones de Uso</A> 
<LI><A href="http://info.fotolog.com/guidelines">Reglamento de la Comunidad de Fotolog.com</A> 
<LI><A href="http://info.fotolog.com/press">Lanzamiento de Prensa</A> 
<LI><A href="http://info.fotolog.com/advertisers">Publicistas</A> 
<LI><A href="http://my.fotolog.com/contact_us.html">Contáctanos</A> </LI></UL>
<P class=copyright>© 2002-2008 Fotolog, Inc. Fotolog ® es una marca registrada de Fotolog, Inc. Todos los derechos reservados.<BR>Partes de este sitio contienen contenidos con derecho de autor de miembros y otros terceros.<BR>Título de este contenido y derechos relacionados son reservados por el respectivo propietario de los derechos de autor.</P>
<P class=copyright>Fotolog es un sitio web de <B><A href="http://www.hi-media.com">la Red de Publicaciones Hi-Media</A></B>.</P></DIV>
<SCRIPT src="http://www.google-analytics.com/urchin.js" type=text/javascript>
</SCRIPT>

<SCRIPT type=text/javascript>
	_uacct = "UA-173245-1";
	urchinTracker();
</SCRIPT>

<SCRIPT src="http://edge.quantserve.com/quant.js" type=text/javascript></SCRIPT>

<SCRIPT type=text/javascript>
_qacct="p-d8BRmkYFk_H6w";quantserve();
</SCRIPT>

<DIV class=googleAd>
<DIV class=ad id=googleAd6></DIV></DIV>
<SCRIPT src="http://fotolog.crwdcntrl.net/cc.js" type=text/javascript></SCRIPT>

<SCRIPT type=text/javascript>
	LOTCC.addAction("view");
	LOTCC.addInterest("country:??");
	LOTCC.addInterest("member");
	LOTCC.domain="fotolog.crwdcntrl.net";
	LOTCC.client="15";
	LOTCC.bcp();
</SCRIPT>
<IMG id=vctr height=1 src="http://v.fotologs.net/v.gif?robbysz&amp;25377750&amp;&amp;??" width=1> <!-- google_ad_section_end --></BODY>

((( SPAWN ))) · 9 Marzo 2008, 22:47 PM

Hola RED_HORSE, me alegra q te sirvio mi code, yo probe el code de Chefito y anda 10 puntos

, explicame en q parte no te funciona, si es posible postea tu codigo, para probar segun como lo estas haciendo y poder detectar la falla

. Saludos.

Chefito · 10 Marzo 2008, 00:58 AM

Haber....hay que molestarse algo más en adaptar un código a las necesidades de uno, que no cuesta tanto. La adaptación del código anterior a lo que tu quieres sería algo así:

Código [Seleccionar]

Private Sub Command1_Click()
Dim PosIni As Integer, PosFin As Integer, Matriz() As String
Matriz = Split(Text5.Text, vbCrLf)
For n = 0 To UBound(Matriz)
    PosIni = InStr(Matriz(n), "<P><A href=" & Chr(34) & "http://www.fotolog.com/")
    If PosIni <> 0 Then
        PosFin = InStr(PosIni, Matriz(n), """>")
        Text6.Text = Text6.Text & Mid(Matriz(n), PosIni + 35, PosFin - (PosIni + 35)) & vbCrLf
    End If
Next
End Sub

Saludos.

RED_HORSE · 10 Marzo 2008, 06:00 AM

gracias chefito disculpa tanta molestia

es que no entiendo mucho esto de separa cadenas espesificas..

. Pero gracias por su tiempo.