FOR EACH mudou ???

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Responder
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

FOR EACH mudou ???

Mensagem por JoséQuintas »

Já fiz isto antes, mas agora está diferente.
Agora está limitando ao menor.
Houve alguma mudança no FOR/EACH?

Nota: já alterei pra array e acontece o mesmo.

Código: Selecionar todos

#include "inkey.ch"

PROCEDURE Main

   LOCAL cText := "TESTANDO CRIPTO", cKeyList := "123456"
   LOCAL cLetter, cNumber
   LOCAL cCripto := "", cDescripto := ""

   //cKeyList := Left( Replicate( cKeyList, 5 ), Len( cText ) )

   FOR EACH cLetter, cNumber IN cText, cKeyList
      cCripto += Chr( Asc( cLetter ) - Val( cNumber ) )
   NEXT

   ? cCripto

   FOR EACH cLetter, cNumber IN cCripto, cKeyList
      cDescripto += Chr( Asc( cLetter ) + Val( cNumber ) )
   NEXT

   ? cDescripto
   Inkey(0)

   RETURN
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Voltar ao topo
Avatar do usuário
Vlademiro
Usuário Nível 4
Usuário Nível 4
Mensagens: 752
Registrado em: 11 Jul 2005 02:46

FOR EACH mudou ???

Mensagem por Vlademiro »

Na época em que eu escrevi o ebook sobre Harbour (2016) já era assim. O menor é que determina o número de iterações.
Voltar ao topo
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

FOR EACH mudou ???

Mensagem por JoséQuintas »

Devo ter considerado diferente, sem ter conferido o resultado.

E o conteúdo do ebook? é domínio público? poderia fazer parte do Harbour?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Voltar ao topo
Avatar do usuário
Vlademiro
Usuário Nível 4
Usuário Nível 4
Mensagens: 752
Registrado em: 11 Jul 2005 02:46

FOR EACH mudou ???

Mensagem por Vlademiro »

Sim, o ebook é de domínio público. Pode fazer parte de qualquer produto ou serviço. Só gostaria que os créditos fossem mantidos em cima do trabalho que foi feito.
Voltar ao topo
syslink
Usuário Nível 3
Usuário Nível 3
Mensagens: 132
Registrado em: 20 Fev 2018 13:13
Localização: joinvile/sc

FOR EACH mudou ???

Mensagem por syslink »

o ebook é de domínio público
por gentileza, onde está o link do ebook pra gente baixar/ler, etc?

obg.
Voltar ao topo
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

FOR EACH mudou ???

Mensagem por JoséQuintas »

viewtopic.php?f=5&t=19591&p=127153&hilit=vlademiro#p127153
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Voltar ao topo
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

FOR EACH mudou ???

Mensagem por alxsts »

Olá!

Vejam este tópico, onde o autor informa o link para download da versão mais atualizada: Livro e-book Harbour em PDF
[]´s
Alexandre Santos (AlxSts)
Voltar ao topo
Responder

Voltar para “[x]Harbour”