Leer Txbox por partes y validar una condicion ¿posible?

Iniciado por Luna71c0, 15 Diciembre 2011, 21:38 PM

0 Miembros y 1 Visitante están viendo este tema.

Luna71c0

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 :))

Citar
Un pequeño paso para el programador....
Un gran paso para el hacker...

...]LunaHAck[...


i'm the "Luna71c0"

MCKSys Argentina

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!
MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."


x64core

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

seba123neo

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

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!¡.
The Dark Shadow is my passion.

raul338

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