PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 24 → EXEMPLO DA FUNÇÃO STRINGDIFF( X, Y) BY BOLLER :-)
EXEMPLO DA FUNÇÃO STRINGDIFF( X, Y) BY BOLLER :-)
Started by BOLLER, Nov., 08 2019 9:02 PM - No answer
Registered member
2,969 messages
Popularité : +89 (91 votes)
Posted on November, 08 2019 - 9:02 PM
EXEMPLO DA FUNÇÃO STRINGDIFF( X, Y) BY BOLLER :-)





//EXEMPLO CODE IN CHECKBOX PARA OBTER OS VALORES DOS CHECKS ANTES DE CLICAR
//EVENTO ENTRY EDT
x,y is int
x = CBOX_teste..Count
gsresultadoantes = ""
LOOP(x)
y++
IF CBOX_teste[y] = True
gsresultadoantes += "1"
ELSE
gsresultadoantes += "0"
END
END



//EXEMPLO CODE IN CHECKBOX PARA OBTER OS VALORES DOS CHECKS ANTES DE CLICAR
//EVENTO EXIT EDT
x,y is int
x = CBOX_teste..Count
gsResultadodepois = ""
LOOP(x)
y++
IF CBOX_teste[y] =True
gsResultadodepois += "1"
ELSE
gsResultadodepois += "0"
END
END




EXEMPLO DA FUNÇÃO STRINGDIFF( X, Y) BY BOLLER :-)
//EVENT IN BUTTON COMPARE
// Summary: Permite saber a posicao da string que tem a diferença de caracter entre duas strings
// Syntax:
//[ <Result> = ] StringDiff (<ValorAnterior>, <ValorPosterior>)
//
// Parameters:
// ValorAnterior:
// ValorPosterior:

Procedure StringDiff(ValorAnterior, ValorPosterior)

//Permite saber a posicao da string que tem a diferença de caracter entre duas strings

x, nDiff is int
sDiff is string

nQtde is int = Length(ValorAnterior)

IF Length(ValorAnterior) = Length(ValorPosterior) THEN

LOOP(nQtde)
x++
IF Middle(ValorAnterior,x,1) <> Middle(ValorPosterior,x,1) THEN
//toastdisplay("clicou nesse "+x)
nDiff = x
sDiff = Middle(ValorAnterior,x,1) +"<>"+ Middle(ValorPosterior,x,1)
END
END

ELSE

ToastDisplay("Tamanho diferente das strings, assim é impossivel comparar, são diferentes mesmo!")

END

arrayResultado is array of string
Add(arrayResultado,nDiff)
Add(arrayResultado,sDiff)

RESULT arrayResultado


//MODO DE USAR
arrResultCompare is array of string = StringDiff(gsresultadoantes, gsResultadodepois)
Info(arrResultCompare[1])
Info(arrResultCompare[2])


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Message modified, November, 08 2019 - 9:04 PM