| ebolo |  |
|
2007-11-12 12:08 - Respuestas: 6 - Tema nº: 2474199
Hola de nuevo. Prueba lo siguiente, pero echalé también tú un poco de imaginación, que es lo bonito de la programación.Private Sub Command1_Click()
Dim pos As Integer, cadsust As String, cadsust1 As String, cadsust2 As String
pos = 1
cadsust = Text2.Text
'pasamos texto a minúsculas con LCase(string) y comparar siempre en minúsculas.
'para ver si le corresponde mayúsculas o minúsculas en la primera letra te lo dejo a tí.
For t = 1 To Len(Text2.Text)
If InStr(pos, LCase(cadsust), "me llamo") Then
'buscamos donde empieza el nombre en la variable pos
pos = InStr(pos, LCase(cadsust), "me llamo")
cadsust1 = Left$(cadsust, pos - 1)
cadsust2 = Right$(cadsust, Len(cadsust) - (pos + 7))
cadsust = cadsust1 & " soy " & cadsust2
Text4.Text = cadsust
cadsust = Text4.Text
pos = pos + 8
End If
Next t
End Sub
Un saludo.
| |
|
|
| wislow |  |
|
Re: Reconocer Textos con VB6 - 2007-11-13 18:12 - Respuesta 7
Muchas gracias por tu respuesta, y por tu consejo ebolo, lo que pasa es que tengo que intercalar los estudios, que cada vez se ponen más difíciles con mi afición, que es la programación, por lo que no puedo dedicarle tanto tiempo como quisiera, pero intentaré hacerte caso, y quizá algún día alcance unos conocimientos similares a los que tu posees. Saludos con admiración del agradecido Wislow. | |
|
|
|
