Criar vetor de 2 dimensões

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

Moderador: Moderadores

Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Criar vetor de 2 dimensões

Mensagem por asimoes »

Preciso criar um vetor de 2 dimensões assim:

aDados := { 0, 0, 0, 20380.00, 20435.00, 20421.00, 20196.00, 20239.00, 19875.00, 19708.00, 19461.00, 19230.00 }, ;
{ 0, 0, 0, 6435.00, 6465.00, 6225.00, 5805.00, 5865.00, 5850.00, 5850.00, 5775.00, 5640.00 } }

Queria fazer um for each em que cada linha do aDados fosse um ano (1..12)

Isso é para usar no RMChart, o meu caso é por valor

Código: Selecionar todos

"1392"	"1"	  "2019"
"1371"	"2"	  "2019"
"1364"	"3"	  "2019"
"1327"	"4"	  "2019"
"1316"	"5"	  "2019"
"1319"	"6"	  "2019"
"1321"	"7"	  "2019"
"1299"	"8"	  "2019"
"1302"	"9"	  "2019"
"1290"	"10"	"2019"
"1286"	"11"	"2019"
"1276"	"12"	"2019"

"1250"	"1"	  "2020"
"1206"	"2"	  "2020"
"1167"	"3"	  "2020"
"1050"	"4"	  "2020"
"1001"	"5"	  "2020"
"970"	  "6"	  "2020"
"998"	  "7"	  "2020"
"1007"	"8"	  "2020"
"944"	  "9"	  "2020"
"965"	  "10"	"2020"
"923"	  "11"	"2020"
"454"	  "12"	"2020"
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Criar vetor de 2 dimensões

Mensagem por JoséQuintas »

Seria isso?

Código: Selecionar todos

aList := {}
FOR nCont = 1 TO 2
   FOR EACH nValor IN aDados[ nCont ]
      AAdd( aList, { nValor, nValor:__EnumIndex, 2018 + nCont ] )
   NEXT
NEXT
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/
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Criar vetor de 2 dimensões

Mensagem por JoséQuintas »

Ou o contrário?

Código: Selecionar todos

aDados := { {}, {} }
FOR EACH aItemList in aOrigemList
   AAdd( aDados[ iif( aItemList[ 3 ] == "2019", 1, 2 ) ], aItemList[ 1 ] )
NEXT
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/
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Criar vetor de 2 dimensões

Mensagem por asimoes »

JoséQuintas escreveu:Ou o contrário?

Código: Selecionar todos

aDados := { {}, {} }
FOR EACH aItemList in aOrigemList
   AAdd( aDados[ iif( aItemList[ 3 ] == "2019", 1, 2 ) ], aItemList[ 1 ] )
NEXT
Prefeito, isso mesmo. Obrigado
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar do usuário
asimoes
Colaborador
Colaborador
Mensagens: 4919
Registrado em: 26 Abr 2007 16:48
Localização: RIO DE JANEIRO-RJ

Criar vetor de 2 dimensões

Mensagem por asimoes »

Quintas

Isso foi para produzir isso:
2020-12-11 16_37_20-Greenshot.png
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Responder