Foro de elhacker.net

Hola, tengo un texto en VB (text1) y en él hay un texto, por ejemplo "hola, me llamo HJ", lo que me gustaría es que, mediante una función, poder obtener el trozo de texto que yo quiera, por ejemplo, me gustaría poder coger el fragmento de texto que pone entre "me" y "HJ" entonces obtendría el valor "llamo"

Es muy sencillo de hacer pero ahora mismo no se me ocurre como hacerlo, he probado con InStr y Mid pero nada, me peta todo

Alguna ayudita?

Gracias!

pon el codigo que tienes, split en este caso igual te resulta mas sencillo.

Puedes seleccionar el texto y almacenarlo en una variable.

Ejemplo:

Dim Cadena As String
 
Private Sub Command1_Click()
     Text1.SelStart = 9
     Text1.SelLength = Len("llamo")
     Cadena = Text1.SelText
     Me.Print Cadena
End Sub
 
Private Sub Form_Load()
     Text1.Text = "Hola, me llamo HJ"
End Sub

o:

Private Sub Command2_Click()
     Me.Print ObtenerCadena(Text1, 9, Len("llamo"))
End Sub
 
Private Sub Form_Load()
     Text1.Text = "Hola, me llamo HJ"
End Sub
 
Private Function ObtenerCadena(Text As TextBox, Start As Integer, Longitud As Integer) As String
     Text.SelStart = Start
     Text.SelLength = Longitud
     ObtenerCadena = Text.SelText
End Function
 

http://foro.elhacker.net/programacion_visual_basic/src_funcion_textbetweenwords_by_psyke1-t295259.0.html

Salu2! ;)