identificar varias palabras en una oracion

[asdexiva]

alguien podria darme una idea de como hacerlo , ojo no estoy pidiendo codigo e tratado con ciclos if pero no funciona como yo quiero ejemplo

tengo este oracion
el señor panfilo anacleto me pidio prestado 2000 y me  quedo a deber con pagare

quiero que tome la palabra prestado y la palabra pagare

y yo mediante esas palabras deducir que prestado seria un deudor diverso y la palabra pagare es un documento por pagar

en lo unico que pido que me orienten es como aria para usar varios if al mismo tiempo para verificar la oracion xD o si ay alguna mas facil gracias

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1 = "prestado" Then
If Text1 = "pagare" Then
label1.Caption = "incluye deudores diversos y documentos por pagar"
End Sub
quiero que de esa oracion que puse arriba extraiga las palabras pero no me doy una idea :S

[Mad Antrax]

Utiliza InStr() > 0 para saber si existe una palabra dentro de un string, ejemplo:

Código (vb) [Seleccionar] Expandir



X = "Hola que tal soy colosal"

If InStr(X, "colosal") > 0 Then MsgBox "existe colosal"
If InStr(X, "invento") > 0 Then MsgBox "existe invento"



Ese codigo solo mostrará el primer MsgBox.

Saludos

[asdexiva]

gracias eso era lo que necesitaba

una preguntilla nomas por que >0

[Mad Antrax]

gracias eso era lo que necesitaba

una preguntilla nomas por que >0

InStr devuelve la posición de la estring encontrada. Si la string no se encuentra devuelve 0

Por eso hago la comprobación: Si devuelve algo mayor que 0 significa que ha encontrado algo

[asdexiva]

alguna idea para hacer esto
me dice no coinciden los tipos no se pueden 2 al mismo tiempo?

Código [Seleccionar] Expandir

If InStr(Text1, "mercancia" "deber") > 0 Then MsgBox "acredor"

[fary]

alguna idea para hacer esto
me dice no coinciden los tipos no se pueden 2 al mismo tiempo?

Código [Seleccionar] Expandir

If InStr(Text1, "mercancia" "deber") > 0 Then MsgBox "acredor"

Código (vb) [Seleccionar] Expandir

If ( InStr(Text1, "mercancia") > 0 or  InStr(Text1,"deber") > 0 ) Then MsgBox "acredor"

PD: No lo he probado pero debe de funcionar.

[asdexiva]

gracias funciona