quinta-feira, 2 de abril de 2015
Windev20 - Saiba como Criar uma plania em 3 minutos
Windev20 - Saiba como Criar uma plania em 3 minutos
---------------------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------------------
Excel Ler Linha/Coluna
Excel Ler Linha/Coluna
Idarquivoexcel is int
nUmerolinhas is int
Idarquivoexcel = xlsOpen("D:\aleva\LOTO\loto.xls")
IF Idarquivoexcel<>-1 THEN
nUmerolinhas=xlsNbRow(Idarquivoexcel)
Info(nUmerolinhas)
ELSE
Error(ErrorInfo())
END
i is int = 0
FOR i = 3 TO nUmerolinhas
Info(xlsData(Idarquivoexcel,i,1))
Info(xlsData(Idarquivoexcel,i,2))
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
----------------------------------------------------------------------------------------------------------------
Idarquivoexcel is int
nUmerolinhas is int
Idarquivoexcel = xlsOpen("D:\aleva\LOTO\loto.xls")
IF Idarquivoexcel<>-1 THEN
nUmerolinhas=xlsNbRow(Idarquivoexcel)
Info(nUmerolinhas)
ELSE
Error(ErrorInfo())
END
i is int = 0
FOR i = 3 TO nUmerolinhas
Info(xlsData(Idarquivoexcel,i,1))
Info(xlsData(Idarquivoexcel,i,2))
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
----------------------------------------------------------------------------------------------------------------
Excel
Excel
---------------------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------------------
Windev Tabela Excel
Windev Tabela Excel
Fonte :Video Aula Pedrosao
Aula 112
Quase no final do video
---------------------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------------------
Fonte :Video Aula Pedrosao
Aula 112
Quase no final do video
---------------------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------------------
Windev - Le Excel , Monta e Mostra Tabela e Lista
Assista ao Video Sobre Windev Le Excel Monta e mostra Tabela e Lista
---------------------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------
//--------------------------------------
// Excel Ler e Mostrar Tabela
// Excel Read and Show Table
// Lire et Excel Voir les tableaux
// Excel Leer y Mostrar tabla
//--------------------------------------
CAM_NoName1..Visible=False
_nome_arquivo_excel is int
// nUmero_linhas
// number lines
// Nombre de lignes
// Las rectas numéricas
nUmero_linhas is int
_nome_arquivo_excel = xlsOpen("D:\amarildo\MAURICIO_PEREIRA\Lista Clientes.xls")
// Aqui estou abrindo o Arquivo Excel
// Here I am opening Excel File
// Ici, je suis l'ouverture du fichier Excel
// Aquí estoy abriendo Archivo Excel
nUmero_linhas=xlsNbRow(_nome_arquivo_excel)
i is int = 3
// Aqui eu verifico quantas linhas existe na planilha excel
// Here I check how many rows exist in excel spreadsheet
// Ici, je vérifie le nombre de lignes existent dans excel
// Aquí puedo comprobar cuántas filas existen en hoja de cálculo Excel
FOR i = 3 TO nUmero_linhas
// comeco a ler o excel na linha 3 onde eu encontro informacoes e vou ate o numero final de linhas
// beginning to read excel in line 3 where I find informations and I will until the end number
// of lines
// commençant à lire exceller à la ligne 3 où je trouve des informations et je vais jusqu'à
// ce que le numéro de fin de lignes
// empezando a leer excel en la línea 3 donde encuentro informaciones y lo haré hasta que el
// número final de las líneas
TableAddLine(TABLE_excel,xlsData(_nome_arquivo_excel,i,1,Vrai), ...
xlsData(_nome_arquivo_excel,i,2,Vrai), ...
xlsData(_nome_arquivo_excel,i,3,Vrai), ...
xlsData(_nome_arquivo_excel,i,4,Vrai))
END
CAM_NoName1..Visible=True
----------------------------------------------------------------------------------------------------------------------
Assinar:
Postagens (Atom)