[SOLUCIONADO] Seleccionar parte de un texto (inicio y fin)

[ameno123]

Hola,

Estoy programando un sistema simple y tengo un texto muy grande y lo que quiero es acortarlo poniendo la palabra de inicio y la palabra de fin.

Supongamos:

"Hola, bienvenidos a forosdelweb.com, la mejor página."

Y yo quiero que muestre: "bienvenidos a forosdelweb.com"

Intenté con las funciones left, mid y right,, pero yo necesito marcar las palabras, no la cantidad de caracteres.

[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
 

[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.

[erbuson]

Se me ocurre pensar que tu variable ContEnido no estaba definida como String, por el tipo de error que te devuelve.

Me alegro de que te haya servido.

Saludos