Foro de elhacker.net

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

quiero que de esa oracion que puse arriba extraiga las palabras pero no me doy una idea :S

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

 
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

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

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

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

PD: No lo he probado pero debe de funcionar.

gracias funciona :D