Hola chicos como andan? n.n
tengo la siguiente duda supongamos
tengo un textbox que dice lo siguiente
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 :))
Suponiendo que tienes un Form con 1 Boton (Command1), 2 Labels (Label1 y Label2) y 2 TextBox (Text1 y Text2)
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!
quieres que cuando escribas una palabra clave el resto vaya por otra linea?
no puse code porque eso es lo que entendi
No entendi nada :)
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!¡.
TextBeetween Words (ojo, por ahi me comi/agregue una e)
O sino expresiones regulares (?