| wislow |  |
|
2007-10-06 10:17 - Respuestas: 6 - Tema nº: 2474199
Características: Windows XP Profesional, 1024 GB de Ram, AMD Athlon 3500, 2.20 GHz, 120GB.
Hola, estoy haciendo un programa capaz de resumir textos según su contenido basándose en una base de datos, por ejemplo, al poner en el texto1 la frase "Me llamo Wislow" y pulsar el botón, sale en el Texto 2, "Soy Wislow", pero no consigo pasar de ese punto, ¿en qué me equivoco?, en el botón pongo el siguiente código simplificado para ver el resultado: If Text1.Text = "Me llamo Wislow" Then
Text2.Text = "Soy Wislow"
Else
Text2.Text = Text1.Text
End If
End Sub
Después, evidentemente, ampliaria dicha base, pero, me refiero, a que no me sirve porque sólo lo reconoce si el texto inicial es exactamente igual el estipulado, cuando yo, lo que quiero, es que, al leer "Me llamo" y el resto del Texto, ponga "Soy" y el resto del texto en el Texto2. Saludos, Wislow.
| |
|
|
| ebolo |  |
|
Re: Reconocer Textos con VB6 - 2007-10-06 10:46 - Respuesta 2
Hola Wisow;
debes de usar la función InStr(empezar, cadenadondebuscar, cadenaabuscar).
donde 'empezar' es opcional, y si no le pones valor comienza a buscar en la posición cero.
Private Sub Command1_Click()
Dim pos As Integer
If InStr(Text1.Text, "Me llamo") Then
'buscamos donde empieza el nombre en la variable pos
pos = InStr(InStr(Text1.Text, " ") + 1, Text1.Text, " ")
Text2.Text = "Soy " & Right$(Text1.Text, Len(Text1.Text) - pos)
End If
End Sub
Mira la ayuda del vb; si no te aclaras lo dices.
Saludos.
| |
|
|
| wislow | |
|
Re: Reconocer Textos con VB6 - 2007-10-06 11:33 - Respuesta 3
Muchas Gracias Ebolo, Saludos, Wislow | |
|
|
| wislow | |
|
Re: Reconocer Textos con VB6 - 2007-11-09 18:52 - Respuesta 4
Hola ebolo, muchas gracias de nuevo, pero ya he probado el código, y yo me refería a que realizase ese cambio en todos los "me llamo" que hubiese en el texto si se puede hacer. Saludos, y perdón por mi falta de expresión, Wislow. | |
|
|
| wislow | |
|
Re: Reconocer Textos con VB6 - 2007-11-10 11:54 - Respuesta 5
Hola de nuevo, pero también me he dado cuenta de que solo reconoce el fragmento "Me llamo" en el principio del texto y con la "M" en mayúscula, y me gustaría seber si se puede hacer que reaccione esté donde esté, tantas repeticiones como existan y sin diferencias entre mayúsculas y minúsculas. Saludos repetidos por parte de Wislow. | |
|
|
|
