Ayuda con VB6

kr0m0 · #1 (**permalink**) 24/10/2003, 10:55

Necesito hacer un programa que haga lo siguiente:

Tengo un codigo en HTML y quiero que al presionar un command button lo pase a un textbox pero sustituyendo ciertas partes del codigo, por ejemplo tengo

<html>
<head><title>Tu titulo</title>
<head>
</html>

y quiero que en un text box pongan el titulo de la pagina y se pase a otro texto box completo, por ejemplo

<html>
<head><title>Tu titulo</title>
<head>
</html>

|
v

<html>
<head><title>titulo de un text box</title>
<head>
</html>

ya he intentado de varias formas pero no me da resultado , si alguien puede ayudarme se lo agradeceria mucho.

RootK · #2 (**permalink**) 24/10/2003, 16:57

Mi idea sería la siguiente:

Por ejemplo tienes un textbox1 el cual iría el contenido del html

textbox1.text ="<html><head><title>Tu titulo</title>" & _
"<head> </html> "

RootK · #3 (**permalink**) 24/10/2003, 17:01

Mi idea sería la siguiente:

Por ejemplo tienes un textbox1 el cual iría el contenido del html

Textbox1.text ="<html><head><title>Tu titulo </title>" & _
"<head> </html>"

Pero ojo.. puedes utilizar algun tipo de delimitador para despues hacer la sustutución por ejemplo los parentesis..

Textbox1.text ="<html><head><title>(Tu titulo) </title>" & _
"<head> </html>"

Ahora.. tienes un TextBox2. donde quieres que se vea el resultado.. y finalmente un Textbox3 para escribir el título que deseo que aparezca.

pones tu boton y pondrías ésto código.

Cita:

Dim str As String
str = TextBox1.Text
str = Mid(str, InStr(str, "("))
str = Mid(str, 1, InStr(str, ")"))
str = Replace(TextBox1.Text, str , TextBox3.Text)
TextBox2.Text = str

Y lo que hace el leer los delimitadores (parentesis) en base a eso remplazar todo lo que esté dentro de los parentesis por el título que deseemos.

Y listo.. automáticamente te mostrará el resultado esperado.

Espero te sirva el ejemplo.

Suerte