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! ;)