4D View v16

PV ARRAY TO CELLS

Página Inicial

 
4D View v16
PV ARRAY TO CELLS

PV ARRAY TO CELLS 


 

PV ARRAY TO CELLS ( area ; endereço ; coluna ; linha ; conversao ; array ) 
Parâmetro Tipo   Descrição
area  Inteiro longo in Área 4D View
endereço  Inteiro in 0 = Linha; 1 = Coluna
coluna  Inteiro longo in Número da coluna de início
linha  Inteiro longo in Número da linha de início
conversao  Inteiro in 0 = Tipo texto; 1 = Tipo original
array  Array in Nome do array

O comando PV ARRAY TO CELLS insere em area o conteúdo dos arrays cujos nomes se especificam em array. O conteúdo se insere a partir das coordenadas definidas por linha e coluna, no sentido definido por endereço.

Nota: O uso do parâmetro endereço é diferente do parâmetro endereço nos comandos PV GOTO NEXT CELL e PV GET NEXT FREE CELL, onde o endereço pode ser em qualquer sentido. Para PV ARRAY TO CELLS, o endereço é para a direita (0=linha), ou para a parte inferior (1=coluna).

O quinto parâmetro, conversao, permite mudar o tipo dos dados das células que terminarão como texto. O tipo de valor fonte deve ser compatível com esta operação: se solicita uma mudança de tipo de dados de um BLOB ou de uma imagem a texto, conversao será ignorada.

Exemplo  

Copiamos novamente, para baixo, três arrays de tipos diferentes a partir da célula atual. Dependendo da resposta ao diálogo de confirmação da mudança de tipo, o conteúdo do array pode ser executado em células 4D View em forma convertida (texto) ou não.

 C_INTEGER($Index`Índice do laço
 C_LONGINT($Column;$Row`Coordenadas da célula de inicio
 C_INTEGER($Conversion`Forçar a conversão a texto?
 
 ARRAY STRING($ArrayString;10) `Array de valores alfanuméricos (começa na célula atual)
 ARRAY DATE($ArrayDates;10) `Array de datas (coluna seguinte)
 ARRAY BOOLEAN($ArrayBooleans;10) `Array de booleanos (terceira coluna)
 
  `Inicialização
 For($Index;1;Size of array($ArrayString))
    $ArrayString{$Index}:=String($Index*10) `"10", "20", "30"...
    $ArrayDates{$Index}:=Current date(*)+$Index `25/06/2001, 26/06/2001...
    $ArrayBooleans{$Index}:=($Index%2=0) `True = par
 End for
 
 PV GET CURRENT CELL(Area;$Column;$Row)
 
 CONFIRM("Quer converter o conteúdo dos arrays a texto?")
 $Conversion:=1-OK
 
  `Para obter as colunas "$ArrayString", "$ArrayDates" y "$ArrayBooleans":
 PV ARRAY TO CELLS(Area;1;$Column;$Row;$Conversion;$ArrayString`1 = para baixo
 PV ARRAY TO CELLS(Area;1;$Column+1;$Row;$Conversion;$ArrayDates)
 PV ARRAY TO CELLS(Area;1;$Column+2;$Row;$Conversion;$ArrayBooleans)



Ver também 

PV CELLS TO ARRAY
PV FIELD TO CELLS

 
PROPRIEDADES 

Produto: 4D View
Tema: PV Valor célula
Número 15910

 
HISTÓRIA 

Criado por: 4D View 6.8

 
ARTICLE USAGE

4D View Linguagem ( 4D View v16)