PC Toledo

Edson.pol

... LIB clipper
BEGINAREA
# C/ASM Modules from CLIPPER.LIB
MOD accept, acopy, adel, ains, appexit, appinit, atail, cmem, dbcmd0
MOD dbcmd1, dbcmd2, dbcmd3, dbcmd4, dbcmd5, dbcreate, dbgapi, dbgshado
MOD dbnubs, dbstruct ...

... interrompida quando o último elemento da matriz de destino for atingido e vice-versa. O número de elementos em ambos os arrays não é alterado por ACopy (). Isso mesmo. Eu não estava entendendo essa parte. Agora funciona:

Function Main()
Local x, aDados:={}, aDadosPrint:={}, nElementos:=100 ...

Vai copiar até o 4 elemento

Código: Selecionar todos

   nCont := 0
   aSource := {1,2,3,4,5,6,7,8,9,10}
   aTarget := {}
   aEval( aSource, { |x| nCont++, If( nCont < 5, aAdd( aTarget, x ), Nil ) } )

Pesquisando mais na 3.4

Fonte: rt_array.prg

HBTEST TAStr( ACopy( TARng(), TANew(), 21 ) ) IS ".........." /* Bug in CA-Cl*pper, it will return: "J.........", fixed in 5.3a */

No fonte da hbmk2 tem essa function usando acopy

Código: Selecionar todos

STATIC FUNCTION ArrayJoin( arraySrc1, arraySrc2 )

   LOCAL arrayNew := AClone( arraySrc1 )
   LOCAL nLen1 := Len( arrayNew )

   ASize( arrayNew, nLen1 + Len( arraySrc2 ) )

   RETURN ACopy( arraySrc2, arrayNew, , , nLen1 + 1 )

E este?

#include "FiveWin.ch"

FUNCTION Main()

LOCAL aOne, aTwo

aOne := { "Harbour"," is ","POWER" }

aTwo := AClone( aOne ) // Result: aTwo is {"Harbour"," is ","POWER"}

aOne[ 1 ] := "The Harbour Compiler"

// Result:
// aOne is { "The Harbour Compiler", " is ", "POWER" }
// aTwo is ...

... Main()

LOCAL nCount := 2, nStart := 1, aOne, aTwo, cResult

aOne := { "HARBOUR", " IS ", "POWER"}

aTwo := { "CLIPPER", " WAS ", "POWER"}

ACopy( aOne, aTwo, nStart, nCount )

// ? aOne[1], aOne[2], aTwo[1] // harbour is power.

cResult := HB_ValToExp( aTwo )

? cResult

RETURN NIL

Obg ...

gilbertosilverio

Ola Jairo,

Acho que acopy(), concatena matriz, ela copia de uma para outra...

Não e isso?

Olha o help do Harbour.

... interrompida quando o último elemento da matriz de destino for atingido e vice-versa. O número de elementos em ambos os arrays não é alterado por ACopy ().

Então, como no seu exemplo aDadosPrint:={} não tem elemento nenhum, não será copiado nada. Neste caso aDadosPrint:={} teria que ter o mesmo ...

Olá Pessoal,

Alguém sabe como usar essa função?:

ACopy( <aSource>, <aTarget>, [<nSourceStart>], [<nCount>], [<nTargetStart>] ) --> aTarget

Function Main()
Local x, aDados:={}, aDadosPrint:={}, nElementos:=100

For x = 1 To nElementos
AaDd( aDados, "Elemento " + Hb_NToS( x ) )
Next

Clear ...

... com)
* utils/hbmk2/hbmk2.prg
+ added -doc and -docjson options. If followed by a string (or strings),
hbmk2 will look it up and display (or output JSON) documentation
for the given function[s]/command[s].
E.g.:
hbmk2 -doc acopy
[EXPERIMENTAL] [TRANSLATION]

Saudações,
Itamar M. Lins Jr.

Poka

Olá a todos

voltando ao tópico.

tenho 2 matrizes multidimensional com vários vetores

m1 e m2

quero juntar m2 com m1
tentei com acopy mas não deu certo

alguém pode dar uma ajuda?

Obrigado

Poka

Poka

... algumas linhas quando a informação não satisfazer.

Obs. pegar as informações , sem problemas. Não estou conseguindo excluir ou copiar mesmo. Com matriz normal não tenho problemas, só com essa tipo multidimensional mesmo.

tentei com Adel , Acopy , mas nao deu certo

Agradeço qualquer ajuda

Poka

aprendiz_ce

... ser colocada aqui. Se der erro
# em alguma, coloque abaixo de ENDAREA.
#
LIB \clip52e\lib\DBFCDX
#
ENDAREA
#
SEARCH CLIPPER
BEGIN AREA
MOD accept, acopy, adel, ains, appexit, appinit, atail, cmem, dbcmd0
MOD dbcmd1, dbcmd2, dbcmd3, dbcmd4, dbcmd5, dbcreate, dbgapi, dbgshado
MOD dbnubs, dbstruct ...

... ser colocada aqui. Se der erro
# em alguma, coloque abaixo de ENDAREA.
#
LIB \clip52e\lib\DBFCDX
#
ENDAREA
#
SEARCH CLIPPER
BEGIN AREA
MOD accept, acopy, adel, ains, appexit, appinit, atail, cmem, dbcmd0
MOD dbcmd1, dbcmd2, dbcmd3, dbcmd4, dbcmd5, dbcreate, dbgapi, dbgshado
MOD dbnubs, dbstruct ...

PC Toledo

Pesquisa resultou em 31 ocorrências: +ACopy

Migrar do Clipper 5.2e para Harbour

Como usar a função ACopy()

Como usar a função ACopy()

Como usar a função ACopy()

Como usar a função ACopy()

Como usar a função ACopy()

Como usar a função ACopy()

Como usar a função ACopy()

Como usar a função ACopy()

Como usar a função ACopy()

Documentação do HARBOUR

Ajuda com Matriz Multidimensional

Ajuda com Matriz Multidimensional

clipper 5.2b+exspace 1.0g x clipper 5.2e+blinker7

clipper 5.2b+exspace 1.0g x clipper 5.2e+blinker7