Seleccionar parte de un texto (inicio y fin)

[ameno123]

Iniciado por erbuson

Hola:

Para ello puedes utilizar por ejemplo esta funcion

Código vb:

Private Sub Command1_Click()
MsgBox CadenaEntre("Hola, bienvenidos a forosdelweb.com, la mejor página.", "bien", ".com")
End Sub
 
Public Function CadenaEntre(Cadena As String, Desde As String, Hasta As String) As String
  Dim Inicio As Integer, Final As Integer
  ' Buscamos donde empieza el texto inicial
  Inicio = InStr(Cadena, Desde)
  ' Si no la encuentra sale de la funcion sin devolver nada
  If Inicio = 0 Then Exit Function
  ' Buscamos donde empieza el texto final
  Final = InStr(Inicio + 1, Cadena, Hasta)
  ' Si no la encuentra sale de la funcion sin devolver nada
  If Final = 0 Then Exit Function
  ' Devuelve el dato buscado
  CadenaEntre = Mid$(Cadena, Inicio, Final + Len(Hasta) - Inicio)
End Function
 

El ejemplo es perfecto, pero cuando le puse un texto muy grande dentro de una variable y lo coloqué así: Label1.Caption = CadenaEntre(ContEnido, "Fichero", "¿Quiere")

Me muestra el siguiente error: byref argument type mismatch
Y marca la siguiente linea: ContEnido = WebBrowser1.Document.Body.innertext
Ya que yo saco el texto de Internet.



EDITO: SOLUCIONADO

Cambié lo siguiente: Label1.Caption = CadenaEntre(ContEnido, "Fichero", "¿Quiere")
Por: Label1.Caption = CadenaEntre(WebBrowser1.Document.Body.innertext, "Fichero", "¿Quiere")

Muchisimas Gracias erbuson.