Leer Txbox por partes y validar una condicion ¿posible?

[Luna71c0]

Hola chicos como andan? n.n

tengo la siguiente duda supongamos

tengo un textbox que dice lo siguiente

Código [Seleccionar] Expandir


Hola bienvenido
cuando niegas algo dices NO o si? pregunta que todos nos hacemos dia a dia
saludos


hagan de cuenta que es un textbox multiline e.e

yo quiero saber si se puede decir que

si hay algo dentro del text box que sea igual a un label que diga emm no se  "cuando niegas" me copie el resto hasta otro label que sea "dia a dia" por ejemplo xD

eso es posible y mi imaginacion supero los limites?

gracias por leer ( y por ayuda si es posible )

[MCKSys Argentina]

Suponiendo que tienes un Form con 1 Boton (Command1), 2 Labels (Label1 y Label2) y 2 TextBox (Text1 y Text2)

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim strAux As String
Dim strAux2 As String
Dim strAux3 As String
Dim pos1 As Long
Dim pos2 As Long
Dim offset As Long

'Pongo estos valores para que se entienda
'Text1 y Text2 tiene .MultiLine en True
'Text1.Text = "Hola bienvenido" + vbCrLf + "cuando niegas algo dices NO o si? pregunta que todos nos hacemos dia a dia" + vbCrLf + "saludos"
'Text2.Text = ""
'Label1.Caption = "cuando niegas"
'Label2.Caption = "dia a dia"

'siempre conviene usar variables antes que propiedades de objetos
strAux = Text1.Text
strAux2 = Label1.Caption
strAux3 = Label2.Caption

pos1 = InStr(1, strAux, strAux2)
If pos1 <> -1 Then
    'si label1 existe en el texto1
    pos2 = InStr(1, strAux, strAux3)
    If InStr(1, strAux, strAux3) <> -1 Then
        'si label2 existe en el texto1
        If pos2 > pos1 Then
            'si label2 esta despues que label1 (dentro del texto1)
            pos1 = pos1 + Len(strAux2)
            offset = pos2 - pos1
            Text2.Text = Mid(strAux, pos1, offset)
        End If
    End If
End If
End Sub


Saludos!

[x64core]

quieres que cuando escribas una palabra clave el resto vaya por otra linea?
no puse code porque eso es lo que entendi

[seba123neo]

No entendi nada 

[BlackZeroX]

Busca en los retos o en algunos temas atras hay una funcion llamada

BettweWords o algo asi, esa funcion te servira para lo que deseas realizar.

Dulces Lunas!¡.

[raul338]

TextBeetween Words (ojo, por ahi me comi/agregue una e)
O sino expresiones regulares (?