Comparar string

[marcos.gurupi]

Caros colegas, estou usando uma comparacao de string para separar um determinado produto e calcular a venda. Segue a explicação abaixo do que estah ocorrendo:

Tenho um combobox que o conteudo escolhido pelo usuario eh: DIESEL

Tenho um dbf dos caixas onde tem todas as vendas dos produtos do dia, entaum lah eu tenho:

Produto:
GASOLINA COMUN
GASOLINA ADITIVADA
DIESEL
DIESEL S-10
ETHANOOL

Ocorre que o codigo abaixo traz alem dos produtos DIESEL, traz tb DIESEL S-10, onde deveria soh vim DIESEL

Código: Selecionar todos

If SubStr(Produto,1,Len(Produto)) = SubStr(oProduto:GetText(),1,Len(oProduto:GetText()))

Tentei usar o alltrim() mas nao tive sucesso. Em q estou comendo bola ?

:%

[ANDRIL]

Tenta assim:

Código: Selecionar todos

If SubStr(Produto,1,Len(oProduto:GetText())) = SubStr(oProduto:GetText(),1,Len(oProduto:GetText())) 

Caso não funcione acima:

Código: Selecionar todos

If SubStr(Produto,1,Len(oProduto:GetText())) == SubStr(oProduto:GetText(),1,Len(oProduto:GetText())) 

Ate+

[Toledo]

Marcos, tente usar o SET EXACT ON ou utilize o operador == (igual duplo).

Abraços,

[marcos.gurupi]

Obrigado por responder toledo. Eu jah havia tentando o operador == mas sem o set extract on. O problema foi solucionado usando o codigo abaixo, graças ao colega Toya:

Código: Selecionar todos

cAux := alltrim( oProduto:GetText() )

...
...

If alltrim( Produto ) == cAux // Ai deu certo assim.

Obrigado mais uma vez ao colega Toya.

[Toledo]

Eu jah havia tentando o operador == mas sem o set extract on.

Atenção, não é set extract on, o correto é SET EXACT ON.

Abraços,

[marcos.gurupi]

Obr pela correção

[alxsts]

Olá!

Não entendi como você havia tentado == e não deu certo. Depois o Toya colocou == como solução e deu certo...

Segundo o Manual do Clipper, SET EXACT não tem nenhuma influência sobre o operador ==

deveria soh vim DIESEL

Este ator trabalha muito bem! )

[Toledo]

SET EXACT não tem nenhuma influência sobre o operador ==

Mas tem influência sobre o operador =, veja o que diz o manual do Clipper:

When EXACT is OFF two character strings are compared according to the
following rules; assume two character strings, cLeft and cRight,
where the expression to test is (cLeft = cRight):

- If cRight is null, return true (.T.).

- If LEN(cRight) is greater than LEN(cLeft), return false (.F.).

- Compare all characters in cRight with cLeft. If all
characters in cRight equal cLeft, return true (.T.); otherwise
return false (.F.).

With EXACT ON, two strings must match exactly, except for trailing
blanks.

Abraços,

[sambomb]

Olá!

Não entendi como você havia tentado == e não deu certo. Depois o Toya colocou == como solução e deu certo...

Segundo o Manual do Clipper, SET EXACT não tem nenhuma influência sobre o operador ==

deveria soh vim DIESEL

Este ator trabalha muito bem! )

Repare que tem o AllTrim no código do Toya, ele estava comparando sem verificar os espaços

Exemplo:

Var1 := PadR("Teste",10)
Var2 := "Teste"


? Var1 == Var2 //-- Retorna falso por causa dos espaços a direita do Var1

? AllTrim(Var1) == AllTrim(Var2) //-- Retorna verdadeiro

[alxsts]

Olá!

Valeu amigos. Acho que a questão ficou bem esclarecida.