Como hacer una funcion similar a explode() para visual basic (lo explico)

[ivanguillen]

Hola amigos!!
tenia una duda, estoy creando un editor html, y quiero que la ventana del editor me muestre el mismo titulo del html, entonces, tengo que hacer, que cada vez que se cambie algo del documento, se mire entre los tags <title></title> y ponerlo en el titulo del formulario, y comprobar si esta en blanco claro,
bueno amigos espero que me podais ayudar, bye!!!

[Jad-Neo]

Hola, puede ser de la siguiente forma:

Código:

Function HTML_Title(tBox As TextBox) As String
Dim Inst1 As Long, Inst2 As Long

Inst1=InStr(tBox.Text, "<title>") )
If Inst = 0 Then HTML_Title = "Sin título": Exit Function 'Si no hay etiqueta de título
Inst2=InStr(tBox.Text, "</title>", Inst1 + 7)

If Mid(tBox.Text, Inst1 + 7, 8) = "</title>" Then HTML_Title = "Sin título": Exit Function 'Si hay etiqueta pero no hay título [<title></title>]

HTML_Title=Mid(tBox.Text, Inst1 + 7, Inst2 - (Inst1 + 7))

End Function

Este código lo puedes poner después del comando que le des a tu programa para cargar la página HTML para que te busque el título. Espero no hallan errores pero si los hay me mandas un mensage privado. OK bye

[aldo1982]

tb podria ser...si lo ke está entre <title> </title> = "" entonces ke el caption del formn sea igual a "titulo en blanco"

dim titulo as string

titulo = "<title> </title>"
if instr(titulo,0,8) = "" then 'revisar esto, ya ke lo hice a las apuradas jeejej
form1.caption = "sin titulo"
endif