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
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
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
Cita de: asdexiva en 26 Noviembre 2014, 23:38 PM
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" "deber") > 0 Then MsgBox "acredor"
Cita de: asdexiva en 27 Noviembre 2014, 22:14 PM
alguna idea para hacer esto
me dice no coinciden los tipos no se pueden 2 al mismo tiempo?
If InStr(Text1, "mercancia" "deber") > 0 Then MsgBox "acredor"
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