Clipper On Line • Ver Tópico - FOR EACH mudou ???

FOR EACH mudou ???

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

Moderador: Moderadores

 

FOR EACH mudou ???

Mensagempor JoséQuintas » 26 Nov 2018 19:06

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.

#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, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

FOR EACH mudou ???

Mensagempor Vlademiro » 02 Dez 2018 22:39

Na época em que eu escrevi o ebook sobre Harbour (2016) já era assim. O menor é que determina o número de iterações.
Avatar de usuário

Vlademiro
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 749
Data de registro: 11 Jul 2005 02:46
Curtiu: 22 vezes
Mens.Curtidas: 62 vezes

FOR EACH mudou ???

Mensagempor JoséQuintas » 03 Dez 2018 11:21

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, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

FOR EACH mudou ???

Mensagempor Vlademiro » 04 Dez 2018 15:18

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.
Avatar de usuário

Vlademiro
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 749
Data de registro: 11 Jul 2005 02:46
Curtiu: 22 vezes
Mens.Curtidas: 62 vezes

FOR EACH mudou ???

Mensagempor syslink » 08 Dez 2018 09:58

o ebook é de domínio público

por gentileza, onde está o link do ebook pra gente baixar/ler, etc?

obg.
syslink
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 132
Data de registro: 20 Fev 2018 13:13
Cidade/Estado: joinvile/sc
Curtiu: 3 vezes
Mens.Curtidas: 3 vezes

FOR EACH mudou ???

Mensagempor JoséQuintas » 08 Dez 2018 10:10

José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

FOR EACH mudou ???

Mensagempor alxsts » 08 Dez 2018 12:54

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)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro