quinta-feira, 2 de abril de 2015

Excel Le e Gravar Array Numero Crescente

Excel Le e Gravar Array Numero Crescente

Idarquivoexcel is int
nUmerolinhas is int
Listanumeros is array of 0 int
jogo_num is int
Idarquivoexcel = xlsOpen("D:\aleva\LOTO\loto.xls")
IF Idarquivoexcel<>-1 THEN
    nUmerolinhas=xlsNbRow(Idarquivoexcel)
ELSE
    Error(ErrorInfo())
END
i is int = 0
FOR i = 3 TO nUmerolinhas
    ArrayDeleteAll(Listanumeros)
    FOR c = 1 TO 20
        ArrayAddLine(Listanumeros,xlsData(Idarquivoexcel,i,c))   
    END   
    ArraySort(Listanumeros,asAscending)
    jogo_num=xlsData(Idarquivoexcel,i,1)
    HReadSeekFirst(resultado,resultado.numero_jogo,jogo_num)
    IF HFound(resultado) THEN
    ELSE
        HAdd(resultado)   
    END
    resultado.num_01=Listanumeros[1]
    HModify(resultado)
END
// caso eu quisesse fazer um loop no array de numeros
//    FOR x =1 to ArrayCount(Listanumeros)
//        Info(Listanumeros[x])
//    END

---------------------------------------------------------------------------------------------------------------
Excel - ler Excel e Grava Tabela e Lista
Excel - Ler e Exportar Para Txt
Excel - Excel e Array
Excel - Ler Tabela e Coloca Excel
Excel - Como Criar Planilha 3 Minutos - Windev 20
----------------------------------------------------------------------------------------------------------------

Nenhum comentário:

Postar um comentário

Teste

Teste
teste