Guest Zangado Posted October 26, 2018 Share Posted October 26, 2018 referencia "nem é referencia [e copiar colar mesmo" http://www.macoratti.net/arq_fun.htm As principais funções e comandos de baixo nível para arquivos: Open e Freefile O comando Freefile retorna um número inteiro que representa o número próximo arquivo disponível. sintaxe - var=Freefile ou Freefile(num. arquivo) O comando OPEN abre um arquivo : sintaxe - Open "dados.txt" For OutPut As 1 No nosso exemplo temos : fnum=Freefile e em seguida Open txtHTML.Text For Output As fnum isto significa que obtivemos o número do próximo arquivo livre e atribuímos ao arquivo txtHTML.text esse número que o identificará no sistema. Write e Print Os comandos Write e Print escrevem dados nos arquivos . Print #fnum, "<H1>Página gerada pelo Visual Basic 5.0</H1>" - Grava no arquivo identificado por fnum os dados entre aspas . Esta é a diferença entre PRINT e WRITE . Ao usar PRINT você tem que formatar seus dados , já o comando WRITE insere os caracteres de controle de final de arquivo, nova lina(newline), carriage return, etc. FileLen, LOF A função FileLen retorna o tamanho em bytes do arquivo especificado. Tamanho=Filelen("C:\dados.txt") A função LOF retorna o tamanho do arquivo para arquivos abertos. Get e Put Get e Put servem para ler e escrever informações a partir de arquivos do tipo Random e Binary, e utilizam posições de número de registro como parâmetros. Ex : Put #1 , 1 , texto grava no arquivo 1, a partir da posição 1 e Get #1 , 2 , Texto - Lê os dados do arquivo 1 , da posição 2. SeeK. Loc Seek retorna a posição da próxima operação de leitura e/ou gravação. Ex Seek #1, numero do registro Loc retorna a posição atual de leitura/gravação. Ex: posicao=Loc(1) - retorna a posição dentro do arquivo Input e Line Input Lêm linhas de dados de um arquivo sequêncial. As linhas são textos retornados com marca de fim de linha e alimentação de linha ( carriage return e line feed). Ex : Line Input # 1 , registro Close, EOF Encerra a entrada/saída dos arquivos cujos indicativos , se passado sem parâmetro fecha todos os arquivos. Close #1 - fecha o arquivo 1. Eof (1) - retorna true se alcançar o final do arquivo Essas funções podem ser utilizadas para tratar arquivos textos e também para ler e armazenar dados. Em breve vamos dar um exemplo de uma agenda pessoal feita usando as funções de baixo nível , aguardem.Vejamos a seguir a título de exemplo um pedaço de código que poderia ser usado para preencher uma combobox durante a abertura de um formulário: Private Sub Form_Load() Dim file as integer dim nome as string file = Freefile Open App.Path & "c:\escola\alunos.txt" for input as #file Do Until EOF(file) Input #file , nome Combo1.Additem nome Loop Close #file End sub Quote Link to comment Share on other sites More sharing options...
eduardodp Posted October 26, 2018 Share Posted October 26, 2018 @edcronos2 favor um exemplo simples de loop manipulação de linhas e colunas Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted October 26, 2018 Share Posted October 26, 2018 @eduardodp como assim ? de que ? txt ou planilha? Quote Link to comment Share on other sites More sharing options...
eduardodp Posted October 26, 2018 Share Posted October 26, 2018 Agora, edcronos2 disse: @eduardodp como assim ? de que ? txt ou planilha? dentro do excel um codigo de como fazer a leitura de linhas e colunas Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted October 26, 2018 Share Posted October 26, 2018 @eduardodp mas isso tem de monte de exemplo por aí diretaemnte na planilha seria for linha =1 to 10 for coluna =1 to 10 valor(n) = cells(linha,coluna)= n=n+1 next next num array seria a mesma coisa ou pegar toda a range diretamente Arr = range("A1:J10") no caso Arr vira um array com todo o valor da range para ser mais direto teria que ter uma base do que vc quer fazer Quote Link to comment Share on other sites More sharing options...
eduardodp Posted October 26, 2018 Share Posted October 26, 2018 @edcronos2 vc sabe se tem como colocar um flexgrid no vba? Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted October 26, 2018 Share Posted October 26, 2018 e oq seria um flexgrid ? Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted October 26, 2018 Share Posted October 26, 2018 dependendo vc talvez nem precise do vba, o excel tem capacidade de lidar com varios tipo de formatos Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted October 26, 2018 Share Posted October 26, 2018 @eduardodp talvez isso ajude mais http://www.macoratti.net/flexclas.htm Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted October 26, 2018 Share Posted October 26, 2018 @eduardodp no proprio excel é possivel vc fazer conexões de dados até de paginas da internet com varios tipos de arquivos e tabelas texto e por aí vai sem nem tocar no vba tipo se o resultado das loteria fosse em uma tabela daria para ter uma atualização sem vba descompactei o arquivo da caixa e criei uma conexão web com o arquivo do meu hd e coloquei para importar a tabela de resultado Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted October 26, 2018 Share Posted October 26, 2018 uma coisa que nunca tinha parado para prestar atenção, é que o excel tbm consegue salvar a planilha como pagina htm com abas e tudo kkkk deve ser legal para mandar um projeto para alguem que não tem excel Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted October 26, 2018 Share Posted October 26, 2018 não é perfeito, mas dá até para navegar pelas abas Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.