4D Doc Center : PV ARRAY TO CELLS

4D View v14

PV ARRAY TO CELLS


PV ARRAY TO CELLS ( area ; endereço ; coluna ; linha ; conversao ; array )

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

Descrição

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(20;$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)